macro pour ouvrir document powerpoint ou world

[davidp]

SVP,existe t'il une macro pour ouvrir un document powerpoint ou world

qui serait pour l'exemple sur le bureau.


Merci d'avance

 

[michel]

bonjour David

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


bonne journee
michel

 

[davidp]

Je te remercie ,les 2 premières méthodes fonctionnent à merveille.


Je ne voudrais pas abuser mais as tu une méthode pour ouvrir à l'aide d'une macro un document en PDF à savoir?


Adobe Acrobat



Bonne journée et encore merci

 

[michel]

rebonjour David

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 ?


bon apres midi
michel

 

[davidp]

Merci ,tu as raison


les 3 méthodes fonctionnent


A bientot