Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément

Programmer en vb

Bonjour et bienvenue,

Programmer en VB est le site qui vous fera prendre conscience que vous pouvez concevoir votre programme informatique vous-même, que vous soyez artisan, employé ou étudiant.

Le Visual Basic est un langage informatique très puissant, très flexible et très abordable.
Une version en application se trouve sous Office
Excel pour exemple :
Tapez Alt + F11 à l’aide de votre clavier puis vous voilà dans l’éditeur de code VBA.

Notre forum d’entraide vous offre des tutoriels ainsi que divers exemples tout prêt à adapter à votre projet personnel.
Nous vous demandons uniquement de la bonne humeur et de la bonne volonté pour toutes questions ou toutes aides quelle qu’elle soit.
Sachez que pour progresser rapidement il est conseillé d’aider au mieux les autres membres.
Nous ne sommes pas là pour juger les qualités ou défauts de codes proposés, mais pour trouver ensemble la solution à votre demande.

A vos claviers :

Afin de remplir le forum, nous vous demandons de partager sur les réseaux sociaux et autres.
https://www.facebook.com/AdminPVB/


Merci de nous rejoindre sur http://programmer-en-vb.forumactif.org/
Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB

Forum de programmation VBA et VB.NET

Welcome if you do not speak french,you are able to translate the whole topics with the flags just below this message. Click to English

Visual Basic Application et VB.net de puissants langages à la portée de tous.

Participez et soyez acteurs des divers forums ci-dessous.

Bienvenue à chaque nouveaux membres et merci à tous ceux qui font vivre ce forum.


Qui est en ligne ?

Il y a en tout 9 utilisateurs en ligne :: 1 Enregistré, 0 Invisible et 8 Invités

carox


Le record du nombre d'utilisateurs en ligne est de 65 le Mar 8 Juil - 23:40

Statistiques

Nos membres ont posté un total de 6162 messages dans 693 sujets

Nous avons 566 membres enregistrés

L'utilisateur enregistré le plus récent est carox

Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Derniers sujets

» Instants musique
par IFFIC Hier à 17:58

» Voir le chemin en entier dans une info-bulle
par Berly Mer 15 Aoû - 11:05

» date, formulaire VBA
par Berly Mar 14 Aoû - 14:18

» Partage d'un jour
par Berly Ven 10 Aoû - 11:46

» Partage d'un soir ....
par Berly Lun 6 Aoû - 8:27

» Outlook ne s'ouvre pas
par danpom302 Dim 8 Juil - 23:16

» Faute de code .....Que décodez vous dans ce film ?
par Berly Dim 24 Juin - 11:35

» Localiser tous les #N/A dans la plage ZONNE
par AdminPVB Sam 16 Juin - 22:37

» Configuration Editeur
par Berly Mer 13 Juin - 22:25

» Des idées .......vous en avez ?
par Berly Mar 12 Juin - 17:19

» Bienvenue à lina.bouda13
par AdminPVB Dim 10 Juin - 22:28

» Manquant:windows common controls 6 (SP6)
par TitiPointCom Sam 9 Juin - 8:47

» Déplacer ligne sélectionnée par Combobox, d'un tableau à un autre
par TitiPointCom Ven 8 Juin - 23:33

» Problème d'affichage de labels
par TitiPointCom Mar 5 Juin - 10:07

» Bienvenue à Alis
par AdminPVB Lun 4 Juin - 20:34

Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires


créer un forum



Annuaire referencement


Flux RSS


MSN 

Août 2018

LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  

Calendrier Calendrier

Petit souci d'affichage de valeurs(Tableau) valeurs saisies au clavier

Sam 14 Avr - 21:19 par Berly

Bonsoir a tous  Very Happy.

Voila j'ai un petit souci de méthode .

Je poste le code ,Ne vous souciez pas des zones de commentaire.

A la fin le nombre d éléments du tableau correspond bien au nombres de valeurs saisies par l'utilisateur .

Je ne trouve pas la méthode pour afficher les valeurs .....bon c'est vrai que en ce moment je bricole  Rolling Eyes.

Merci pour vos réponses  Wink.

