Discussion :

[Bchiko]

Bonjour a tous,

Voici un morceau d'une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[halaster08]

Bonjour,

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

Tu définis un chemin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Path = ThisWorkbook.Path & "\"

Mais tu ne l'utilise pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Essaye donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

Bonjour a tous,

Voici ta macro modifiée :

Path est un mot réservé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !"

[jeanmidudu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Bchiko]

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.