Ouvir tout type de fichier depuis USF

  • Initiateur de la discussion Initiateur de la discussion ThomasR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ThomasR

XLDnaute Occasionnel
Bonjour,

Pour repondre à une question du forum,
je créer ce poste afin qu'il puisse etre trouvé plus facilement (car le poste precedent n'avait pas un nom explicite)
Le code dans la partie Déclarations du Userfom :
Code:
Private Const SW_SHOWNORMAL = 1

Private Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hWnd As Long

puis à l'initialize :
Code:
hWnd = FindWindow(vbNullString, Me.Caption)

et pour finir le code qui appel un programme
à adapter :
Code:
ShellExecute hWnd, 'open', 'F:\\Documentation\\Tutoriels_Jeux\\Explode_Seby.pdf', vbNullString, 'C:\\Windows\\', SW_SHOWNORMAL

Dans ce code j'utilise 2 APIs
une pour recup le n°du UserForm (hWnd) 'FindWindow
puis l'autre pour lancer l'application adaper en fonction de l'extention du fichier 'ShellExecute

Ci joint un exemple
Message édité par: ThomasR, à: 22/05/2006 21:36 [file name=Open_all.zip size=8064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Open_all.zip[/file]

Message édité par: ThomasR, à: 22/05/2006 21:46
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
579
Retour