Eve-Line
XLDnaute Nouveau
Bonjour,
Bon je sais que beaucoup de questions sont déjà solutionnées sur ce forum, mais il y en a tellement que je ne m'y retrouve plus
J'essaye de formater un fichier source type .csv et une fois le fichier formaté correctement, je voudrais le sauvegarder sous format .xls dans un dossier bien spécifique, mais qui change tous les mois vu que c'est un rapport mensuel. Voici mon code pour le moment (j'ai omis toutes les lignes correspondant au formatage pour alléger):
Lorsque je lance le debugger, au premier passage (touche F8), le chemin affiche: "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\\"
si je défile une deuxième fois utilisant la touche F8 le chemin apparait correctement, càd : "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\februari\" et là ça marche.... alors comprends pas où je fais faux.
Est-ce que quelqu'un a une idée?
Merci d'avance!!
Bon je sais que beaucoup de questions sont déjà solutionnées sur ce forum, mais il y en a tellement que je ne m'y retrouve plus
J'essaye de formater un fichier source type .csv et une fois le fichier formaté correctement, je voudrais le sauvegarder sous format .xls dans un dossier bien spécifique, mais qui change tous les mois vu que c'est un rapport mensuel. Voici mon code pour le moment (j'ai omis toutes les lignes correspondant au formatage pour alléger):
Sub Cleanup()
'
' Cleanup Macro
' Macro recorded 16/01/2009 by Eve-Line Humbert
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Extension = ".xls"
fichier = "gebstr" & Format(Date, "yyyymm") & Extension
chemin = "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\" & Mois & "\"
Mois = Format(Date, "mmmm")
(code formatage)
ActiveWorkbook.SaveAs Filename:=chemin & fichier, FileFormat:=xlNormal
End sub
'
' Cleanup Macro
' Macro recorded 16/01/2009 by Eve-Line Humbert
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Extension = ".xls"
fichier = "gebstr" & Format(Date, "yyyymm") & Extension
chemin = "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\" & Mois & "\"
Mois = Format(Date, "mmmm")
(code formatage)
ActiveWorkbook.SaveAs Filename:=chemin & fichier, FileFormat:=xlNormal
End sub
Lorsque je lance le debugger, au premier passage (touche F8), le chemin affiche: "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\\"
si je défile une deuxième fois utilisant la touche F8 le chemin apparait correctement, càd : "H:\algemeen\Klantenmanagement\Gebiedsoptimalisatie\2009\februari\" et là ça marche.... alors comprends pas où je fais faux.
Est-ce que quelqu'un a une idée?
Merci d'avance!!