Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comment imprimer sélectionner plusieurs feuilles au choix en mac ro

Comment imprimer sélectionner plusieurs feuilles au choix en mac ro

2 réponses
Avatar
Laurent
Bonjour,
Je souhaite sélectionner plusieurs feuilles en macros (pour impression avec
les numéros de pages qui vont bien).
L'utilisateur a un tableau dans lequel il choisit les feuilles qu'il
souhaite imprimer.
Je récupère bien les nom des feuilles, mais je n'arrive pas à les mettre
dans mon array :
For i = 2 To NbFeuille
If Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 2).Value = "O" Then
If Init = 0 Then
FeuilleAImprime = FeuilleAImprime &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
Init = 1
Else
FeuilleAImprime = FeuilleAImprime & """, """ &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
End If
End If
Next
Sheets(Array(FeuilleAImprime)).PrintOut Copies:=1, Collate:=True

Merci d'avance de votre aide
Laurent
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bnsoir Laurent,

Testé sous Excel 2002 :
Sub test()
Dim tablo: ReDim tablo(1)
tablo(0) = "Feuil1"
tablo(1) = "Feuil3"
Sheets(tablo).Select
End Sub

@+
FxM


Bonjour,
Je souhaite sélectionner plusieurs feuilles en macros (pour impression avec
les numéros de pages qui vont bien).
L'utilisateur a un tableau dans lequel il choisit les feuilles qu'il
souhaite imprimer.
Je récupère bien les nom des feuilles, mais je n'arrive pas à les mettre
dans mon array :
For i = 2 To NbFeuille
If Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 2).Value = "O" Then
If Init = 0 Then
FeuilleAImprime = FeuilleAImprime &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
Init = 1
Else
FeuilleAImprime = FeuilleAImprime & """, """ &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
End If
End If
Next
Sheets(Array(FeuilleAImprime)).PrintOut Copies:=1, Collate:=True

Merci d'avance de votre aide
Laurent


Avatar
Laurent
Bonjour FxM,
Merci beaucoup, c'est exactement ça.... je pensais bien que la solution
était simple

Laurent


Bnsoir Laurent,

Testé sous Excel 2002 :
Sub test()
Dim tablo: ReDim tablo(1)
tablo(0) = "Feuil1"
tablo(1) = "Feuil3"
Sheets(tablo).Select
End Sub

@+
FxM


Bonjour,
Je souhaite sélectionner plusieurs feuilles en macros (pour impression avec
les numéros de pages qui vont bien).
L'utilisateur a un tableau dans lequel il choisit les feuilles qu'il
souhaite imprimer.
Je récupère bien les nom des feuilles, mais je n'arrive pas à les mettre
dans mon array :
For i = 2 To NbFeuille
If Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 2).Value = "O" Then
If Init = 0 Then
FeuilleAImprime = FeuilleAImprime &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
Init = 1
Else
FeuilleAImprime = FeuilleAImprime & """, """ &
Workbooks(NomFichier).Sheets(NomFeuille).Cells(i, 1).Value
End If
End If
Next
Sheets(Array(FeuilleAImprime)).PrintOut Copies:=1, Collate:=True

Merci d'avance de votre aide
Laurent