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

[MONTREAL2020]

Bonjour,

Je sollicite votre aide pour:
À partir d'un classeur comportant plusieurs feuilles:
1- Créer un classeur chaque feuille du classeur
2- Définir les feuilles qui vont être transformer en classeur
3- Leur donner un nom figurant sur une cellule de la feuille elle même + un suffixe commun à toutes les feuille
4- Les enregistrés dans le même dossier du classeur initial

Merci beaucoup votre support

 

[Staple1600]

Bonjour @MONTREAL2020

Tu as regardé dans les archives du forum?
Car s'y trouvent de nombreux exemples relatifs à ta question

Effectuez une recherche sur Excel Downloads...

excel-downloads.com

 

[MONTREAL2020]

Oui j'avais essayé mais sans succès.

 

[Staple1600]

Re

Et pourtant...
Nous étions en 2013

Séparer des onglets en feuille excel

Bonjour Est il possible de séparer des onglets excel en feuille séparer par un petit programme s'il vous plait par exemple mettre les onglets sur le bureau en attendant de les traiter, sachant que mais onglet a dispatcher commence toujours par fr ou qs Je vous remercie de votre aide...

excel-downloads.com

NB: Cet exemple est pour le point 1)

 

[MONTREAL2020]

Re

Et pourtant...
Nous étions en 2013

Séparer des onglets en feuille excel

Bonjour Est il possible de séparer des onglets excel en feuille séparer par un petit programme s'il vous plait par exemple mettre les onglets sur le bureau en attendant de les traiter, sachant que mais onglet a dispatcher commence toujours par fr ou qs Je vous remercie de votre aide...

excel-downloads.com

NB: Cet exemple est pour le point 1)

Super je vais creusé la dessus et continuer mes recherches sur le forum

 

[Staple1600]

Re

@MONTREAL2020
Pour les points suivants, un fichier Exemple concocté par tes soins permettrait de t'aider plus rapidement
(fichier excel allégé et avec des données ficitves)

 

[MONTREAL2020]

En PJ le classeur
il s'agit de mettre en classeur les 3 dernier onglets et+ car il s'agit de plusieurs onglet
- Nommer les classeurs en fonction de leur onglet+ suffixe (car je souhaiterait aller consolider (power pivot) une fois rempli par leur destinataires
- Les enregistrés dans le dossier ou se trouve le classeur initial qui se trouve dans un chemin de partage interne

merci pour ton aide JM

 

[Staple1600]

Re

La PJ est restée à Montréal

 

[MONTREAL2020]

Re

La PJ est restée à Montréal

C'est juste que ça dit fichier trop volumineux

 

[Staple1600]

Re

@MONTREAL2020
On ne joint jamais le fichier original
Mais un fichier exemple allégé et créé spécialement pour illustrer la question posée.

 

[MONTREAL2020]

C'est juste que ça dit fichier trop volumineux

C'est juste que ça dit fichier trop volumineux

 

[Staple1600]

Re

@MONTREAL2020
Un fichier exemple, c'est bien
Mais des explications détaillées et précises, c'est mieux
Quelles feuilles on exporte en classeur "single" ?
Sam, Amanda ?
Toutes ?

Leur donner un nom figurant sur une cellule de la feuille elle même + un suffixe commun à toutes les feuille

Quelle feuille
Quelle cellule?
Quel suffixe?

 

[MONTREAL2020]

Feuilles à exporter:
- Sam, Amanda, mais aussi d'autres acheteurs selon le besoin hormis DATA BASE PRODUITS et Liste Acheteurs

- Cellule en B1, elle affiche le nom du l'acheteur (TCD) c'est le nom que doit porter le classeur
- Le suffixe : Price_List+date (année)

encore une fois merci

 

[Staple1600]

Re

@MONTREAL2020
Test OK sur mon PC
A tester sur le tien

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"
       ws.Copy
       ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
       ActiveWorkbook.Close True
    End If
Next ws
End Sub

 

[MONTREAL2020]

Re

@MONTREAL2020
Test OK sur mon PC
A tester sur le tien

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"
       ws.Copy
       ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
       ActiveWorkbook.Close True
    End If
Next ws
End Sub

Bonjour JM,
J'ai testé la macro et ça bogue

Regarde la pièce jointe 1153375