Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
tu trouveras ci dessous 3 methodes differentes pour ouvrir des applications Word ou Powerpoint
Sub LancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""C:\Mes documents\flux prod maint compta.ppt""", 1)
End Sub
Sub OpenWord()
Dim Wrd As Object
Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
Wrd.documents.Open ("C:\Documents and Settings\michel\dossier\general\excel\test.doc")
End Sub
Sub OpenWordV02()
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\michel\dossier\general\excel\test.doc"
End Sub
le principe pour ouvrir un document Acrobat Reader reste le meme :
Sub OpenAcrobat()
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\michel\dossier\general\excel visual basic\visual basic 25\variables\variable.pdf"
End Sub
Sub LancerAcrobat()
Dim Cible
Cible = Shell("C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe ""C:\Documents and Settings\michel\dossier\general\excel visual basic\visual basic 25\variables\Variable.pdf """, 1)
End Sub
pourquoi dis tu que les deux premieres methodes fonctionnent bien ?
le 3eme exemple utilsant FollowHyperlink ne fonctionne pas chez toi ?
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.