Code:
[Imports …


[ Lecture complète ]
Traduction D'algorithmes

Mer 7 Mar - 22:28 par Berly

Bonsoir A toutes et Tous .

J'ouvre ce Post en vue d'une éventuelle collaboration de membres désireux de collaborer a l'évolution de tous.

Le but de ce forum ,consisterai a rechercher des Algorithmes en "Pseudo-code", sans restriction de ressources en appliquant le principe du copié collé .(Sans omettre de citer les sources de provenance  Very Happy,Livres ,exercices scolaires Very Happy ,etc.....)

La …

[ Lecture complète ]
SOS traduction

Dim 4 Mar - 9:11 par e.sainturlo

Bonjour à tous,

Je souhaite comprendre ce qui se cache derrière cette longue suite d'instructions imbriquées les unes dans les autres:

numero2 = Conversions.ToInteger(Operators.AddObject(numero2,Operators.ModObject(Operators.MultiplyObject(NewLateBinding.LateIndexGet(MPMP, new object[] {numero1,numero3}, null), Strings.Asc(MCMC.Substring(numero3, 1)) - 65), 26)));

Quelqu'un saurait-il …

[ Lecture complète ]
Et si on parlait des fichiers.txt et fichiers.csv

Ven 2 Fév - 20:51 par Berly

Bonsoir le forum  Very Happy

Je viens vers vous pour étudier en vbnet les fichiers.

Actuellement j'étudie dans une autre langage ces fichiers.



https://fr.wikipedia.org/wiki/Comma-separated_values.


Ces bases de données sont intéressantes a exploiter ,pour diverses applications dans la vie de tous les jours.


1° Création de fichiers avec extension ou pas.Y a t'il une bibliothèque native en …

[ Lecture complète ]
VB 2005 express

Mar 6 Fév - 17:02 par christian80.1951

Bonjours a tous,
J'utilise vb 2005 express.
dans la form1.vb[design] je créer une listebox .
Lorsque je veux la positionner dans cette form , lors de son déplacement avec la souris ma listbox devient invisible,
ce qui rend son positionnement mal-aisé.
Ce phénomène se produit aléatoirement ! ( certainement une mauvaise manip ) et cet état persiste dans le projet.
J'espère être compréhensible.


[ Lecture complète ]
Création d'un raccourci sur le Bureau pour son Application

Mar 10 Oct - 18:49 par IFFIC

Bonsoir à tous, ou Bonjour s'il est plus tôt qu'à cette heure,
Je ne suis pas passé bien souvent par ici, car j'étais pris sur un gros projet depuis voici un peu plus d'un an.

Au bénéfice de bidouilles trouvées dans mes travaux, je vous livre celle-ci:
Car il est bien confortable de n'avoir pas à fouiller dans l'arborescence d'un disque externe ou une clé USB, voire en ayant changé de …

[ Lecture complète ]
Petits bidouillages pour ce faciliter La vie ,Astuces et codes pratique

Dim 11 Juin - 12:20 par Berly

Bonjour le Forum  Very Happy.

Lorsque j'écrivais dans mon code Console.Writeline ("Patati,Patata,......) ,j'ai d'abord utilisé le copié collé en changeant la valeur du texte .

Bon d'accord ,c'est bien mais ,ça me saoul un peu ,au fur et a mesure de mes apprentissages ,j'ai découvert les fonctions  Very Happy.

Maintenant je partage celle ci avec vous .

On est la sur un exemple de code en "Mode …

[ Lecture complète ]
Menustrip Vbnet Visual Studio

Sam 16 Sep - 21:05 par Berly

Bonsoir le Forum  Very Happy

Je suis actuellement en construction  d'un logiciel pour les enfants en scolarité primaire.(Visual Studio Community 2017)

Je l'ai commencé et il fonctionne parfaitement a ce stade.

J'utilise Le contrôle MenuSrip.

Au commencement il est question d'afficher par catégorie tables de 1 a 10 .
Un Premier Bouton "Tables de Multiplications" Aucun événement 
Puis Ajouts …

[ Lecture complète ]
suppression d'un fichier txt en cours d'utilisation

Mar 5 Sep - 9:51 par La boc

Bonjour,

dans mon application j'ai un fichier txt qui est chargé dans un DataGridView en fonction du n° ID.

Quand je supprime un ID, je dois aussi supprimer ce fichier, quand je fait un delete ça marche bien, le fichier est bien supprimé du dossier mais quand je ferme l'application j'ai un message box:

"Violation de l’accès concurrentiel:
Delete command a effectué 0 des enregistrements …

[ Lecture complète ]

Enregistrer sous un autre nom.

Partagez
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Enregistrer sous un autre nom.

Message par danpom302 le Ven 27 Avr - 19:42

Bonjour à tous,

Je requière encore une fois votre aide pour m'aimer à solutionner un problème d'enregistrement d'un fichier.

Le fichier se nomme : y_tpkd_wolseley_.csv

Je désire l'enregistrer sous le nom suivant : tpkd_wolseley_18-0041_20180427.csv

Mais voilà, le 18-0041 ainsi que la date 20180427 vont changer à chaque enregistrement de facture.

J'ai essayé plusieurs code sans succès. Le format et la mise en page ne doivent pas changer.

S.v.p., est-ce possible?

Merci pour votre aide,

Daniel

Je joint mon fichier
Fichiers joints
y_tpkd_wolseley_.zip
Vous n'avez pas la permission de télécharger les fichiers joints.
(1 Ko) Téléchargé 2 fois
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Ven 27 Avr - 21:20

Bonsoir Daniel  Very Happy.

J'ai trouvé ça qui correspond en partie me semble t'il a ton souhait.

www. https://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/changer-fichier-enregistrement-sujet_92902_1.htm


En fait c'est l'extension.csv que tu souhaites qui m'interroge .

Bonne fin d’après-midi .
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 2051
Date d'inscription : 24/05/2013
Age : 42

Résolu Re: Enregistrer sous un autre nom.

Message par AdminPVB le Ven 27 Avr - 21:50

Bonsoir,
tu dis avoir essayer plusieurs codes sans aboutir à la solution souhaitée,
tu dois passé par deux variables et le nom de l'onglet.
ton onglet se nomme:
 tpkd_wolseley_

il faut créer deux variables une DateEnregistrement et une NumFacture.
mais comme il manque des infos pour pouvoir te répondre entièrement je ne peux poursuivre.
Ce que je peux dire c'est qu'il faut connaitre les numéros de facture existant et date pour ne pas faire de doublon.
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 1:24

Bonjour à tous, adminPVB,

Merci pour vos commentaires. Le numéro de la facture 18-0041 se trouve dans la cellule AI2; quant à celui de la date 20180427, il est dans la cellule AJ2 du fichier  y_tpkd_wolseley_.csv.

Voici mon code qui ne fonctionne pas. Oups...

Impossible de coller mon code soit dans 


ou non.

???

Dan
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 2:02

Bonjour à tous, admin PVB,

Merci pour vos commentaires. Le numéro de la facture 18-0041 se trouve dans la cellule AI2; quant à celui de la date 20180427, il est dans la cellule AJ2 du fichier  y_tpkd_wolseley_.csv.

Voici mon code qui ne fonctionne pas. Il crée un fichier pdf qui se nomme : tpkd_Wolseley_18-0041_20180427.csv.pdf.
Code:
Fichier2 As String
Dim mon_CSV As String
mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [AI2] & "_" & Format([AJ2], "YYYYMMDD")

ActiveSheet.ExportAsFixedFormat Type:=xlTypeCSVDOS, Filename:=ActiveWorkbook.Path & "\" & Fichier2 & " .CSV", Quality:=xlQualityStandard
mon_CSV =ActiveWorkbook.Path & "\" & CSVDOS & " .csv"

Pour coller ce code, j'ai dû copier/coller d'Excel vers Word puis, copier/coller de Word à ici. Si j'essais d'Excel à ici, ça ne fonctionne pas. Bizarre... Quelqu'un a t'il une idée de ce qui peut se passer?

Merci pour votre aide,

Dan


Dernière édition par AdminPVB le Sam 28 Avr - 11:16, édité 1 fois (Raison : J'ai enlevé le superflu dans le code./ je ne connais pas la raison il m'arrive également d'avoir le même problème.)
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 2:04

adminPVB,

Il se passe des choses bizarres...

Dan
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Sam 28 Avr - 10:17

Bonjour Dan AdminPvb .

Pour le code essaies de copier coller ton code dans un fichier Bloc notes et colle le ensuite .

Dans ton code il y a "ActiveSheet.ExportAsFixedFormat".  


 exporter feuille active Wink ,elle n' est pas enregistrée en tant que fichier,mais exportée avec un format Pdf ,non spécifié dans le code.


Si j'ai bien compris tu souhaites sauvegarder une copie de facture ,réutilisable sous excel et non un Pdf ,c'est ça  Question.


Nous pouvons  considérer les points utiles et pratiques suivants......


1° Le client peut avoir besoin de prestations supplémentaires a facturer en + comme en moins.


2° une erreur dans la facturation au bénéfice du vendeur ou du client .


3° des erreurs humaines de saisie dans la facturations (Date,N° de facture ,produits vendus etc....)


Dans ce cas voir avec AdminPvb si un format .xlsb ne serait pas plus profitable en terme de place  sur la machine et qui pourra être réutilisable dans les même conditions que l'original .(L'original restant " le support général Standardisé a la facturation" ,la copie qui elle est spécifique a un client de part "son nom de sauvegarde "et reste modifiable après sauvegarde ).

Je ne pense pas que tu puisses réutiliser ce fichier sur  excel avec une  extension.csv. ,si tu souhaites pouvoir la réutiliser ultérieurement (a voir .....)


Nota:Lorsque la transaction est terminée,facturée ,payée,tu pourras ensuite faire une sauvegarde en Pdf pour archivage administratif tout en conservant un certain temps ta sauvegarde utilisable  Wink.


Bonne journée.
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 2051
Date d'inscription : 24/05/2013
Age : 42

Résolu Re: Enregistrer sous un autre nom.

Message par AdminPVB le Sam 28 Avr - 11:25

Bonjour,
voici un code enregistrer avec l'enregistreur de macro d'Excel.
il montre comment enregistrer en CSV.
je pense qu'il faut utiliser cette méthode pour le CSV.
Code:
Sub CSV_File()
'
' CSV_File Macro
'
'
    ChDir "C:\Users\Frédéric\Desktop\Programmation\message_forum\Danpom302"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Frédéric\Desktop\Programmation\message_forum\Danpom302\ExempleCSV.csv" _
        , FileFormat:=xlCSVMSDOS, CreateBackup:=False
End Sub

A bientôt. Very Happy


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Sam 28 Avr - 11:39

Merci Fred  cheers,on ne pense pas assez souvent a l'enregistreur de macro  Laughing.

ça fonctionne  Very Happy.

Reste la date et la référence de facture pour Dan .

Mais bon ça va venir je n'en doute pas  Exclamation

Bon week-end  Wink.
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 16:21

Bonjour à tous,

J'ai essayé ce code et j'obtiens comme nom d'enregistrement ceci : mon_csv.csv

Voici le code utilisé :
Code:
Workbooks.Open

Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\y_tpkd_wolseley_facture_no_date.csv"
Dim mon_CSV As String
mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [AX1] & "_" & Format([AY1], "YYYYMMDD")
ChDir "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\"
ActiveWorkbook.SaveAs Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\mon_csv"
, FileFormat:=xlCSVMSDOS,CreateBackup:=False

AX1 = Le numéro de facture dans écrite dans cette cellule.
AY1 = La datte de la facture écrite dans cette cellule.

Il y a sûrement quelque chose qui n' pas correct ou il manque quelque chose.

Quelqu'un a-t'il une idée s.v.p.?

Merci,

Dan
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 16:47

Bonjour Berly,

Réponse à ton message.

Pour le code essaies de copier coller ton code dans un fichier Bloc notes et colle le ensuite . C'est ce que je fais maintenant. Merci.

Si j'ai bien compris tu souhaites sauvegarder une copie de facture , réutilisable sous excel et non un Pdf ,c'est ça  . Oui.

1° Le client peut avoir besoin de prestations supplémentaires a facturer en + comme en moins. Oui.

2° une erreur dans la facturation au bénéfice du vendeur ou du client . Oui.

3° des erreurs humaines de saisie dans la facturations (Date,N° de facture ,produits vendus etc....) Oui.

Dans ce cas voir avec AdminPvb si un format .xlsb ne serait pas plus profitable en terme de place  sur la machine et qui pourra être réutilisable dans les même conditions que l'original .(L'original restant " le support général Standardisé a la facturation" ,la copie qui elle est spécifique a un client de part "son nom de sauvegarde "et reste modifiable après sauvegarde ).
Mon client exige une facture en csv avec comme nom, le nom de compagnie du transporteur (qui est toujours le même nom), le nom du client (qui est toujours le même nom), le numéro de la facture (Qui est jamais le même et la date de la facture écrite comme ceci YYYYMMDD (Qui n'est pas toujours la même. 


Je ne pense pas que tu puisses réutiliser ce fichier sur excel avec une extension.csv. ,si tu souhaites pouvoir la réutiliser ultérieurement (a voir .....)

Voilà,


Merci,

Dan

Nota:Lorsque la transaction est terminée,facturée ,payée,tu pourras ensuite faire une sauvegarde en Pdf pour archivage administratif tout en conservant un certain temps ta sauvegarde utilisable 
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Sam 28 Avr - 18:34

Code:
[Workbooks.Open


 Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\y_tpkd_wolseley_facture_no_date.csv"

Dim mon_CSV As String



mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [AX1] & "_" & Format([AY1], "YYYYMMDD")

ChDir "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\"

Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\mon_csv" ' sur cette ligne La variable  mon_csv n'a pas la même syntaxe que celle déclarée
 FileFormat:=xlCSVMSDOS, CreateBackup:=False]
 J'ai essayé de reconstituer le puzzle,en faisant je me suis aperçu de certaines choses .

L'ouverture de procédure et fermeture ne sont pas dans le code 

Le code ressemble t'il a celui que tu as dans ton éditeur ?  Laughing

Résumons :Donc c'est une création de facture avec des spécificités propres a chaque client (a sauvegarder) selon le nom du client ,la date de facturation,chaque client aura son dossier facturation de l"année en cours.

On avance .....  déjà ce serai pas mal de créer un  répertoire facturation pour chaque client,car dans ces conditions la sauvegarde pourra être exportée directement dans le répertoire du client concerné .

Yves ,Fred  au secours ,il y a un peu de travail  Wink.

Cordialement Berly
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 19:24

Bonjour Berly,

Désolé pour la confusion ou la complexité de ma demande.

Voici ce que je cherche à faire :

1)
Ouvrir le fichier z_tpkd_Facture_V4.xlsm pour produire la facture à envoyer par courriel soit une en pdf (Jusqu'ici tout fonctionne très bien).

2)
Dans ma macro je demande, après avoir entré toutes les données pertinentes à la facturation, d'ouvrir le fichier y_tpkd_wolseley_facture_no_date.csv. Celui-ci ne doit pas contenir de macro. En plus, il ne contiendra pas d'informations tels les titres et les données. Ici, je veux lui donner un nouveau nom via un code. Voir 3).

