Mémoriser un chemin pour sauvegarder des fichiers en VBA [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
Bonjour,

Je cherche comment mémoriser le chemin d’un répertoire pour le stoker dans une cellule et ainsi pouvoir l’utiliser pour sauvegarder mes fichiers.

Par exemple avec un boite de dialogue « recherche du répertoire de sauvegarde » puis lorsqu’il est trouvé « valider »

Après validation, le chemin se retrouve dans une cellule de la feuille (x)
ex : C:\users\jean mi

Pour la suite, lorsque je demande la sauvegarde de mes fichiers mon code serait :

nom = InputBox("Entrer le nombre du fichier")


chemin = la cellule qui va bien (a mettre le bon code)

et :

nom_xls = (chemin & nom & ".xls")
ActiveWorkbook.ActiveSheet.SaveAs Filename:=nom_xls


merci pour votre aide

cordialement

1 réponse

Messages postés
16044
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 janvier 2020
2 855
Bonjour

pour choisir un dossier de sauvegarde

Sub Choisir_dossier()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, Nom as string

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un dossier de sauvegarde", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
If Chemin = "" Then Exit Sub

nom = InputBox("Entrer le nombre du fichier")
nom_xls = (chemin & nom & ".xls")

End Sub

</code>


 Michel
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

merci pour cette réponse rapide.
ça marche nickel.

Cordialement