Bonjour,

J ai actuellement une Listbox qui recense les noms des différentes feuilles de mon classeur. Il est possible de sélectionner plusieurs valeurs dans cette listebox, le but étant d'exporter les feuilles concernées dans un nouveau document via un bouton "export".

actuellement, j ai comme code derriere le bouton export:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim a, b, c, i, d as string
 
a=", "
c=""""         'caractere apostrophe
 
For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
            If save.ListBox1.Selected(i) = True Then
            b = save.ListBox1.List(i)
            d = c & b & c & d
            MsgBox (d)         
            End If
Next i
je récupère alors la variable "d" qui normalement doit prendre la forme :
"onglet1", "onglet3", "ongletx",

dans le but d utiliser la fonction sheets(array("onglet1", "onglet2", "ongletx", )

je bloque lorsque j'execute la suite du code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
    Sheets(Array(d)).Select
    Sheets(Array(d)).Copy
il existe sans doute une méthode + conventionnelle d'exporter une liste de feuilles mais j avoue ne pas avoir beaucoup d'aptitude.

Merci d avance pour votre aide.
Ludovic