Boucle macro ne fonctionne plus - bug sur next i

Bonjour,

j'ai créé une macro pour enregistrer un grand nombre de feuille excel (fiches pays) en pdf. La macro fonctionnait bien il y a quelques mois. Maintenant j'ai un message d'erreur (connexion interrupted) and quand je clique sur debugger, la ligne "next i" est surligné en jaune.

Voici la macro:

Sub Saveall()

Sheets("Fiche Pays to print Win7").Select

For i = 1 To 144

Range("S11").Value = i

ThisFile = ActiveWorkbook.Path & "\" & Range("S12").Value

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisFile, IgnorePrintAreas:=False, From:=5, To:=8

Next i

End Sub

Sauriez-vous pourquoi ca ne fonctionne plus.

Merci,

Raymond

Salut Raymond et bienvenue sur le Forum

Un gars est allé chez son garagiste et lui a montré une photo de son moteur qui ne fonctionnait plus. Le garagiste lui a demandé de lui apporter sa voiture.

On peut voir ton fichier ?

Cordialement.