bonjour,

je reviens vers vous car j'ai un petit problem que j'arrive pas à résoudre.

je voudrai utiliser la macro que j'ai créé ("Convert_to_PDF"). Pour cela j'ouvre plusieurs fichiers excel pour qu'ensuite,la macro ci-contre automatise tout cela.

cependant, j'ai des fichiers excel en .xls et en .xlsm et du coup ma macro (ci-contre) ne se déclenche pas...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub tout_convertir()
    
    Dim Fich As String
    Const chemin = "L'emplacement où les fichiers excel sont ouverts"
    Fich = Dir(chemin & "*.xls" & "*.xlsm")
    Do While Fich <> ""
        Application.Run ("Convert_to_PDF")
    Fich = Dir
    Loop

End Sub
C'est la ligne en rouge qui a un problem je pense ^^. J'ai mis ça car cela me semblait logique mais apprament pas.

Cordialement,