Ouvrir un fichier Word avec l'explorateur de fichiers depuis Excel

Salut à tous,

Je m'excuse s'il y a déjà eu des discussions similaires.

Mais je voudrais avoir une macro qui permet d'ouvrir un fichier Word (.doc, .docx, .docm) depuis un fichier Excel.

Lorsque la macro sera exécuté ça devrait ouvrir l'explorateur de fichier et j'aurai plus qu'à me diriger dans le dossier où il y a mon fichier Word et à l'ouvrir.

Toute aide serait la bienvenue :)

Bonne journée !

Bonjour Muzan93,

Si tu veux ouvrir directement un fichier WORD à partir d'un simple bouton dans EXCEL, voici un code qui fonctionne très bien :

Sub OuvertureProcedure()
'Macro permettant d'ouvrir le fichier WORD dans le répertoire des Procédures de xxxxx

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")

   MonFichier = "I:\ton_chemin_complet\ton_fichier.docx"       
   MonApplication.Open (MonFichier)

   Set MonApplication = Nothing
Exit Sub

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

Attention à l'extension exacte de ton fichier Word (en fonction de la version). A adapter à tes besoins ! :)

Bonne journée.

Joe

Merci beaucoup Joept69, ça fonctionne à merveille !

De rien !

N'oublie pas de déclarer ton sujet en "Résolu" ;)

Bonne journée.

Joe