econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 22 sept. 2006 à 22:05
Dans le premier cas, çà donnerait ceci :
Il faut placer un contrôle FileListBox sur ta feuille, nommé File1.
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 Command1_Click()
Dim i As Long
For i = 0 To File1.ListCount - 1
ShellExecute Me.hwnd, "open", File1.Path & "" & File1.List(i), vbNull, vbNull, 5
Next i
End Sub
Private Sub Form_Load()
File1.Path = "C:\mon_dossier"
End Sub
Manu --------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 22 sept. 2006 à 21:58
Salut,
Tu veux tous les ouvrir dans leur programme associé (xls avec Excel, doc avec Word, ...) ou bien être capable de lire leur contenu et de le mettre dans des variables ?
Manu --------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 22 sept. 2006 à 22:06
Valable qu'il y ait 3 fichiers dans le dossier ou 300.
Mais avec 300 fichiers, çà sera un peu long à l'exécution
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Vous n’avez pas trouvé la réponse que vous recherchez ?