Bonjour à tous,
Sujet plus que traité de maniére différente mais je ne trouve pas de solution adaptée à mon cas.
J´ai un classeur avec une vingtaine d´onglets, selon l´utilisation du classeur certains sont cachés. Au dernier onglet actif, j´aimerais mettre un bouton pour l´impression du classeur avec toutes les feuilles actives sauf la derniere qui est affichée à l´écran.
Voici ce que j´ai trouvé, on ne doit pas etre loin mais ca bloque (en rouge)...
Sub Button15_Click()
Dim i As Integer, MonArray()
ReDim MonArray(Worksheets.Count)
For i = 1 To Worksheets.Count - 1
MonArray(i) = Sheets(i).Name
Next i
Sheets(i).Select
Application.Dialogs(xlDialogPrint).Show
End Sub
Petit détail :
La possibilité suivnate n´est pas possible dans mon cas :
- Cacher l´onglet en début de macro, lancer l´impression puis réafficher l´onglet
car une autre macro se lance automatiquement à l´affichage de l´onglet et ca fausserait tout le processus.
Alors, vous voyez quleque chose ?
Merci d´avance,
M1L1
Sujet plus que traité de maniére différente mais je ne trouve pas de solution adaptée à mon cas.
J´ai un classeur avec une vingtaine d´onglets, selon l´utilisation du classeur certains sont cachés. Au dernier onglet actif, j´aimerais mettre un bouton pour l´impression du classeur avec toutes les feuilles actives sauf la derniere qui est affichée à l´écran.
Voici ce que j´ai trouvé, on ne doit pas etre loin mais ca bloque (en rouge)...
Sub Button15_Click()
Dim i As Integer, MonArray()
ReDim MonArray(Worksheets.Count)
For i = 1 To Worksheets.Count - 1
MonArray(i) = Sheets(i).Name
Next i
Sheets(i).Select
Application.Dialogs(xlDialogPrint).Show
End Sub
Petit détail :
La possibilité suivnate n´est pas possible dans mon cas :
- Cacher l´onglet en début de macro, lancer l´impression puis réafficher l´onglet
car une autre macro se lance automatiquement à l´affichage de l´onglet et ca fausserait tout le processus.
Alors, vous voyez quleque chose ?
Merci d´avance,
M1L1