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

Question

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

michel_m · Answer

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 Michel

Mémoriser un chemin pour sauvegarder des fichiers en VBA

1 réponse

Discussions similaires