Discussion :

[OXdOZ]

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,

[OXdOZ]

Finalement cela a marché avec seulement l'extension "*.xls"

[RyuAutodidacte]

Bonjour,
Tu devrais essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chemin = "ton_chemin\"
    Fich = Dir(chemin)

Attention, c'est pour l'ensemble des fichiers dans ton dossier source.
Donc le mieux c'est de mettre dans ton dossier seulement les fichiers excel concernés
Si c'est le cas, tant mieux