Ouvrir les fichiers PDF d'un dossier

Bonjour, dans le cadre de mon travail, il faut qu'a l'aide d'un macro j’arrive à ouvrir tous les fichiers PDF d'un dossier. J'ai trouver un macro capable de réaliser cette tache mais je n'arrive pas a le remplir correctement.

Le macro est :

Sub InsertionVE()

ChDir "C:\Users\BE1.CMAS\Documents\1\Plan machine\RE"

monfichier = Dir("*.*")

While monfichier <> ""

Workbooks.Open monfichier

monfichier = Dir()

Wend

End Sub

Je dois ouvrir les PDF du dossier RE si quelqu'un peut m'aider.

Cordialement Arnaud

bonjour,

une proposition

Sub InsertionVE()

    rep = "C:\Users\BE1.CMAS\Documents\1\Plan machine\RE"
    monfichier = Dir("*.pdf")
    While monfichier <> ""
        Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\acrord32.exe " & rep & monfichier
        monfichier = Dir()
    Wend
End Sub
Rechercher des sujets similaires à "ouvrir fichiers pdf dossier"