Aide à la programmation
youb8
Messages postés
4
Date d'inscription
mardi 19 avril 2005
Statut
Membre
Dernière intervention
23 avril 2005
-
23 avril 2005 à 10:04
MaxSoldier Messages postés 289 Date d'inscription dimanche 10 août 2003 Statut Membre Dernière intervention 28 février 2009 - 23 avril 2005 à 12:59
MaxSoldier Messages postés 289 Date d'inscription dimanche 10 août 2003 Statut Membre Dernière intervention 28 février 2009 - 23 avril 2005 à 12:59
1 réponse
MaxSoldier
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Statut
Membre
Dernière intervention
28 février 2009
2
23 avril 2005 à 12:59
23 avril 2005 à 12:59
Déja, pour l'ouvrir :
Public 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
Function Exec(File As String, Form As Form) As Integer
On Error GoTo Error
ShellExecute Form.hwnd, "open", File, vbNullString, vbNullString, 5
Exec = 1
Exit Function
Error:
Exec = 0
End Function
Après, pour la remplir...
-=Ar$£nik=-
Public 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
Function Exec(File As String, Form As Form) As Integer
On Error GoTo Error
ShellExecute Form.hwnd, "open", File, vbNullString, vbNullString, 5
Exec = 1
Exit Function
Error:
Exec = 0
End Function
Après, pour la remplir...
-=Ar$£nik=-