Sauver dans plusieurs classeurs y compris les macros

[CdG06]

Bonjour à tous les participants,

Pour des raisons pratiques et de poids, j'utilise le VBA pour sauvegarder en autant de classeurs d'onglets. Seul hic, comment indiquer dans la macro de sauvegarder également dans chaque classeur les macros du classeur d'origine? C'est la panne sèche🙄

Bonne journée à vous.

 

[tototiti2008]

Re : Sauver dans plusieurs classeurs y compris les macros

Bonjour CdG06,

Si les macros se trouvent dans un Module, 2 solutions :
La première, gérer la copie du (des) Module(s) dans chaque classeur généré mais ça peut être un peu compliqué
une piste par là : Visual Basic Editor
La seconde, sauvegarder le classeur complet à chaque fois (SaveCopyAs) puis supprimer les feuilles indésirables, plus simple à coder

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

Merci TotoTiti,

je préfère et de très loin la première solution......en me doutant bien que ca ne sera pas de la tarte! Je continu mes recherches.

 

[tototiti2008]

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

je préfère et de très loin la première solution......

Pourquoi, si ce n'est pas indiscret ?

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

Le classeur d'origine peut contenir plus de cent onglets et est très lourds. La sauvegarde complète est assez longue.

 

[tototiti2008]

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

OK, c'est une bonne raison
Dans le lien que je t'ai fourni, je te conseille donc de regarder la partie export et import de module (IV-E)
Tu exportes les modules du classeur principal
Puis pour chaque fichier généré tu les importe à partir des fichiers .bas exportés

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

Re-

Oui, tu as raison, c'est assez complexe.

Parallelement, je me demande construire ma macro Qui me demanderais
1 )quel onglet je veux garder?
2) détruirais tous les autres
3) me sauvegarderais le classeur........

Ca prendra du temps, mais c'est acceptable.🙂

 

[tototiti2008]

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

peut-être un truc comme ça

Sub ExportFeuille()
Dim NomFeuil, NomExist As Boolean, i As Long, Wkb As Workbook, Sh
    NomFeuil = Application.InputBox(Prompt:="Nom de la feuille à conserver", Title:="Export feuille", Type:=2)
    If VarType(NomFeuil) = vbBoolean Then Exit Sub
    NomExist = False
    For i = 1 To ThisWorkbook.Sheets.Count
        If UCase(ThisWorkbook.Sheets(i).Name) = UCase(NomFeuil) Then
            NomExist = True
            Exit For
        End If
    Next i
    If Not NomExist Then
        MsgBox "Feuille non trouvée"
        Exit Sub
    End If
    ThisWorkbook.SaveCopyAs NomFeuil & ".xlsm"
    Set Wkb = Workbooks.Open(NomFeuil & ".xlsm")
    Application.DisplayAlerts = False
    For Each Sh In Wkb.Sheets
        If UCase(Sh.Name) <> UCase(NomFeuil) Then
            Sh.Delete
        End If
    Next
    Application.DisplayAlerts = True
    Wkb.Close True
    Set Sh = Nothing
    Set Wkb = Nothing
End Sub

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

En effet. Ce d'autant plus qu'en partant sur ma première idée, il m'aurait fallu trouver l'astuce pour que chaque classeur ait sa macro et que "ThisWorkbook" de chaque classeur soit correctement rempli pour démarrer à l'ouverture du dit classeur🙁.

Merci de tes réponses.

 

[MJ13]

Re : Sauver dans plusieurs classeurs y compris les macros

Bonjour Gdg06, Tototiti

J'avais fait ce fichier pour sauvegarder des fichiers en sélectionnant des onglets avec un USF. A voir si c'est adaptable 😕

Ensuite, il faudra rajouter les macros. Il y pas mal de sujet sur XLD à ce propos 🙂. Si besoin, j'essaierai d'en trouver.

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

Merci MJ 13, effectivement cela est sympa pour sélectionner plus facilement les onglets.

 

[MJ13]

Re : Sauver dans plusieurs classeurs y compris les macros

Re

Sinon, ici, il y a des codes pour copier du code VBA vers un autre classeur. Bon, il faut trier ou adapter les macros 😱:

https://www.excel-downloads.com/threads/faire-une-maj-de-macro-dun-classeur-a-autre.165338/

 

[CdG06]

Re : Sauver dans plusieurs classeurs y compris les macros

Merci, je vais y faire un grand tour, y a toujours à apprendre et à redécouvrir.........