Stocker le chemin d'un fichier dans une variable sans l'ouvrir

Bonjour le Forum,

Je voulais savoir si c'était possible de stocker le chemin d'un fichier (word/excel) dans une variable appelé Chemin sans ouvrir le fichier.

Par exemple, je voudrai avoir la variable Chemin = "C:\Users\anonyme\Desktop\Exemple.docx".

Sauf qu'au lieu de renseigner le chemin du fichier manuellement, on le renseigne en sélectionnant le fichier dans l'explorateur.

Je ne sais pas si j'ai été claire.

Merci d'avance !

Finalement, j'ai réussi après quelques essais, j'utilise :

Dim Fichier As String
Fichier = Application.GetOpenFilename("Fichier , *.docx; *.docm; *.xlsm; *.xlsx")

Mais du coup, je voudrai savoir comment exécuter une macro disponible dans un document Word depuis Excel en sélectionnant le fichier Word où l'on veut exécuter la macro.

Bonjour

Ci joint une macro pour ouvrir les fichiers

Private Sub CommandButton1_Click() 'ouvrir fichier
  Dim fd As Office.FileDialog
  Dim MonApplication As Object
  Dim MonFichier As String
  Set fd = Application.FileDialog(msoFileDialogOpen)
  fd.Title = "Sélectionnez un fichier..."
  fd.AllowMultiSelect = False
  If fd.Show() Then
   On Error GoTo OuvertureFichierErreur
   Set MonApplication = CreateObject("Shell.Application")
   MonFichier = fd.SelectedItems(1)

    Workbooks.OpenText Filename:=MonFichier, Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), _
        TrailingMinusNumbers:=True

   Set MonApplication = Nothing
  End If
  Set fd = Nothing
 Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub

la variable mon fichier correspond au nom du fichier et de son chemin

la ligne en dessous permet d'ouvrir le fichier

A+ François

Salut François je te remercie pour ton aide c’est super !
Je clos le sujet :)