Publipostage Excel vers Excel

Bonjour,

Je me permet de revenir sur ce forum car il m'a été d'une grande utilité la dernière fois ;)

Voici mon (nouveau) problème :

Je souhaite effectuer un publipostage au sein d'un même fichier Excel. Pour chaque ligne de la feuille "BdD" (plusieurs centaines réellement), j'aimerai avoir une nouvelle feuille reprenant les informations de cette ligne. Et je souhaiterait que le nom de chaque feuille corresponde à un champs "N° dossier".
Par exemple :
Feuille base de donnée :
Pièce jointe 334835

Feuille résultat :
Pièce jointe 334841

Je suppose qu'une macro est indispensable pour réaliser cette opération. Cependant, je n'ai que des notions de VBA...

Please help-me ! :D

Bonjour
Et qu'as-tu au moins tenté d'écrire ? Rien ?

A ce stade, donc, je vais me contenter de te suggérer ceci :
- Une feuille "modèle" (vierge) de tes résultats
- évite les cellules fusionnées (elles te joueront des tours) , en particulier et surtout pour les cellules C2:D2 (où tu mets le N° de dossier)
- Pour chaque ligne k parcourue de la feuille source :
- extrait le contenu de la cellule cells(k, 4) -->> c'est ton N° de dossier
- crée une feuille portant ce N° de dossier par copie de ta feuille modèle
-----écris-y en C2 le n° de dossier
----- écris-y en cellules B4 à B7 le contenu des cellules cells(k,2) , cells(k,3), cells(k,5) et cells(k,6) de la feuille source
Tu as là tout ce qu'il te faut pour commencer à écrire.
J'attends de voir ton effort.

EDIT : je te vois chercher partout. C'est bien :plusser:, mais tu pourrais également chercher dans ton aide interne VBA******. Tu y trouverais dans la foulée d'autres choses ****** qui t'intéresseront et te donneront le goût et l'envie de progresser.

****** Ouvre par exemple la rubrique Worksheets.Méthode Add de ton aide interne VBA. C'est de cela, que tu as besoin, et pas vraiment de savoir comment supprimer des feuilles:coucou: (



J'ai utilisé plus haut la notation cells ( cells(k,4), par exemple). Je sais que tu sais maintenant qu'il est également possible d'utiliser la notation Range -->> Range("D:" & k) et Cells(k,4) sont la même cellule... ;)

Voici mes débuts :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Publi_Xl_Xl() 'Variable déterminant la dernière ligne :' derlig = Range("A" & Rows.Count).End(xlUp).Row   'Supression des feuilles situés entre "modele" et "Feuil3"' Application.DisplayAlerts = False     'Boucle de publipostage' For i = 2 To derlig Sheets("Modele").Copy Before:=Sheets("Feuil3") ActiveSheet.Name = ("N°" & Sheets("BdD").Range("D" & i)) Range("B3") = Sheets("BdD").Cells(i, ) Range("B4") = Sheets("BdD").Cells(i, 2) Range("B5") = Sheets("BdD").Cells(i, 3) Range("C2") = Sheets("BdD").Cells(i, 4) Range("B6") = Sheets("BdD").Cells(i, 5) Range("B7") = Sheets("BdD").Cells(i, 6)   Next i   End Sub

---

J'imaginais cela beaucoup plus compliqué. J'essayerai demain au travail sur le fichier réel.
Par contre, comme tu as pu le constater, il manque la commande permettant de supprimer les lignes entre "modele" et "Feuil3". Je n'arrive pas à trouver cette commande...

Citation:

---

Par contre, comme tu as pu le constater, il manque la commande permettant de supprimer les lignes entre "modele" et "Feuil3". Je n'arrive pas à trouver cette commande...

---

Rubrique Worksheets.Delete, méthode de ton aide interne VBA.
Ainsi

Code:

---

Worksheets("toto").delete ''''''-->> supprime la feuille nommée toto.

---

Comprends bien ce mécanisme, applicable à toute collection (worksheets est une collection - la collection des feuilles)
On se réfère à l'objet d'une collection soit par son index, soit par la chaîne de caractères qui lui est affectée.

La macro fonctionne correctement.
Cependant, je n'arrive pas à trouver le code permettant de supprimer toutes les feuilles commençant par "N°".

J'ai essayer différents "trucs" trouvé sur internet mais sans succès.
Une petite aide serait la bienvenue

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ws As Worksheet With Application .DisplayAlerts = False .ScreenUpdating = False For Each ws In Worksheets If ws.Name <> "Feuil3" Or "BdD" Then ws.Delete Next ws .DisplayAlerts = True .ScreenUpdating = True End With

---

Code:

---

1 2 3

For Each ws In Worksheets If left(ws.Name,2) = "N°" Then ws.Delete Next ws

---

ça fonctionne sur mon Excel d'exemple mais pas sur celui du travail... Pourtant il n'y a pas beaucoup de différence.
Je reviens ci je ne trouve pas la réponse...