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
29 août 2007 à 13:01
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.