[VBA Excel] Bouton Ouvrir
Résolu/Fermé
schont
Messages postés
33
Date d'inscription
samedi 14 juillet 2007
Statut
Membre
Dernière intervention
11 juillet 2013
-
18 juil. 2007 à 09:42
kev - 21 juil. 2008 à 09:33
kev - 21 juil. 2008 à 09:33
A voir également:
- Créer un bouton dans excel pour ouvrir un fichier
- Comment ouvrir un fichier epub ? - Guide
- Créer un compte gmail - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .bin - Guide
- Créer un compte google - Guide
3 réponses
Utilisateur anonyme
19 juil. 2007 à 01:26
19 juil. 2007 à 01:26
Bonjour,
À défaut d'autres suggestions :
Lupin
À défaut d'autres suggestions :
Option Explicit ' Sub OuvrirFichier() Dim NomsFichiers(10) As String, Boucle As Integer NomsFichiers(0) = "C:\Document\Test.doc" NomsFichiers(1) = "C:\Document\Test.htm" NomsFichiers(2) = "C:\Document\Test.mdb" NomsFichiers(3) = "C:\Document\Test.pdf" NomsFichiers(4) = "C:\Document\Test.pps" NomsFichiers(5) = "C:\Document\Test.txt" NomsFichiers(6) = "C:\Document\Test.xls" '... For Boucle = 0 To 6 MsgBox "En attente du prochain : " & NomsFichiers(Boucle) RunExe (NomsFichiers(Boucle)) Next Boucle End Sub ' Sub RunExe(Command) On Error Resume Next Dim objShell As Variant Set objShell = CreateObject("WScript.Shell") objShell.Run Command, 1, True Set objShell = Nothing End Sub '
Lupin
schont
Messages postés
33
Date d'inscription
samedi 14 juillet 2007
Statut
Membre
Dernière intervention
11 juillet 2013
10
19 juil. 2007 à 09:37
19 juil. 2007 à 09:37
Merci à tous,
j'ai trouvé une facon plus simple pour ouvrir mes fichiers :
j'ai trouvé une facon plus simple pour ouvrir mes fichiers :
Private Sub CommandButton5_Click() ' le nom de mon fichier à ouvrir est UserForm3.TextBox11.Text Shell "explorer.exe " & UserForm3.TextBox11.Text End Sub
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
18 juil. 2007 à 11:39
18 juil. 2007 à 11:39
salut schont,
utilise la fonction Shell :
Bien sûr, il faudra faire un aiguillage pour lancer le bon exe en fonction du fichier retenu !
utilise la fonction Shell :
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\Acrord32.exe C:\homeware\MonFichier.pdf"
Bien sûr, il faudra faire un aiguillage pour lancer le bon exe en fonction du fichier retenu !