Ouvrir un fichier Doc et PDF avec Excel et VBA
Bonjour le forum,
J'arrive à ouvrir un fichier .doc via le vba d'excel en sélectionnant au préalable dans l'éditeur de VBA. Outils/Références/ et je coche Microsoft Word 11.0 Object Library.
Ensuite j'effectue le code suivant (trouver sur le forum, merci) :
Sub ouverture()
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\.......\....\Mes documents\essai.doc")
End sub ()
Et ça fonctionne parfaitement.
Ensuite j'ai besoin de faire la même chose avec des fichiers .pdf donc j'installe Adobe acrobat 8.0 Type Library (il n'y a pas Object Library) et dans ce cas ça ne fonctionne pas.
Puis je avoir vos aides et conseils.
Merci d'avance
Bonjour Marky93,
essaie avec FollowHyperlink comme on a fait dans ce fil
https://forum.excel-pratique.com/viewtopic.php?t=12174&start=10
c'est à la toute fin
en gros la commande est
ActiveWorkbook.FollowHyperlink Address:=NomFichierOuvriret en plus t'as pas à faire de référence vers Word ou Acrobat
Merci Math mais pour mon besoin je ne peux pas utiliser car je veux Ouvrir le fichier et l'imprimer en automatique.
J'ai trouvé ça comme code en surfant mais il ne trouve pas le fichier alors que le chemin est correct.
'Dim Path as String
'Path = "C:\Documents and Settings\....\Mes documents\........\Plans"
'Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.EXE " & ActiveWorkbook.Path & "\B24.pdf", vbNormalFocus
regarde le code de la discussion suivante, c'est ce que tu veux faire:
Ca ne fonctionne toujours pas, j'ai réduit le code à ça :
Sub ShellOuvre()
Dim NomFichier As String
NomFichier = "C:\Documents and Settings\.......\B24.pdf"
ShellExecute 0, "print", NomFichier, "", "", 0
End Sub
Il m'indique dans Adobe "Une erreur est survenue lors de l'ouverture de ce document.Ce fichier est déjà ouvert ou utilisé pour une autre application".
Le fichier est pourtant sur Mon disque Dur et bien fermé???
peut-être que l'instance de acrobat s'est mal fermé...
essait en redémarrant l'ordi ou bien avec un autre fichier, un fichier .doc par exemple.
Ca fonctionne.
J'ai changé de fichier et sans pb.
Dire que ça fait une heure que je suis sur le code.
Merci de ton aide,