Récupérer et enregistrer une adresse dossier

Bonsoir à toutes et à tous.

Je voudrais récupérer une adresse de dossier en VBA pour enregistrer un fichier et que cette adresse ce copie automatiquement dans une cellule du dit fichier.

Ceci afin de changer facilement l'adresse d'enregistrement si je veux utiliser le fichier excel sur un autre ordinateur.

Merci d'avance pour votre aide.

Bonjour

ci joint une function qui demande a l'utilisateur de choisir un dossier avec une fenetre

le tout est stocker dans la cellule A1 de la feuille active

il te reste a définir comment tu veux lancer la maro "demande" pour demander le changement du dossier d'enregistrement

Fred

Sub demande()
[A1] = ChoixDossier
End Sub
Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Choisir le dossier de destination"
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

Bonsoir fred2406

Merci super cela fonctionne très bien