Copier les modules dans un nouveau classeur avec VBA

Question

Bonjour,

J'ai une macro qui m'exporte une partie de ma classeur source dans le but de le partager avec d'autres services.

Si cette macro exporte les feuilles de calculs ainsi que les formulaires : ce n'est pas le cas des modules où sont stockés la majorité des procédures qui permettant au fichier de fonctionner.

Voici l'extrait de la macro qui exporte les feuilles de classeur :

On Error Resume Next

  MkDir Chemin

  On Error GoTo 0

  'On copie les feuilles à garder

  Sheets(Array("Facture", "Réglages")).Copy 'respecter la casse

    With ActiveWorkbook

        .SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

        .Close

    End With

Comment puis-je l'adapter afin que tous mes modules soient également copiés vers ce nouveau classeur ?

Merci d'avance,

Baptiste

Answer 1

Oups, désolé :

On Error Resume Next

MkDir Chemin

On Error GoTo 0

With ActiveWorkbook

.SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = False

For Each Sh In Sheets

If Sh.Name <> "CROISEMENT APTn" And Sh.Name <> "Réglages" Then

  Sh.Delete

End If

Next Sh

.Close

End With

Application.DisplayAlerts = True

Daniel

Answer 2

Il faut le rouvrir avec un :

WorkBooks.Open ...

Daniel

Answer 3

Re Daniel,

On touche au but, les feuilles non voulues sont bien masquées dans mon fichier export.

Toutefois, dans la version précédente de mon code, ce dernier me permettait de rester sur le fichier source après la procédure d'export.

Actuellement, lorsque la procédure se termine mon fichier source est également fermé...

Comme puis-je retrouver cette fonctionnalité ?

Merci d'avance,

Baptiste

Answer 4

Bonjour Daniel,

J'ai adapté votre code de sorte qu'il ferme le classeur d'export après avoir supprimé les feuilles en trop.

On Error Resume Next

MkDir Chemin

On Error GoTo 0

'On copie les feuilles à garder

Sheets(Array("CROISEMENT APTn", "Réglages")).Copy 'respecter la casse

With ActiveWorkbook

.SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = False

For Each Sh In Sheets

If Sh.Name <> "CROISEMENT APTn" And Sh.Name <> "Réglages" Then

  Sh.Delete

End If

Next Sh

.Close

End With

Application.DisplayAlerts = True

Toutefois, lorsque j'ouvre ce nouveau fichier, je constate que les feuilles en trop ont été supprimées mais aussi que les modules ne sont toujours pas présent.

Cordialement,

Baptiste

Answer 5

Bonjour,

Il faut faire un "enregistrer sous" et supprimer les feuilles en trop :

On Error Resume Next

MkDir Chemin

On Error GoTo 0

Sheets(Array("Facture", "Réglages")).Copy 'respecter la casse

ActiveWorkbook.SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = False

For Each Sh In Sheets

If Sh.Name <> "Facture" And Sh.Name <> "Réglages" Then

  Sh.Delete

End If

Next Sh

Application.DisplayAlerts = True

Cordialement.

Daniel