Bonjour,
Le titre ne peut pas être plus clair. Actuellement j'ai cette macro qui fonctionne.
Mais je veux pousser le vice plus loin. Ce fichier va être livré à des gens dont l'informatique n'est pas le métier. Et il y a ce 1% de chance que certaine personne ait un disque système non identifié en C:
Je veux donc inclure la variable système %HOMEDRIVE%
Mais cela ne semble pas passer avec ActiveWorkbook.SaveAs. J'ai essayé de le séparer dans ce style
Même effet. J'ai alors essayé dans ce style :
Même effet . Pourtant j'y croyais !!!!! Une idée messieurs et mesdames ?
Merci à vous,
Le titre ne peut pas être plus clair. Actuellement j'ai cette macro qui fonctionne.
ActiveWorkbook.SaveAs Filename:="C:\ExportFichiersNOPMI\" & "TRUC_ARCMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Mais je veux pousser le vice plus loin. Ce fichier va être livré à des gens dont l'informatique n'est pas le métier. Et il y a ce 1% de chance que certaine personne ait un disque système non identifié en C:
Je veux donc inclure la variable système %HOMEDRIVE%
ActiveWorkbook.SaveAs Filename:="%HOMEDRIVE%\ExportFichiersNOPMI\" & "TRUC_ARCMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Mais cela ne semble pas passer avec ActiveWorkbook.SaveAs. J'ai essayé de le séparer dans ce style
ActiveWorkbook.SaveAs Filename:="%HOMEDRIVE%" & "\ExportFichiersNOPMI\" & "TRUC_ARCMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Même effet. J'ai alors essayé dans ce style :
Test = "%HOMEDRIVE%\ExportFichiersNOPMI\" & "TRUC_CMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss")
ActiveWorkbook.SaveAs Test, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Même effet . Pourtant j'y croyais !!!!! Une idée messieurs et mesdames ?
Merci à vous,