Créer un Array à partir du contenu d'une cellule

Créer un Array à partir du contenu d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 30-11-2004 à 14:57:31    

Bonjour,
 
Je développe une macro qui parcourt plusieurs fichiers excel et qui pour chacun imprime certains onglets
 
J'ai une feuille sur laquelle on trouve, pour chaque fichier que la macro peut trouver, une liste d'onglets à imprimer...  Par exemple dans A1 j'ai Fichier1.xls et dans B1 j'ai "Onglet1", "Onglet2", "Onglet5"
 
Maintenant, normalement j'écrirais
Application.Activeworkbook.sheets(Array("Onglet1", "Onglet2", "Onglet5" )).PrintOut
 
Mais comme ce ne sont pas toujours les mêmes comment puis-je rendre tout ça dynamique?  Je veux pouvoir lire les onglets à imprimer et envoyer une commande du genre:
 
Application.Activeworkbook.sheets(Array(Onglets)).PrintOut
 
Où "Onglet" correspond au contenu de la cellule "B" & i lu par la macro et qui indique quoi prendre...  Le format dans ces cellules est toujours "texte", "texte", "texte",...
 
D'avance merci!  :p

Reply

Marsh Posté le 30-11-2004 à 14:57:31   

Reply

Marsh Posté le 30-11-2004 à 17:30:49    

pourquoi ne pas essayer
 
Application.Activeworkbook.sheets(Array(sheets.range("B1" ), sheets.range("B2" ), sheets.range("B3" ))).PrintOut

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed