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

Anonymous38 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour,

J'ai des documents comportant des champs INCLUDETEXT et j'aimerais pouvoir, via du code VBA, parcourir les fichiers et modifier le chemin d'accès présent dans ces INCLUDETEXT avec le nom et l'emplacement du fichier sélectionné.

D'avance merci.

PS: Si je n'ai pas été assez clair n'hésitez pas à me le dire.



4 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
1
Anonymous38 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
Anonymous38 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
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 :)
0
Utilisateur anonyme
 
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
0