Sauver dans plusieurs classeurs y compris les macros

tototiti2008

XLDnaute Barbatruc

• 19 Septembre 2011

• #2

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

 

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #3

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Septembre 2011

• #4

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

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

Cliquez pour agrandir...

Pourquoi, si ce n'est pas indiscret ?

 

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #5

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Septembre 2011

• #6

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

 

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #7

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.🙂

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Septembre 2011

• #8

Re : Sauver dans plusieurs classeurs y compris les macros

Re,

peut-être un truc comme ça

Code:

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

 

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #9

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Septembre 2011

• #10

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.

 

Pièces jointes

• Copie de Macro_Sauvegarde_Feuilles_BD_MJ.zip

  28.7 KB · Affichages: 37

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #11

Re : Sauver dans plusieurs classeurs y compris les macros

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Septembre 2011

• #12

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/

 

Vote positif 0 Vote négatif

C

CdG06

Guest

• 19 Septembre 2011

• #13

Re : Sauver dans plusieurs classeurs y compris les macros

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

 

Vote positif 0 Vote négatif