Mémoriser un chemin pour sauvegarder des fichiers en VBA

Résolu

mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention - 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:

Vba choisir chemin enregistrement
Enregistrement mp3 gratuit - Télécharger - Streaming audio
Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Enregistrement - Guide
Incompatibilité de type vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 415 Date d'inscription Statut Membre Dernière intervention 11

Bonjour,

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

Cordialement

Discussions similaires

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

Comment supprimer un contact

Connexion SCTR / Aucun chemin d'accès audio DISCORD

Connexion SCTR discord/ aucun de chemin de connexion

stream discord crash, suivit d'un problème de connexion SCTR

Votre réponse

Discussions similaires