Jean-Eric,
Je ne suis pas du tout expert en vba. Autrement dit je ne comprend pas le code que tu m'a donné: (je l'ai copié collé betement et ca a fonctionné une fois. Mais pas la deuxieme):
Public Sub CreerPDFs()
Dim ws As Worksheet
Dim Chemin As String, Fichier As String
Chemin = "X:\Transport\TOM\OUTIL COMPTA\archive\"
For Each ws In ActiveWorkbook.Worksheets
Fichier = ws.Range("D9").Value
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End Sub
Je me suis assuré que mes cellules D9 ne sont jamais vide (Soit du texte soit des valeurs)
Lorsque je lance la macro, cette partie est en erreur (surlignement en jaune) :
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Quelles sont les valeurs que prennent tes cellules en D9 ? N'y a t il pas des caractères non valides ? etc...
Etc = ??? Car je ne pense pas qu'il y ai de caractère non valide.
Merci,
Tom