Je n'arrive pas à imprimer en pdf dans trois fichiers différents (la macro s'exécute normalement sans erreur ! mais rien dans les fichiers en questions), j'ai mis le code suivant :
Code:
For j = 1 To 3
chemin = "C:\Documents and Settings\Moi\Bureau\"
nom = Sheets(j).Name.[a1].Value & " .pdf"
Tablo = Array("Chèques", "LCR", "Virements")
Sheets(j).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Tablo(j - 1) & "\" & nom
Next