3)
Là, je veux enregistrer ce fichier vide sous un autre nom soit tpkd_wolseley_18-0041_20180428, où tpkd_wolseley_ ne changera jamais; par contre, les numéros de facture ainsi que les dattes vont quant à eux, continuellement changés.

4)
Lorsque le fichier sera enregistré sous le bon nom, je pourrai à ce moment coller les titres et les données de facturation puis, l'envoyer par courriel au client.

Ça semble peut-être compliqué mais tout ce que je n'arrive pas vraiment à faire jusqu'à présent, c'est d'enregistrer le fichier sous un autre nom avec le bon numéro de facture et la bonne datte de facturation et ce, automatiquement.

J'espère que ces informations pourront t'éclairer.

Merci pour ton aide,

Dan
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Sam 28 Avr - 20:08

J'ai bien compris .

Mais la on essaie d'éclairer sur la construction que tu souhaites  Wink.

Le document "facture" doit être vierge et utilisable pour tous les clients.

il faudrait a ce moment la créer une copy du document vierge en  mettant le code dans ce document .

C'est l’exécution du code qui créera la copy du  document vierge que tu pourra remplir pour  chaque client ,sans macro .

Jusque la on est  sur le même fil ......

Enregistrer ce document rempli  via un code  utilisant des valeurs saisie en cellules pour référence,nécessite forcément une macro.....suis je cohérent ?

