VBA - Problème d'extension de xls et xlsm

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:

---

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,

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

Bonjour,
Tu devrais essayer ceci :

Code:

---

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