Format d'enregistrement

Bonjour,
Je souhaite forcer le format en utilisant saveAs et FileFormat. Or le simple fait d'ajouter FileFormat =56 plante la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Application.ActiveSheet.Copy Application.ActiveSheet.Name = edg   MiseEnForme ' on lance la procédure de mise en forme   Application.ActiveWorkbook.SaveAs Filename = chemin & "\" & edg & "-" & s & "-" & Datefichier, FileFormat = 56 Application.ActiveWorkbook.Close   Application.DisplayAlerts = False Application.ActiveSheet.Delete Application.DisplayAlerts = True

---

Je ne vois pas ce qui plante il ne me signale pas d'erreur de syntaxe !

Merci pour votre aide.

Bonjour,
FileFormat dépends de la version d'excel que vous utilisez. Si vous enregistrez depuis xl < 2007, il convient de mattre fileformat = -4143, pour les versions 2007 et supérieures, fileformat=56.
Pour gérer l'utilisation de votre classeur excel sur toutes les versions, faites un test comme ceci (sources):

Code:

---

1 2 3 4 5

If Val(Application.Version) < 12 Then ' Vous utilisez Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else ' Vous utilisez excel 2007 ou versions ultérieures FileExtStr = ".xls": FileFormatNum = 56 End If

---

merci ça a l'air d'être ça