Aide pour macro dans tous les classeurs

pledger · 5 Décembre 2011

Bonjours j'aimerai executé une macro qui recupère le nom de chaque onglet et créer une colonne avec . J'ai fait ce code mais celui ci ne marche pas :/ vous avez une idée de comment l'amélioré ?

Code:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "NomClasseur*" Then

Dim nom As String
nom = wb.ActiveSheet.Name

Columns("C:C").Insert Shift:=xlToRight
Range("C1").FormulaR1C1 = nom
Range("C2:C" & Range("A65536").End(xlUp).Row).Value = wb.ActiveSheet.Name

End If
Next wb
End Sub

mutzik · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

bonjour,
dans ton explication tu parles d'onglet, et dans ton code tu écris workbook (classeur)
que veux -tu exactement ?

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Bonjour,

Je voudrais que dans touts mes classeurs , une colonne en C ce crée dans chaque onglet , en récupérant le nom de chaque onglet et en le remplissant dans la colonne C

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Et cela dans tous mes classeurs en même temps

Efgé · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Bonjour pledger, Bonjour mutzik ,

Comme mutzik semble déconnecté, je fais une proposition:

VB:

Sub test()
Dim wb As Workbook, F As Worksheet
For Each wb In Workbooks
    If wb.Name Like "NomClasseur*" Then
        For Each F In wb.Worksheets
            F.Activate
            F.Columns("C:C").Insert Shift:=xlToRight
            F.Range("C1:C" & Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name
        Next F
    End If
Next wb
End Sub

Cordialement

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Bonjour Efgé ,

Le code fonctionne mais le soucis c'est qui me marque le nom de la feuille active de l'onglet a partir duquel j'ai lancé ma macro dans tous mes classeurs.

Pour faire plus simple : j'ai lancé dans l'onglet " ressource " . Et ressource ce marque dans tous les onglets de tous les classeurs.

mutzik · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

re,

salut Ffgé,

remplace
= ActiveSheet.Name
par
F.name

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Cela marche parfaitement ,

Merci à vous Ffgé et mutzik

Bonne continuation

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Et pour faire la même chose mais avec le nom du classeur Excel ?

Efgé · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Re
Avec : = wb.Name
Cordialement

job75 · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Bonjour le fil,

Pour les 2 :

"[" & wb.Name & "]" & F.Name

A+

pledger · 5 Décembre 2011

Re : Aide pour macro dans tous les classeurs

Merci Efge et Job75

Aide pour macro dans tous les classeurs

pledger

XLDnaute Junior

mutzik

XLDnaute Barbatruc

pledger

XLDnaute Junior

pledger

XLDnaute Junior

Efgé

XLDnaute Barbatruc

pledger

XLDnaute Junior

mutzik

XLDnaute Barbatruc

pledger

XLDnaute Junior

pledger

XLDnaute Junior

Efgé

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

pledger

XLDnaute Junior

Discussions similaires