[VBA] INCLUDETEXT : modifier chemin d'accès

Bonjour,

https://www.developpez.net/forums/d1059916/logiciels/microsoft-office/word/vba-word/modifier-includetext-application/

Merci,

j'avais déjà vu ce topic mais :

1) Cela n'a pas l'air de permettre à l'utilisateur un parcours de fichier (j'aurai peut-être dût être plus précis)

2) Je ne comprend pas bien le 13 dans cette ligne de code :
If Left(ActiveDocument.Fields(1).Code, 13)

Pour préciser ma demande, j'aimerais qu'un bouton inclus dans un userform permette à l'utilisateur de choisir un fichier source qui serve à changer le chemin d'accès des INCLUDETEXT du document cible.

D'avance merci.

C'est bon, j'arrive à ouvrir la boîte de dialogue Windows pour sélectionner un fichier grâce à l'instruction :

Dialogs(wdDialogFileOpen).Show

Maintenant, j'aimerais juste arriver à récupérer le chemin d'accès du fichier sélectionné sous forme de chaîne de caractère.

Merci d'avance à celui qui serait capable de m'aider :)

Bonjour,

Exemple :

Sub Test()

    Dim NomFichier As String
    Dim Dossier As String
    Dim dlgOpen As FileDialog
    
    Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)

    With dlgOpen
        .AllowMultiSelect = False
        .Show
        Dossier = .InitialFileName
        NomFichier = .SelectedItems(1)
    End With

    MsgBox Dossier & vbCrLf & NomFichier

End Sub

Cdt

Lupin