[Catégorie modifiée VB6 --> VBA] Multi enregistrement d'un fichier source
mdnet14
Messages postés7Date d'inscriptionvendredi 25 juin 2010StatutMembreDernière intervention31 décembre 2010
-
31 déc. 2010 à 11:28
Taur33
Messages postés85Date d'inscriptionvendredi 24 septembre 2010StatutMembreDernière intervention20 mai 2011
-
31 déc. 2010 à 12:03
Bonjour à tous,
Voila mon souci.
J'ai un fichier source.
J'ai fait un bouton avec macro faire une copie ne 3 exemplaire de la souche sous 3 nom differents.
Ca marche pas de souci.
J'ai fait un commande pour créer un répertoire qui marche.
Je voudrais donc que mes 3 fichiers qui se retrouve dans le même répertoire.
Le seul souci c'est que seul 1 des fichiers ce retrouve à l'interieur et les 2 autres sur la racine du disque.
Voici mon code, si quelqu'un peut m'aider ce n'est pas de refus .
Private Sub CommandButton1_Click()
MkDir ThisWorkbook.Path & "\Carburants " & Format(Date, "yyyy")
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Carburants " & Format(Date, "yyyy") & "\Fuel " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs "\Gasoil " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs "\SP95 " & Format(Date, "yyyy") & ".xls"
Set NewBook = ActiveWorkbook
With NewBook
.Title = "B "
.Subject = "B"
End With
End Sub
Le fichier gasoil et SP95 ce retrouve systématiquement sur la racine et si je mets un ThisWorkbook.Path & "\Carburants " & Format(Date, "yyyy") , forcement il va me faire une erreur d'execution.
Quelle serais la bonne methode pour compiler cela afin d'avoir mes 3 fichiers dans le même répertoire.
Merci de votre aide, je cale dur dur même avec le plein.
A voir également:
[Catégorie modifiée VB6 --> VBA] Multi enregistrement d'un fichier source
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 31 déc. 2010 à 11:53
Salut
Comme on te l'a déjà dit, tu fais du VBA et pas du VB6/XML.
Ensuite, les fichiers se retrouvent sur la racine parce que tu l'as écrit :
ThisWorkbook.SaveAs "\SP95 " & ...
Le \ veut dire qu'il faut redescendre à la racine de l'arborescence.
Si tu appliquais la même syntaxe que celle utilisée pour le fichier Fuel, cela fonctionnerait.
"si je mets un ThisWorkbook.Path (...), forcement il va me faire une erreur d'execution."
Et pourquoi ?
Quelle erreur ?
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Taur33
Messages postés85Date d'inscriptionvendredi 24 septembre 2010StatutMembreDernière intervention20 mai 2011 31 déc. 2010 à 12:03
Tu veux dire que si t'écrit comme ça y a erreur d'exécution:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Gasoil " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\SP95 " & Format(Date, "yyyy") & ".xls"