ticrain
Messages postés178Date d'inscriptionjeudi 15 mars 2007StatutMembreDernière intervention 2 janvier 2015
-
26 avril 2007 à 14:23
mortalino -
28 avril 2007 à 01:03
Je dois ouvrir des fichier excel et word que joré selectionner dans une listobox en appuyant sur un bouton:
est ce que qqun peut m'aider je c que shellexecute est efficace pour cela, g commencé un bout de code mais je c pas le finir ce que je peut vous dire c'est que les fichier .DOC et .XLS se trouve sur C:.
J'ai commencé se bout de code mais je c meme pas si je pars dans le bon sens? et surtout il est pas fini si qqun peut m'aider se serai sympa.
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 CommandButton2_Click()
Dim nomdoc As String
nomdoc = ListBox1.List(ListBox1.ListIndex)
...........
..........je sais plus après
Private Sub List1_Click()
Dim Fichier As String
Fichier = List1.List(List1.ListIndex)
Call ShellExecute(0, "open", "C:\Test\" & Fichier, vbNullString, vbNullString, SW_MAXIMIZE)
End Sub , ----
[code.aspx?ID=41455 By Renfield]
MAIS ATTENTION Il faudra simplement avoir les noms cette fois ci et AUCUN chemin
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 26 avril 2007 à 16:45
Mais laisse pas tomber une fois que tu vois le bout du tunel jrivet vient de te donner le code qui correspond à ce que tu veux exactement! De plus c'est pas shellexecute qui te pose problème mais le reste!
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Vous n’avez pas trouvé la réponse que vous recherchez ?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 avril 2007 à 16:46
Re,
AH NON APRES AUTANT DE TEMPS PASSER A T'AIDER TU VA ME FAIRE LE PLAISIR DE FAIRE MARCHER CE TRUC. Si tu te démonte à chaque difficultés, tu n'es pas prêt d'apprendre.
laisse moi dire que si tu abandonne [auteurdetail.aspx?ID=1007130 ticrain] comme gars
OK je sors
@+: Ju£i?n Pensez: Réponse acceptée
ticrain
Messages postés178Date d'inscriptionjeudi 15 mars 2007StatutMembreDernière intervention 2 janvier 2015 26 avril 2007 à 16:50
Voici se que j'ai a present quand je clique sur le commandbutton2 rien ne se passe mais ya plus d'erreur on est plus loin regarder si vous voyé une erreur dans ce que j'ai ecrit: merci de m'aider comme ca
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_MAXIMIZE = 3
Private Sub commandbutton2_Click()
Dim nomdoc As String
nomdoc = ListBox1.List(ListBox1.ListIndex)
Call ShellExecute(0, "open", "c:\&nomdoc", vbNullString, vbNullString, SW_MAXIMIZE)
End Sub
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 avril 2007 à 16:54
Non mai sla on va vraiment finir par croire que tu veux nous faire tourner en bourrique ou que simplement tu en veux a notre santé mental.
Tu n'ai même pas capable de regarder ce qu'on code.
JE marque
"C:\Test" & Fichier
Et TOI (je te marque l'équivalent
"C:\Test\&Fichier"
C'est sur si tu ne va pas un peu attention...
Mais l me semble que cette réflexion pour ce qui concerne la concaténation t'avais déjà été faite.
@+: Ju£i?n Pensez: Réponse acceptée
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 26 avril 2007 à 16:55
Ce n'est pas comme ça que l'on fait la concaténation de chaine de caractère:
"c:\&nomdoc",
mais "C:" et nomdoc
ce qui donne:
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_MAXIMIZE = 3
Private Sub commandbutton2_Click()
Dim nomdoc As String
nomdoc = ListBox1.List(ListBox1.ListIndex)
Call ShellExecute(0, "open", "C:" et nomdoc, vbNullString, vbNullString, SW_MAXIMIZE)
End Sub
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
ticrain
Messages postés178Date d'inscriptionjeudi 15 mars 2007StatutMembreDernière intervention 2 janvier 2015 26 avril 2007 à 16:56
Je l'avais modifié avant que tu me le dise voici ce que j'ai et rien ne se passe:
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_MAXIMIZE = 3
Private Sub commandbutton2_Click()
Dim nomdoc As String
nomdoc = ListBox1.List(ListBox1.ListIndex)
Call ShellExecute(0, "open", "C:" & nomdoc, vbNullString, vbNullString, SW_MAXIMIZE)
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 avril 2007 à 17:07
8 pages (rien qu'ici... car il y en a aussi ailleurs)!!!
Si je ne m'étais pas atrocement abimé un muscle lombaire, je me la "m***rais"... mais çà me ferait mal (pas de me la "m**dre" mais de me pencher) !!!
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 avril 2007 à 17:16
Re,
Bon a deux avec la meme chose de vant les yeux ca va être plus facile.
Tu as donc mis ca dans le Code du USER_FOrm RESERVOIR, Est ce que chez toi lorsqu'il s'affiche, la listbox contient les nom de fichiers?
chez moi NON?
il faudrait ajouter ceci dans TOUJOURS dans le Code de RESERVOIR
Private Sub userform_initialize()
Call ComboBox1_initialize
Call Combobox2_initialize
'Ceci est à rajouter
ListBox1.RowSource = "A1:A8"
End Sub , ----
[code.aspx?ID=41455 By Renfield]
Ensuite...
j'ai vu que ta listbox étais en multiselection, EST CE QUE cela veux dire que tu veux pouvoir ouvrir plusieurs fichier d'un seul click sur Ouvrir.
A PRESENT QUE J'AI LE FICHIER ESSAIE DE TE CONCENTRER POUR QUE CA AILLE VITE.