2 formats dans un classeur

[kika]

Bonjour à tous,

J'aurais une petite question (qui est peut être bête je m'en excuse d'avance!).
Est il possible d'enregistrer dans un classeur les feuillets sous différents foramt. Par exemple 1 en .xls et l'autre en .csv?

Merci d'avance.

 

[Charly2]

Bonsoir kika, le forum,

Je ne pense pas que ce soit possible, du moins dans le même classeur.

Si quelqu'un a des idées...

Amicalement
Charly

 

[myDearFriend!]

Bonsoir kika, Charly2,

Peut-être peux-tu essayer comme ça :

Sub SauvFeuilles()
Dim FeuilXL As Worksheet, FeuilCSV As Worksheet
      Application.ScreenUpdating = False
      Set FeuilXL = Sheets('Feuil1')
      Set FeuilCSV = Sheets('Feuil2')
      'Feuille 1 en XLS
      FeuilXL.Copy
      With ActiveWorkbook
            .SaveAs Filename:='C:\MonClasseurXL.xls', FileFormat:=xlNormal
            .Close False
      End With
      'Feuille 2 en CSV
      FeuilCSV.Copy
      With ActiveWorkbook
            .SaveAs Filename:='C:\MonClasseurCSV.csv', FileFormat:=xlCSV
            .Close False
      End With
      Application.ScreenUpdating = True
End Sub

Cordialement,

 

[kika]

Merci,
Ton code fonctionne.Il me crée 2 classeurs.
Par contre j'ai un petit pb, le fichier .csv contient des virgules et pas des point virgules.

 

[myDearFriend!]

Bonsoir kika, Charly2, le Forum,

Je pense que tu dois pouvoir ajouter l'argument 'Local' comme ci-dessous (tout dépend de ta version Excel je crois) :

Sub SauvFeuilles()
Dim FeuilXL As Worksheet, FeuilCSV As Worksheet
        Application.ScreenUpdating = False
        Set FeuilXL = Sheets('Feuil1')
        Set FeuilCSV = Sheets('Feuil2')
        'Feuille 1 en XLS
        FeuilXL.Copy
        With ActiveWorkbook
                  .SaveAs Filename:='C:\MonClasseurXL.xls', FileFormat:=xlNormal
                  .Close False
        End With
        'Feuille 2 en CSV
        FeuilCSV.Copy
        With ActiveWorkbook
                  .SaveAs Filename:='C:\MonClasseurCSV.csv', FileFormat:=xlCSV, Local:=True
                  .Close False
        End With
        Application.ScreenUpdating = True
End Sub

Cordialement,