Ouvrir n'importe quel fichier à partir de vb [Résolu]
stephvb62
- Messages postés
- 5
- Date d'inscription
- mardi 3 février 2009
- Dernière intervention
- 17 février 2009
- Messages postés
- 4
- Date d'inscription
- mardi 14 novembre 2000
- Dernière intervention
- 21 août 2010
A voir également:
- N vb
- Me.hwnd - Meilleures réponses
- Ouvrir n'importe quel fichier par reconnaissance de son extension - Codes sources - Visual Basic / VB.NET (OLE, DDE, Automation)
- Visual Basic / VB.NET : Ouvrir n'importe quel fichier avec readfile (api) - CodeS SourceS - Guide
- [Catégorie modifiée .Net --> VBA] Ouvrir n'importe quel fichier ( word, pdf... ) ✓ - Forum - Visual Basic 6
- [déplacé VB.NET -> VBA] Ouvrir un explorateur de fichier à partir d'un formulair ✓ - Forum - Visual Basic 6
- Execution d'applis et de fichiers à partir de vb - Codes sources - Visual Basic / VB.NET (API)
7 réponses
Meilleure réponse
- Messages postés
- 1241
- Date d'inscription
- mardi 10 octobre 2006
- Dernière intervention
- 27 août 2013
Salut,
Plus simplement, regardes du côté de shellexecute qui permet d'ouvrir un type de fichier avec le logiciel approprié.
L'expérience, c'est une connerie par jour, mais jamais la même..
Plus simplement, regardes du côté de shellexecute qui permet d'ouvrir un type de fichier avec le logiciel approprié.
L'expérience, c'est une connerie par jour, mais jamais la même..
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 103 internautes ce mois-ci
- Messages postés
- 5
- Date d'inscription
- mardi 3 février 2009
- Dernière intervention
- 17 février 2009
Le pb c'est que mon programme doit tourner sur différente bécane, et comme mon windows est en anglais, que celui de ma collègue est en espagnol, (C:\Archivos de Programa) et qu'en plus on a soit acrobat reader 9 soit le 7.0 standard....et ce sur 40 machines.
Bref, merci pour la réponse, c'est au moins quelque chose qui marche
Merci!
Bref, merci pour la réponse, c'est au moins quelque chose qui marche
Merci!
- Messages postés
- 5
- Date d'inscription
- mardi 3 février 2009
- Dernière intervention
- 17 février 2009
Hola,
Je voulais éviter le shellExecute, qui me gén`re une erreur, mais le plus simple pour moi serait de régler cette erreur.
Le pb est au niveau du .hwnd (méthode ou data member not found), qui est inconnu de mon vb, pourtant j'ai déclaré la fonction comme ça:
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
Sub openfile()
ShellExecute Me.hwnd, "open", "chemindufichierrecuperedansunetextbox", "", App.Path, 1
End sub
DOIS JE ajouter une classe?
Muchas gracias para la ayuda
Je voulais éviter le shellExecute, qui me gén`re une erreur, mais le plus simple pour moi serait de régler cette erreur.
Le pb est au niveau du .hwnd (méthode ou data member not found), qui est inconnu de mon vb, pourtant j'ai déclaré la fonction comme ça:
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
Sub openfile()
ShellExecute Me.hwnd, "open", "chemindufichierrecuperedansunetextbox", "", App.Path, 1
End sub
DOIS JE ajouter une classe?
Muchas gracias para la ayuda
- Messages postés
- 1241
- Date d'inscription
- mardi 10 octobre 2006
- Dernière intervention
- 27 août 2013
Bonjour,
Si tu es bien en vb 2005, la déclaration de cette API est un peu différente :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As IntPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As IntPtr
En 2005, tu as également la possibilite d'utiliser la class Process, et process.start(nomdufichieràexécuter)
L'expérience, c'est une connerie par jour, mais jamais la même..
Si tu es bien en vb 2005, la déclaration de cette API est un peu différente :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As IntPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As IntPtr
En 2005, tu as également la possibilite d'utiliser la class Process, et process.start(nomdufichieràexécuter)
L'expérience, c'est une connerie par jour, mais jamais la même..
ouvrir n'importe quel fichier à partir de vb
Au cas ou ce problème n'aurait pas été résolu:
Exemple avec Navigateur Internet
' ----------------------------------------------------------
Public Sub AccesWeb(AdresWeb As String, MeHwnd)
' acces Web
Dim Bidon As String
Dim DefauNavig As String * 255
DefauNavig = DefauProg("HTML")
If DefauNavig = Vl3275 Then
MsgBox "Navigateur InterNet non trouvé", vbExclamation, TitreMbox
Else
Reponse = ShellExecute(MeHwnd, "open", DefauNavig, AdresWeb, Bidon, SW_SHOW)
If Reponse <= 32 Then ' Error
MsgBox "Page WEB non Ouverte", vbExclamation, LibPbm & "InterNet"
End If
End If
' ----------------------------------------------------------
Public Function DefauProg(SufDef As String) As String
' chercher Programme par Défaut pour ouvrir un fichier selon suffixe
Dim FichDef As String
Dim ProgDef As String * 255
Dim BiDef As String
Dim NoDef As Integer
ProgDef = Space(255)
FichDef = Dir9W32 & RevBar & "\DEFOPROG." & SufDef
NoFH = FreeFile
Open FichDef For Output As #NoFH
Write #NoFH, "xxxx"
Close #NoFH
' ----------------------------------------- Recherche Prog associé
Reponse = FindExecutable(FichDef, BiDef, ProgDef)
DefauProg = Trim(ProgDef)
' -----------------------------------------
If Reponse <32 Or IsEmpty(DefauProg) Then DefauProg Vl3275
Kill FichDef
End Function
' ----------------------------------------------------------
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Au cas ou ce problème n'aurait pas été résolu:
Exemple avec Navigateur Internet
' ----------------------------------------------------------
Public Sub AccesWeb(AdresWeb As String, MeHwnd)
' acces Web
Dim Bidon As String
Dim DefauNavig As String * 255
DefauNavig = DefauProg("HTML")
If DefauNavig = Vl3275 Then
MsgBox "Navigateur InterNet non trouvé", vbExclamation, TitreMbox
Else
Reponse = ShellExecute(MeHwnd, "open", DefauNavig, AdresWeb, Bidon, SW_SHOW)
If Reponse <= 32 Then ' Error
MsgBox "Page WEB non Ouverte", vbExclamation, LibPbm & "InterNet"
End If
End If
' ----------------------------------------------------------
Public Function DefauProg(SufDef As String) As String
' chercher Programme par Défaut pour ouvrir un fichier selon suffixe
Dim FichDef As String
Dim ProgDef As String * 255
Dim BiDef As String
Dim NoDef As Integer
ProgDef = Space(255)
FichDef = Dir9W32 & RevBar & "\DEFOPROG." & SufDef
NoFH = FreeFile
Open FichDef For Output As #NoFH
Write #NoFH, "xxxx"
Close #NoFH
' ----------------------------------------- Recherche Prog associé
Reponse = FindExecutable(FichDef, BiDef, ProgDef)
DefauProg = Trim(ProgDef)
' -----------------------------------------
If Reponse <32 Or IsEmpty(DefauProg) Then DefauProg Vl3275
Kill FichDef
End Function
' ----------------------------------------------------------
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
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.