Macro enregistrer sous

Bonjour a tous,

Voici un morceau d'une macro :

Code:

---

1 2 3 4 5

Dim Path As String, valeur As String Path = ThisWorkbook.Path & "\" valeur = "Fichier injection AJOUT48H ENTREPOT_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".xlcsv" ThisWorkbook.SaveAs Filename:="Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True MsgBox ("Le fichier a été enregistré sous : Mes documents (N'oubliez pas de vérifier le Fichier CSV avant injection !")

---

Le problème et que cette enregistrement se fait dans le dossier /mesdocuments, je souhaite pourvoir changer la destination de ce fichier, après maintes essais je ne trouve pas la solution (le message MSGBOX sera changé en conséquence).

Pourriez-vous m'aider ?

Merci beaucoup bonne journée a tous.

Bonjour,

Un code sans balise code (#) c'est illisible.

Tu définis un chemin:

Code:

---

Path = ThisWorkbook.Path & "\"

---

Mais tu ne l'utilise pas:

Code:

---

ThisWorkbook.SaveAs Filename:="Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True

---

Essaye donc:

Code:

---

ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True

---

Bonjour a tous,

Voici ta macro modifiée :

Path est un mot réservé

Code:

---

1 2 3 4 5

Dim chemin As String, valeur As String chemin = "D:\ton répertoire voulu\" valeur = "Fichier injection AJOUT48H ENTREPOT_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".xlcsv" ThisWorkbook.SaveAs Filename:=chemin & valeur MsgBox "Le fichier a été enregistré sous : " & chemin & vblf & "N'oubliez pas de vérifier le Fichier CSV avant injection !"

---

Bonjour,

1) Merci d'utiliser les balises [code] (bouton # lors de la rédaction du message
2) Utiliser " Path " comme nom de variable n'est pas très recommandé
3) " ThisWorkbook.Path " récupère le chemin d'accès au dossier contenant le fichier. C'est ici qu'il y a quelque chose à modifier pour pouvoir changer de dossier
4) Comment souhaites-tu changer l'emplacement? :
a) L'utilisateur rentre le chemin complet ?
b) L'utilisateur entre un chemin relatif ? (toujours le même dossier de départ mais pas le même sous-dossier)
c) Le chemin complet du dossier est toujours prédéterminé ? (Il ne sera jamais modifié)
d) L'utilisateur sélectionne un dossier dans une boîte de dialogue ? (Plus sûr que de rentrer un chemin complet ou relatif)

5) simple curiosité de ma part... mais à quoi sert " valeur " ? Ta variable n'est pas utilisée!

Solutions:
a) L'utilisateur entre une valeur (ne pas oublier l'antislash de fin) (dans une textbox, dans une cellule, ...) qui est enregistrée dans la variable " var " et tu enregistres ainsi :

Code:

---

ThisWorkbook.SaveAs Filename:= var & "Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True

---

b) Il faut 2 variables ici, une première dans laquelle tu indiques la partie absolue, et une seconde réalisant la même chose que la solution a) ou d), puis tu enregistres ainsi :

Code:

---

ThisWorkbook.SaveAs Filename:= var1 & var2 & "Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True

---

c) La plus simple, il faut que tu indiques le chemin souhaité dans une variable :

Code:

---

1 2	var = "mon\chemin\complet\avec\antislash\de\fin\" ThisWorkbook.SaveAs Filename:= var & "Fichier injection AJOUT48H ENTREPOT" & Format(Date, "dd-mmmm-yyyy"), FileFormat:=xlCSV, Local:=True

---

d) Créer un bouton "parcourir" ayant le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CommandButton1_Click()   With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show var = .SelectedItems(1) End With   End Sub

---

puis sauvegarder de la même manière que pour c)

Bonjour a tous,

Déjà merci a vous tous pour vos réponses, je ne trouvai pas les Balises [code] dans le panneau de contrôle.

Halaster08,

La dernière Ligne de code et exactement celle qu'il me faut !!!

Milles merci !

Anasecu,

Merci pour la petite indication concernant le terme "Path".

Merci pour tes indications.

JeanMIMI,

Je suis nouveau dans le VBA je n'ais pas encore toutes les billes pour codé tout seul, je brasse pas mal de forum pour m'aiguiller un peut. Pour le prochain poste je ferai en sorte d'être plus précis et de respecter les Balisages.

Merci a toi pour l'intérêt porter a mon post.

Encore merci a vous trois.

Bonne journée. :yaisse: