Mémoriser un chemin pour sauvegarder des fichiers en VBA

Résolu/Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - Modifié par mijean94 le 23/03/2016 à 22:41
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 24 mars 2016 à 09:34
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

michel_m Messages postés 16581 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 12 novembre 2022 3 283
Modifié par michel_m le 24/03/2016 à 06:41
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
24 mars 2016 à 09:34
Bonjour,

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

Cordialement
0