Bonjour à tous,
J'ai créé un programme qui génère un fichier et qui l'enregistre grâce à ce code :
J'ai donc mis mon fichier de base dans un répertoire appelé "Enigmes" à la racine du disque dur ( puisque la racine de presque chaque ordi s'appele C:/ ).
J'aimerais que le fichier créé s'enregistre dans le répertoire qui contient le fichier de base.
Genre, mettre le répertoire "Enigmes" avec le fichier de base dedans et que quelque soit l'ordi sur lequel il est ouvert et quelque soit l'endroit où le répertoire est enregistré, le fichier généré s'enregistre dedans.
En gros, modifier la ligne
par
J'ai essayé avec .Path et ThisWorbook.Path comme chemin mais si mon répertoire "Enigmes" est dans "Mes document", le fichier généré s'enregistre dans "Mes documents" et non pas dans le sous répertoire "Enigmes".
No comprendo ???
Merci par avance à ceux qui se pencheront sur mon poste.
Bon soleil.
Laurent
J'ai créé un programme qui génère un fichier et qui l'enregistre grâce à ce code :
Code:
Sub Nommer_Extraction()
Dim Chemin As String
Application.ScreenUpdating = False
Chemin = "C:\Enigmes/"
With ActiveWorkbook
.SaveAs Filename:=Chemin & ThisWorkbook.Sheets("Feuil1").Range("F1") & " " & Format(Now, "yyyy-mm-dd")
End With
ActiveWorkbook.Save
Application.Quit
End Sub
J'ai donc mis mon fichier de base dans un répertoire appelé "Enigmes" à la racine du disque dur ( puisque la racine de presque chaque ordi s'appele C:/ ).
J'aimerais que le fichier créé s'enregistre dans le répertoire qui contient le fichier de base.
Genre, mettre le répertoire "Enigmes" avec le fichier de base dedans et que quelque soit l'ordi sur lequel il est ouvert et quelque soit l'endroit où le répertoire est enregistré, le fichier généré s'enregistre dedans.
En gros, modifier la ligne
Code:
Chemin = "C:\Enigmes/"
par
Code:
Chemin = "[COLOR="Le répertoire actif"
J'ai essayé avec .Path et ThisWorbook.Path comme chemin mais si mon répertoire "Enigmes" est dans "Mes document", le fichier généré s'enregistre dans "Mes documents" et non pas dans le sous répertoire "Enigmes".
No comprendo ???
Merci par avance à ceux qui se pencheront sur mon poste.
Bon soleil.
Laurent