Command-Click "ouverture fichier"
Résolu
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
-
20 août 2006 à 14:36
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 21 août 2006 à 15:45
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 21 août 2006 à 15:45
A voir également:
- Command-Click "ouverture fichier"
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Simulateur de click - Forum Delphi / Pascal
- Échec de l'ouverture de session de l'utilisateur ✓ - Forum SQL
- Fichier plat ✓ - Forum C# / .NET
12 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
21 août 2006 à 14:50
21 août 2006 à 14:50
Salut il te faut DECLARER la constante SW_SHOWNORMAL (comme toute autre variable)
Option Explicit
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 Const SW_SHOWNORMAL As Long = 1
Private Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL
End Sub
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Julien
Option Explicit
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 Const SW_SHOWNORMAL As Long = 1
Private Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL
End Sub
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Julien
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
21 août 2006 à 15:45
21 août 2006 à 15:45
Re,
De rien pense a appuyer sur réponse acceptée sur le ou les posts qui ont pu t'aider.
Si tu le fait lors de l'ecriture de ce message excuse.
@+, Julien
De rien pense a appuyer sur réponse acceptée sur le ou les posts qui ont pu t'aider.
Si tu le fait lors de l'ecriture de ce message excuse.
@+, Julien
alosamoelle
Messages postés
129
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2009
1
20 août 2006 à 14:45
20 août 2006 à 14:45
Bonjour, il y a une source qui explique cela donc tu peux allez voir ici http://www.vbfrance.com/codes/SHELLEXECUTEEX-OUVRIR-FICHIER-AVEC-SON-LECTEUR-DEFAUT-FERMER_18251.aspx
Et bienvenue sur le forum
Et bienvenue sur le forum
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
20 août 2006 à 15:41
20 août 2006 à 15:41
Salut,
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
Pour l'utiliser :
ShellExecute Me.hwnd, vbNullString, "C:\Chemin\NomFichier.extension", vbNullString, "C:", SW_SHOWNORMAL
++
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
Pour l'utiliser :
ShellExecute Me.hwnd, vbNullString, "C:\Chemin\NomFichier.extension", vbNullString, "C:", SW_SHOWNORMAL
++
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
20 août 2006 à 19:00
20 août 2006 à 19:00
Option Explicit<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>
Private Sub Command2_Click()
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
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"""
ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls", vbNullString, "C:", SW_SHOWNORMAL
End Sub
Je n'arrive pas à mettre cette procédure sur ma command_Click()
je pense qu'il a une grosse erreur quelque part
Merci de m'aider à résoudre ce problème
j'aurais surment besoin de cours
coco
Private Sub Command2_Click()
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
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"""
ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls", vbNullString, "C:", SW_SHOWNORMAL
End Sub
Je n'arrive pas à mettre cette procédure sur ma command_Click()
je pense qu'il a une grosse erreur quelque part
Merci de m'aider à résoudre ce problème
j'aurais surment besoin de cours
coco
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
20 août 2006 à 19:38
20 août 2006 à 19:38
Salut,
essai comme ceci :
Option Explicit
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 Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL
End Sub
@ ++
essai comme ceci :
Option Explicit
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 Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL
End Sub
@ ++
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
21 août 2006 à 10:44
21 août 2006 à 10:44
Voici le message d'erreur<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">"erreur de compilation
Variable non définie"
<v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??><o:lock aspectratio="t" v:ext="edit">
<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> Private Sub Command2_Click() en jaune
SW_SHOWNORMAL en bleu</v:shapetype></o:lock></v:shapetype>
Variable non définie"
<v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??><o:lock aspectratio="t" v:ext="edit">
<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> Private Sub Command2_Click() en jaune
SW_SHOWNORMAL en bleu</v:shapetype></o:lock></v:shapetype>
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
21 août 2006 à 10:59
21 août 2006 à 10:59
Salut,
deus possibilités
- le bouton que tu mis sur ta feuille ne s'appelle pas Command2 ?
- La constante SW_SHOWNORMAL n'a pas été déclarer ( Public Const SW_SHOWNORMAL = 1)
@+, Julien
deus possibilités
- le bouton que tu mis sur ta feuille ne s'appelle pas Command2 ?
- La constante SW_SHOWNORMAL n'a pas été déclarer ( Public Const SW_SHOWNORMAL = 1)
@+, Julien
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
21 août 2006 à 11:22
21 août 2006 à 11:22
le bouton est bien Command2
et sur la constante j'ai rajouté = 1
et c'est toujours pareil
Merci de votre aide
et sur la constante j'ai rajouté = 1
et c'est toujours pareil
Merci de votre aide
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
21 août 2006 à 13:47
21 août 2006 à 13:47
Salut,
Donne le code exact, on pourra peu etre mieux cerner le problème
@+, Julien
Donne le code exact, on pourra peu etre mieux cerner le problème
@+, Julien
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
21 août 2006 à 14:29
21 août 2006 à 14:29
Resalut
voici exactement le code de la command_Click()
Option Explicit<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
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
<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??>
<v:line id="_x0000_s1026" style="Z-INDEX: 1; POSITION: absolute" to="468pt,-9pt" from="0,-9pt">
</v:line>
Private Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL = 1
End Sub
voici exactement le code de la command_Click()
Option Explicit<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
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
<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??>
<v:line id="_x0000_s1026" style="Z-INDEX: 1; POSITION: absolute" to="468pt,-9pt" from="0,-9pt">
</v:line>
Private Sub Command2_Click()
Dim Ouvrir As String
Ouvrir = "C:\Documents and Settings\claudine\Mes documents\sauvegarde de docs\documents coco avant formatage\formation\article.xls"
ShellExecute Me.hwnd, vbNullString, Ouvrir, vbNullString, "C:", SW_SHOWNORMAL = 1
End Sub
cs_BOOK
Messages postés
38
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
23 juillet 2007
21 août 2006 à 15:17
21 août 2006 à 15:17
Merci c'est ok
tout marche à merveille
coco
tout marche à merveille
coco
