Bonjour à tous
j'ai créé une macro qui me permet à partir d'un classeur source de créer des onglets (feuilles) dans un autre classeur
par contre une fois que ces onglets sont existants, je n'arrive pas à créer la commande qui va vérifier leur existence et donc ma macro plante.
Le hic pour moi c'est que j'arrive à récupérer les données de cellules différentes pour créer des onglets mais pas pour la vérif
d'avance merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim i As Long Dim i2 As Long Dim sh As Worksheet Dim trouve As Boolean Sub ren_feuille() Workbooks("conges.xlsm").Activate Set Clasdest = ActiveWorkbook Workbooks.Open "d:\vba\test_conges2.xlsx" Set Clasourc = ActiveWorkbook 'clasourc.Sheets("modele").Activate ' pour copier les valeurs de la feuille 'Range("a2:k3").Copy 'ActiveSheet.Paste clasdest.ActiveSheet.Range("a1") Clasdest.Activate Clasourc.Sheets("feuil1").Activate For i = 2 To Range("b" & Rows.Count).End(xlUp).Row Set sh = Clasdest.Worksheets.Add sh.Name = Clasourc.Sheets("feuil1").Range("c" & i).Value & " " & Range("b" & i).Value Next i End Sub
Partager