Sauvegarde au bon format?

kyp Messages postés 32 Date d'inscription mercredi 27 mars 2002 Statut Membre Dernière intervention 27 juin 2003 - 26 août 2002 à 15:33
kyp Messages postés 32 Date d'inscription mercredi 27 mars 2002 Statut Membre Dernière intervention 27 juin 2003 - 26 août 2002 à 15:41
voila pour mon projet j ai realisé un truc pour sauvegarder les feuilles necessaieres du classeur dsun autre classeur....
voila la macro

Public Sub sauvegarde()

Dim NomFichier
NomFichier = Application.GetSaveAsFilename 'ouverture de la boite de dialogue du browser de fichiers
If VarType(NomFichier) = vbBoolean Then
MsgBox "Save Failed"
ProjectEnd
Else
Windows(sourcefile).Activate
'*****ici on selectionne les feuilles que l'on veut sauver
Sheets(Array(feuilopt0, feuilopt1, feuilopt2, feuilopt3, results, "totalcostyear", "Totalcostton", "TotalCost", "Consumption cost", "Lifetime", "Batch")).Copy
ActiveWorkbook.SaveAs Filename:= _
NomFichier, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close 'on referme
End If
End Sub

mais ca me specifie pas le format de fichiers,donc ca me donne "tous les fichiers " comme extension possible alors que je souhaiterais uniquement pouvoir sauvegarder en xls...comment faire svp.merci d avance

1 réponse

kyp Messages postés 32 Date d'inscription mercredi 27 mars 2002 Statut Membre Dernière intervention 27 juin 2003
26 août 2002 à 15:41
desolé pour le multiposting le proxy etant ce qu il est a l usine je pensais que ca ne marchait pas
0
Rejoignez-nous