Ouvrir un fichier depuis word

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 479 fois - Téléchargée 42 fois

Contenu du snippet

ce code vous permet d'ouvrir un fichier qelconque lorsque vous travaillez avec word.

Source / Exemple :


Sub cmdSimuleDisque()
'   Déclaration de toutes vos variables
Dim Start As Object
Dim CommonDialog As Object
Set Start = CreateObject("Word.Application")
'   Ceci vous permet de definir quel application utiliser
Shell "c:\Program Files\Microsoft Office\Office\winword.exe"
SendKeys "%(f)(^o c:\)", True ' Envoie la commande ALT + la touche ouvrir
'   Ici vous simulez l'ouverture du menu fichier + ouvrir + disque dur
'   simboliser par c:\
SendKeys "%(o)" '    Envoie la suite de la simulation de touche ALT + ouvrir le fichier"
'   A ce moment vous lui demandez d'ouvrir le menu déroulant et de choisir le disque dur
End Sub

A voir également

Ajouter un commentaire

Commentaire

l_a_m_y_a_e
Messages postés
4
Date d'inscription
jeudi 13 avril 2006
Statut
Membre
Dernière intervention
29 août 2007
-
chapeau vraiment c'est un code utile merci pour l'aide

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.