Inclure variable environnement dans ActiveWorkbook.SaveAs

[Gaffy84]

Bonjour,

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,

 

[Compte Supprimé 979]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Gaffy84

Et il y a ce 1% de chance que certaine personne ait un disque système non identifié en C:

Ah bon et depuis quand une partition de boot sur windows est différente de "C:\" 😕

Chez moi, 6 partitions, dont 2 systèmes : 1 pour vista, l'autre pour XP
Et ma partition de démarrage est toujours "C:\"
Sinon comment i fait windows pour s'y retrouver 😀

Pour info :

Environ("HOMEDRIVE")

a+

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Certes. Mais la je te parle de personnes qui vont tirer des cables et saisir des dossiers. Donc oui toi parceque l'informatique est surement un passion. Eux non et je veux éviter de recevoir des appels du genre "CA MARCHE PAS ...".😡

Et sinon tu as une idée ?

Merci

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Oups lol

Désolé je ne voyais pas la réponse si courte 🙂

Je regarde desuite.

 

[Compte Supprimé 979]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Re,

Oui, j'ai une idée

ActiveWorkbook.SaveAs Filename:="[B][COLOR=blue]C:\[/COLOR][/B]ExportFichiersNOPMI\" & "TRUC_ARCMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Rien à voir avec le fait que l'informatique est ma passion ...

C'est WINDOWS qui veut ça, un point c'est tout 😡

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Euh d'accord. Dans la quelle de mes 4 solutions penses tu que je dois l'intégrer ?

Est-ce la synthaxe exacte ? Merci pour ton aide.

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Ah mais nnooonnn 🙂 lol.

Si nous devons parler système, tu veux dire qu'il est impossible de ne pas avoir un C: ?

M'aurait on menti ?

 

[Pierrot93]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Bonsoir Gaffy, Bruno🙂

perso, j'utiliserais la variable d'environnement "SystemDrive" :

Dim x As String
x = Environ("SystemDrive")

bonne soirée
@+

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Alors alors 🙂. Ce cette façon cela ne fonctionne pas. J'ai toujours le même message d'erreur. "La méthode SaveAS de l'objet '_Workbook' a échoué"

ActiveWorkbook.SaveAs Filename:="x:\ExportFichiersNOPMI\" & "SFR_CMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Ok pour ton idée SystemDrive mais NOK sur sa façon de l'implémenter 🙂.

 

[Pierrot93]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Re

essaye ainsi :

ActiveWorkbook.SaveAs Filename:=[COLOR="Red"][B]x & "[/B][/COLOR]:\ExportFichiersNOPMI\" &  etc....

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Merci !!! A une différence prêt

ActiveWorkbook.SaveAs Filename:=x & "\ExportFichiersNOPMI\"

Pas de : car x reprend le C:

Merci encore,

Je vais commencer à squatter ce forum je crois 🙂

 

[Gaffy84]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Re,

Oui, j'ai une idée

ActiveWorkbook.SaveAs Filename:="[B][COLOR=blue]C:\[/COLOR][/B]ExportFichiersNOPMI\" & "TRUC_ARCMD_" & Range("$H$2").Value & "_" & Format(Now, "yyyymmddhhnnss"), _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Rien à voir avec le fait que l'informatique est ma passion ...

C'est WINDOWS qui veut ça, un point c'est tout 😡

Et j'insiste ! 😀 Je peux format mon Windows et tout installer sur un D: 🙂

Bonne continuation

 

[Pierrot93]

Re : Inclure variable environnement dans ActiveWorkbook.SaveAs

Re

Aarf, c'est ca d'être mal voyant.... lol

bonne soirée
@+