Si tu crée une autre feuille "Factures "spécifique a ce client,pour y enregistrer les suites de facturation tu pourras en un test retrouvé facilement  tes facturations afin de te permettre de nommer celles ci .

Dis moi ce que tu en penses .

Dis moi ce que tu en penses
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 20:48

Bonjour Berly,

Mes réponses en rouge. 

Le document "facture" doit être vierge et utilisable pour tous les clients.
Le document doit être vierge et réutilisable mais toujours pour le même client.

il faudrait a ce moment la créer une copy du document vierge en  mettant le code dans ce document .
Le document existe déjà. Il est enregistré sous le nom y_tpkd_wolseley_.

C'est l’exécution du code qui créera la copy du  document vierge que tu pourra remplir pour  chaque client ,sans macro .
Non. Tout ce que je veux, c'est d'enregistrer vis une macro, le document y_tpkd_wolseley_ sous un autre nom soit à titre d'exemple, tpkd_wolseley_ici le numéro de la facture_ suivi de la date de création de la facture. tpkd_wolseley_ est toujours dans le nom mais le numéro de la facture ainsi que la date sont différents d'une fois à l'autre.

Enregistrer ce document rempli  via un code  utilisant des valeurs saisie en cellules pour référence,nécessite forcément une macro.....suis je cohérent ?
Oui

