Enregistrer un chemin pour toutes les procédures

Bonjour

j'essaye d'expliquer mon problème

j'ai créé une macro qui selectionne un dossier ! j'aurais besoin d'enregistrer le chemin pour toutes les autres procedures, toutes les autres macros que j'ai par la suite ..

Sub Importation()

  Dim Chemin As String
  Dim BoiteDialogue As FileDialog

  ' Demander de choisir un dossier dans un messagebox

     MsgBox ("Merci de Choisir un dossier")

  ' Demander à l'utilisateur de sélectionner un dossier

     Set BoiteDialogue = Application.FileDialog(msoFileDialogFolderPicker)
     BoiteDialogue.AllowMultiSelect = False
     BoiteDialogue.Title = "Merci de choisir un dossier"
     If BoiteDialogue.Show = False Then
        Range("A1").Select
     Else

   ' Trouver le Chemin du  dossier

     Chemin = BoiteDialogue.SelectedItems(1) & "\"

   ' Afficher le Chemin du dossier dans une messagebox

     MsgBox ("Le Chemin du dossier est : " & Chemin)

End sub

j'aurais besoin de conserver l'adresse chemin

Chemin = BoiteDialogue.SelectedItems(1) & "\"

pour toutes les procedures, macro suivantes ! j'ai besoin de rapeller cette adresse dans des macros séparés..

comment procéder ?? Par avance merci

Bonjour,

Peut-être en définissant ce répertoire comme répertoire par défaut pour l'application Excel, comme ceci :

Application.DefaultFilePath = Chemin

Peut-être?

Bon dimanche

Bonjour merci pour votre réponse rapide

mais je viens de trouver à l'instant la solution

Dim Chemin As String 
Dim BoiteDialogue As FileDialog

Sub Importation()

  ' Demander de choisir un dossier dans un messagebox

     MsgBox ("Merci de Choisir un dossier")

  ' Demander à l'utilisateur de sélectionner un dossier

     Set BoiteDialogue = Application.FileDialog(msoFileDialogFolderPicker)
     BoiteDialogue.AllowMultiSelect = False
     BoiteDialogue.Title = "Merci de choisir un dossier"
     If BoiteDialogue.Show = False Then
        Range("A1").Select
     Else

   ' Trouver le Chemin du  dossier

     Chemin = BoiteDialogue.SelectedItems(1) & "\"

   ' Afficher le Chemin du dossier dans une messagebox

     MsgBox ("Le Chemin du dossier est : " & Chemin)

end sub

il suffit de placer les dim devant le sub et les valeurs seront enregistrés pour toutes les macros suivantes dans le module

je ne sais pas si ca marche pour des modules différents par contre

Re-,

Ce n'est pas ce que j'avais compris...(je croyais que tu parlais dans différents classeurs)

Dans ton cas, il suffit de déclarer en Public dans un module standard (Remplace Dim par Public)

Bon dimanche