Discussion :

[seba_stien]

Bonjour à tous,

J'essaie de faire une petite macro pour la copie de plusieurs feuilles dans un seul nouveau workbook. Je me suis inspiré de l'enregistreur de macro, mais impossible de le faire.

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
22
23
24
25
26
27
28
29
30
31
32
33
 
Dim cell As Excel.Range
    Dim wksSheet As Worksheet
    Dim lNbrSheet As Long
    Dim lCounter As Long
    Dim strSelect As String
 
    lNbrSheet = shtDefPrin.Range("rngListSheets").Cells.Count
 
    lCounter = 1
 
 
    For Each cell In shtDefPrin.Range("rngListSheets")
        For Each wksSheet In ThisWorkbook.Worksheets
            If cell.Value = wksSheet.Name Then
                If lCounter = 1 And lNbrSheet = 1 Then
                    strSelect = """" & wksSheet.Name & """"
                    lCounter = lCounter + 1
                ElseIf lCounter = 1 And lNbrSheet > 1 Then
                    strSelect = """" & wksSheet.Name & """, """
                    lCounter = lCounter + 1
                ElseIf lCounter > 1 And lNbrSheet > lCounter Then
                    strSelect = strSelect & wksSheet.Name & """, """
                    lCounter = lCounter + 1
                ElseIf lCounter = lNbrSheet Then
                    strSelect = strSelect & wksSheet.Name & """"
                End If
            End If
        Next
    Next
    if lCounter = lNbrSheet then
        Sheets(Array(strSelect)).Copy
    end if

Explication du code
Je parcours mon range qui contient un x nbr de cellule. 1 cellule contient un nom de feuille. Je peux en copier un nombre aléatoire. Ensuite je crontrole que le nom de feuille existe et je construis ma string.


Si je stoppe sur la dernière ligne et que je remplace ma variable strSelect par son contenu ca fonctionne mais pas avec la varaiable.

Merci d'avance de votre

[Tartiflette38]

Bonjour,

Essaye feuilX au lieu du nom de la feuille

Chez moi ca semble mieux marcher comme cela.

[seba_stien]

Bonjour,

je ne comprends pas votre solution. Qu'est-ce que vous entendez pas "feuilX" ?

[BenjGe]

si je comprends ce que vbous voulez faire vous pouvez essayer ceci en l'adaptant à votre utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim shtDefprin As Worksheet, classdest As Workbook, cellule As Range
Set shtDefprin = ThisWorkbook.Sheets("Feuil1") 'adaptez cette ligne pour pointer la bonne feuille
Set classdest = Workbooks.Add 'idem à changer pour un autre classeur peut être
 
On Error Resume Next 'au cas où la feuille saisie n'existe pas
    For Each cellule In shtDefprin.Range("rngListSheets")
 
        ThisWorkbook.Sheets(cellule.Value).Copy before:=classdest.Sheets(1)
 
    Next
On Error GoTo 0

[seba_stien]

En faite je suis obligé de faire la copie en une fois pour que les formules suivent correctement.

Alors j'ai fait de la manière suivante:

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 cell As Excel.Range
    Dim wksSheet As Worksheet
    Dim lNbrSheet As Long
    Dim lCounter As Long
    Dim stSelect() As String
 
    lNbrSheet = shtDefPrin.Range("rngListSheets").Cells.Count
    ReDim stSelect(lNbrSheet - 1)
 
    lCounter = 0
 
    For Each cell In shtDefPrin.Range("rngListSheets")
        For Each wksSheet In ThisWorkbook.Worksheets
            If cell.Value = wksSheet.Name Then
                stSelect(lCounter) = wksSheet.Name
                lCounter = lCounter + 1
            End If
        Next
    Next
    Sheets(stSelect).Copy

Il faut utiliser un tableau dynamique.

Merci à tous