Discussion :

[clodius]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clodius]

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