XL 2016 vba créer un classeur pour chaque feuille d'un classeur

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #16

Re

@MONTREAL2020
Quand bug, on peut dégainer la boite à message
Qu'est-ce qui s'affiche ?

Enrichi (BBcode):

Sub test_OK()
Dim strPath$, ws As Worksheet
strPath = ThisWorkbook.Path & "\"
For Each ws In ThisWorkbook.Worksheets
    If InStr(1, "DATA BASE PRODUITS Liste Acheteurs", ws.Name) = 0 Then
       NOM_FIC = ws.Name & "_Price_List_" & Format(Date, "ddmmyy") & ".xlsx"
MsgBox ws.Name
      ' ws.Copy
       'ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
       'ActiveWorkbook.Close True
    End If
Next ws
End Sub

NB: Bien entendu, il existe dans le classeur des feuilles nommées (*) comme sur la ligne bleue des Vosges
(*): incluant les espaces dont on se demande pourquoi ils naquirent

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #17

Ça marche comme sur des roulettes

Merci infiniment JM

À ciao

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #18

Re

@MONTREAL2020
Donc où était l'erreur dans ce cas ?

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #19

Sincèrement je ne saurais te le dire.
Mais j'avais remis les ligne de code et ça a fonctionné .

Par contre je vais l'essayer plus tard sur plusieurs acheteurs (onglets)
Aussi un petit bémol, il le fait pour toutes les feuilles du classeur.

'ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
'ActiveWorkbook.Close True

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #20

Re

@MONTREAL2020
Il me semble que dans le fichier exemple, il n'y avait pas de feuille Pays, non ?

La macro est basée sur le fichier exemple.

Si tu changes les règles du jeu, c'est toi qui créé le bémol
Pas ma macrO


Liste le nom de toutes les feuilles qu'il faut exclure.

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #21

Oui c'est juste. Je voulais le faire avec d'autre feuille en plus.

mais maintenant je viens de comprendre que s'il y a des feuilles à exclure, il faut les introduire dans le code
comme "DATA BASE PRODUITS Liste Acheteurs",

Ya rien qui sépare le nom des feuilles ( point virgule ou virgule ) ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #22

Re

@MONTREAL2020
J'attends la liste
(voir fin de mon message précédent)
(pour modifier mon code en conséquence)

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #23

Juste les 3 feuilles
DATA BASE PRODUITS
Liste Acheteurs
Pays

le reste c'est des feuilles dédiées aux acheteurs .

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #24

Re

@MONTREAL2020
Je te laisse étudier ce petit test
1) Sur un classeur vierge, avec une seule feuille
Lance la macro nommée cree_Exemple

Code:

Sub cree_Exemple()
Sheets(1).Name = "DATA BASE PRODUITS"
Sheets.Add(after:=Sheets(1)).Name = "Liste Acheteurs"
Sheets.Add(after:=Sheets(2)).Name = "Pays"
For i = 4 To 8
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "STAPLE_" & Format(i, "00")
Next
End Sub

Puis lance cette macro

Code:

Sub test_boucle()
Dim exclure, F As Worksheet
exclure = Array("DATA BASE PRODUITS", "Liste Acheteurs", "Pays")
For Each F In Worksheets
 Matched = Application.Match(F.Name, exclure, 0)
If IsError(Matched) Then
MsgBox F.Name & " <- feuille à supprimer!", vbCritical, "Test Suppression"
End If
Next
End Sub

A partir de là; il n'y a plus qu'a adapter mon précédent code en conséquence.


Je te laisse mettre les mains dans le cambouis.

NB: Je reviendrais voir plus tard si tu as réussis

 

Vote positif 0 Vote négatif

Solution

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #25

Magnifique

Merci infiniment

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #26

Re

@MONTREAL2020
C'est tellement magnifique que je ne vois comment tu as modifié le code de la macro#21 avec les derniers éléments fournis


Tu as le droit de le publier dans ta discussion
(Cela pourrait servir à d'autres membres avec une problématique similaire.)

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #27

JM,

J'ai raté un bout, LoL macro#21 ...
avec VBA ca va être une histoire passionnelle
Quant à la publication, je vais sous peu

Thanks buddy

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #28

Re

Il fallait lire la macro postée dans le message N° 21
(Le numéro qui apparait en haut à droite du message)

Par exemple ce message est le message#33

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 26 Octobre 2022

• #29

Bonjour,

SOLUTION BEN BIEN UTILE POUR UNE PROBLÉMATIQUE DE CRÉER À PARTIR D'UN CLASSEUR DE DÉPART CONTENANT PLUSIEURS FEUILLES.
1- Un classeur pour chaque feuille excepté les feuilles précisées dans le code que ne vous souhaitez pas extraire.
2- Les nommer
3- Enregistrer les classeurs dans le même dossier du classeur de base

Macro: JM Staple1600

Code:

Code:
Sub test_boucle()
Dim exclure, F As Worksheet
exclure = Array("DATA BASE PRODUITS", "Liste Acheteurs", "Pays")
For Each F In Worksheets
 Matched = Application.Match(F.Name, exclure, 0)
If IsError(Matched) Then
MsgBox F.Name & " <- feuille à supprimer!", vbCritical, "Test Suppression"
End If
Next
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2022

• #30

Euh ? WTF

Je parlais de ce que toi tu avais modifié

L'adaptation aurait dû être celle-ci, non ?

VB:

Sub export_Feuilles()
Dim exclure, F As Worksheet
exclure = Array("DATA BASE PRODUITS", "Liste Acheteurs", "Pays")
For Each F In Worksheets
 Matched = Application.Match(F.Name, exclure, 0)
If IsError(Matched) Then
 NOM_FIC = F.Name & "_Price_List_" & Format(Date, "ddmmyy") & ".xlsx"
       F.Copy
       ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
       ActiveWorkbook.Close True
End IF
Next
End Sub

Mais apparemment tu n'as pas trop mouillé la chemise

 

Vote positif 0 Vote négatif