Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 479 fois - Téléchargée 42 fois
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
Commentaire
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.