macro pour ouvrir document powerpoint ou world

  • Initiateur de la discussion Initiateur de la discussion davidp
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

davidp

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

qui serait pour l'exemple sur le bureau.


Merci d'avance
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
432
Réponses
10
Affichages
546
Réponses
10
Affichages
197
Retour