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

A voir également:

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

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

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA

Chemin Logo du site de la Cité de l'espace

Chemin d'accès spécifié est introuvable

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Discussions similaires

Newsletters