A voir également:
- Créer un bouton dans excel pour ouvrir un fichier
- [VBA Excel] Bouton Ouvrir ✓ - Forum - VB / VBA
- [VBA/Excel] Boutons réduire et agrandir pour UserForm ✓ - Forum - VB / VBA
- Vba excel bouton email ✓ - Forum - Excel
- VBA excel bouton recherche ✓ - Forum - Excel
- VBA/Excel : bouton impression PDF et nom de fichier sur cellule ✓ - Forum - VB / VBA
3 réponses
Utilisateur anonyme
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
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
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 !