Discussion :

[jeanpierre78]

Bonjour,

Pour exporter les résultats (feuilles Compte de Résultat, Bilan, Budget prévisionnel), je crée un nouveau classeur :

Code :

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

1
2
3
4
5
6
7
8
9
    'AJOUTER LES RESULTATS A UN NOUVEAU CLASSEUR
    '-------------------------------------------
    ' Copier les feuilles dans un nouveau classeur
    With ThisWorkbook
        Sheets(Array(shResult, shBilan, shBudget)).Copy
    End With
 
    ThisWorkbook.SaveAs Chemin & Nom_Export         ' Sauvegarder le classeur Section_Export
    ThisWorkbook.Close

La macro me crée un classeur "Classeur2", où le 2 peut être 3 ou autre, mais sauvegarde mon classeur de base "Compta_section" où est le code.

Je n'ai pas trouvé comment désactiver la classeur "Compta_section" pour que la sauvegarde soit correcte.

Jean-Pierre

[MarcelG]

Bonsoir à toi, Bonsoir le Forum,

Code :

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

ThisWorkbook

désigne le classeur où est écrit ta procédure.
Ton problème est donc logique.

Remplace

Code :

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

ThisWorkBook

par

Code :

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

ActiveWorkbook

[jeanpierre78]

Bonsoir,

Merci et bravo, c'est la solution.

Erreur de débutant.

Jean-Pierre

[MarcelG]

Bonjour à toi, Bonjour le Forum,

Quelques détails afin de parfaire ton code.

1 - Si tu utilises la méthode

Code :

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

With

, alors il te faut affecter au moins un objet à l'objet principal, ce qui se traduit par un . avant l'objet attaché, sinon la méthode ne sert à rien.

Code :

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

1
2
3
 With ThisWorkbook
       .Sheets(Array(shResult, shBilan, shBudget)).Copy
 End With

Cela dit, la méthode n'est vraiment valable que s'il y a plusieurs objets attachés, ce qui n'est pas le cas ici.

2 - Je suppose que les objets de ton tableau Array sont des variables affectées à des feuilles de calcul.
Il est de bon ton de libérer ces variables en fin de procédure.

Exemple

Code :

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

Set shResult = Nothing

Bonne journée.