Si tu crée une autre feuille "Factures "spécifique a ce client, pour y enregistrer les suites de facturation tu pourras en un test retrouvé facilement  tes facturations afin de te permettre de nommer celles ci .
Malheureusement trop compliqué pour mon client qui est le transporteur et qui fait la facturation. Il n'est pas très pro informatique et n'a pas le temps d'apprendre Excel. C'est pourquoi je lui ai créé un petit programme de facturation simple à utiliser avec bouton macro et beaucoup de macros. À venir jusqu'à présent, tout fonctionnait très bien mais voilà, son client fait maintenant affaire avec un sous-traitant qui s'occupe de payer leurs factures et ils ont demander des changements au niveau du format de le facture. csv, nouvelle façon d'enregistrer les factures ce qui me complique la vie.

Voilà, j'espère que tu comprends mieux. 

Pour résumer, j'ai besoin d'aide pour enregistrer le document sous un autre nom et ce à partir de certaines données répertoriées dans deux cellules, 1) le numéro de la facture 2) la date de facturation.

Merci encore une fois pour ton aide,

Dan   
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Sam 28 Avr - 21:19

J'ai bien compris ce que tu souhaites.

Je cherche des infos ou exemple .

Regarde cette vidéo ,on doit pouvoir y trouver quelque chose  Wink.

