none
Sauver une feuille de calcul RRS feed

  • Question

  • Bonjour,
    Je voudrais savoir comment sauvegarder une feuille de calcul dans un nouveau classeur indépendamment du classeur actif.
    Pour l'instant j'ai trouver une solution mais elle semble trop lourde ...
    Je dois sauver mon classeur actif;
    créer une feuille de calcul avec mes resultat produits dans le classeur actif;
    fermer toutes les autres feuilles de calculs;
    changer le nom du classeur
    et rechanger le nom de l'autre classeur la copie de mes données.

    Existe une fonction direct pour enregistrer une feuille de calcul dans un classeur ou autre merci .
    Je travail sous excel et que sur des classeurs donc pas de texte ou autre..
    Bonne journée et bonne fetes...
    lundi 29 décembre 2008 11:39

Toutes les réponses

  • Bonjour,

     

    Voici une solution parmi d'autres :

    Code Snippet
    Function SauverLafeuille(ByVal QuelleFeuille As String, ByVal NouveauClasseur As String, ByVal Ecraser As Boolean) As Boolean
        On Error GoTo SauverLafeuille_Error
        Sheets(QuelleFeuille).Copy
        If Ecraser Then
            Application.DisplayAlerts = False
        Else
            Application.DisplayAlerts = True
        End If
        ActiveWorkbook.SaveAs NouveauClasseur, xlNormal
        ActiveWorkbook.Close
       
        SauverLafeuille = True
        On Error GoTo 0
    SauverLafeuille_Exit:
        Exit Function
    SauverLafeuille_Error:
        SauverLafeuille = False
        Resume SauverLafeuille_Exit
    End Function

     

     

    Pour tester...

    Code Snippet

    Sub TesterPourVoir()
    Dim strFeuilleASauver As String

        strFeuilleASauver = "Feuil6"
        If SauverLafeuille(strFeuilleASauver, "C:\data\Nouveau.xls", False) Then
            MsgBox "Classeur créé avec la nouvelle feuille '" & strFeuilleASauver & "'...", vbInformation
        Else
            MsgBox "Le classeur n'a pas pu être créé avec la feuille '" & strFeuilleASauver & "'...", vbExclamation
        End If
    End Sub

     

    Bonne journée...

    jeudi 8 janvier 2009 13:12
    Modérateur