Discussion :

[Tomeloale]

J'essaie de créer une variable dans le vba me permettant de lui attribuer plusieurs onglets dans le but d'imprimer ces onglets. Mon code sans variable est le suivant :

Code :

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

1
2
Sheets(Array("ELODIE", "ALEX", "TOMMY")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

C'est ces noms d'onglets que j'aimerais rendre variable. J'ai donc choisi une cellule dans l'onglet impression dont le contenu est les noms d'onglets que je voulais imprimersoit "ELODIE", "ALEX", "TOMMY" et j'ai par la suite attribué cette valeur à une variable dans mon code VBA:

Code :

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

1
2
3
4
5
6
Dim p As Worksheet
Dim a As String
Set p = ActiveWorkbook.Worksheets("Impression") '.Range("B5").Value
a = p.Range("B6").Value
Sheets(Array("a")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Bien qu'il reconnait la valeur de la variable a comme étant "ELODIE", "ALEX", "TOMMY" il me donne un message comme quoi l'indice n'appartient pas à la sélection à la ligne de code Sheets(Array("a")).Select

Quelqu'un peut-il m'aider?

Merci