https://youtu.be/zqxy7o3Ky6I
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 2051
Date d'inscription : 24/05/2013
Age : 42

Résolu Re: Enregistrer sous un autre nom.

Message par AdminPVB le Sam 28 Avr - 21:48

Bonsoir,
Je vais regarder cela de plus près demain,dans la journée ou soirée,puis voir pour proposer une solution
A bientôt


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Sam 28 Avr - 23:39

Bonsoir Berly,

Merci pour le lien. Je vais regarder le tout ce soir.

Donc, à suivre.

Bonne soirée,

Dan

Merci à adminPVB
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 2051
Date d'inscription : 24/05/2013
Age : 42

Résolu Re: Enregistrer sous un autre nom.

Message par AdminPVB le Dim 29 Avr - 11:14

Bonjour Danpom302, Berly.

@Berly tu as presque mis le doigt dessus.

le code de Dan.

Code:

Workbooks.Open
Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\y_tpkd_wolseley_facture_no_date.csv"
Dim mon_CSV As String
mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [AX1] & "_" & Format([AY1], "YYYYMMDD")
ChDir "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\"
ActiveWorkbook.SaveAs Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\mon_csv"
, FileFormat:=xlCSVMSDOS,CreateBackup:=False
[size=13][/size]

la variable mon_csv dans ton code n'est pas utilisée en tant que variable il faut faire une séparation dans la ligne de commande:

comme ceci
Code:
Workbooks.Open
Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\y_tpkd_wolseley_facture_no_date.csv"
Dim mon_CSV As String
mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [AX1] & "_" & Format([AY1], "YYYYMMDD")
ChDir "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\"
ActiveWorkbook.SaveAs Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\" & mon_csv
, FileFormat:=xlCSVMSDOS,CreateBackup:=False

Il y aura sans doute un message de confirmation.
Si tu souhaites qu'il ne s'affiche pas. 
Il faudra alors utiliser Application.DisplayAlerts = False en début de code et True en fin de code.

Attention Chdir vérifie si le chemin existe j'ai peut être mis une espace de trop entre Daniel et Pomerleau en trop car j'ai repris le code avec les mises en forme que j'ai enlevé.
Je n'ai pas fait de test donc il se peut que cela n'est pas ok.
A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Dim 29 Avr - 11:52

Bonjour AdminPvb Dan Very Happy .

Punaise et oui " chemin" & Concaténation de la variable a appeler   Wink

J'étais sur que c'était une erreur d ' inattention ....... Laughing  .

Merci a tous les deux  Very Happy
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Dim 29 Avr - 17:52

Bonjour à tous,

Le dernier post de adminPVB à fonctionné avec quelques modifications.

Voici mon code:
Code:
Workbooks.Open Filename:= _
        "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\y_tpkd_wolseley.csv"
    Windows("y_tpkd_wolseley_.csv").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
       
' Enregistrer le fichier sous tpkd_wolseley + le No de la facture + la date YYYYMMDD
    Dim mon_CSV As String
    mon_CSV = "tpkd" & "_" & "wolseley" & "_" & [A1] & "_" & Format([A2], "YYYYMMDD")
    ChDir "C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Daniel Pomerleau\Documents\PKD 2018\Factures\2018\" & mon_CSV, FileFormat:=xlCSVMSDOS, CreateBackup:=False

Merci beaucoup à tous pour votre aide.

Dan
avatar
Berly
Step_Three_VBA
Step_Three_VBA

Localisation : Rodez(Aveyron)
Messages : 506
Date d'inscription : 23/04/2017
Age : 54

Résolu Re: Enregistrer sous un autre nom.

Message par Berly le Dim 29 Avr - 18:09

Bonjour Dan .


Merci pour le code affiné ,je suis très  content pour toi ,tu vas pouvoir satisfaire tes clients  Very Happy.

A bientôt  Wink.
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 434
Date d'inscription : 23/09/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par danpom302 le Dim 29 Avr - 18:35

Bonjour Berly,

Pour cette partie seulement car je viens de poster un nouveau message. Lorsque celui-ci sera réglé, je pourrai crier victoire.

Merci et à +,

Dan
avatar
IFFIC
Step_Three_VBA
Step_Three_VBA

Localisation : Sud Breizh ar mor
Messages : 397
Date d'inscription : 25/05/2013
Age : 67

Résolu Re: Enregistrer sous un autre nom.

Message par IFFIC le Dim 29 Avr - 18:43

Bonjour ou Bonsoir selon que vos pendules soient en grève ou non, Embarassed
Je dois avouer que je 'ai pas percuté en voyant ce code avec des "[" ou  "]", car ces hiéroglyphes ne sont pas dans mon langage courant.

En ayant eu besoin, je vous transmets ce que je me suis fait pour renommer à mes souhaits certains fichiers.
Il se peut que je sois hors sujet, mais j'ai été tenté de soumettre ma bidouille.


Ne vous préoccuper par de l'ouverture de la boite de dialogue quant à la recherche d'un fichier car ce n'est que pour l'exemple.
Il est possible d'en faire une routine sur des chemins d'origine écrits dans une page Excel.

Attention de ne faire l'essai que dans une copie de l'un de vos fichiers, car la modification de son nom et de ses dates seront définitivement modifiés.

La modification des noms de dossier est bien plus expéditive en se résumant qu'à trois lignes, car l'on n'a pas à se préoccuper de l'extension.
Si intéressé, me le dire,
Yves
Fichiers joints
RENOMMER.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(23 Ko) Téléchargé 2 fois

Contenu sponsorisé

Résolu Re: Enregistrer sous un autre nom.

Message par Contenu sponsorisé


    La date/heure actuelle est Ven 17 Aoû - 16:57