VBA imprimer une feuille en fonction d'une cellule

Fermé
ross57100 Messages postés 16 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 8 septembre 2015 - 8 sept. 2015 à 10:25
ross57100 Messages postés 16 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 8 septembre 2015 - 8 sept. 2015 à 12:13
Bonjour,

Je suis débutant en VBA et j'ai besoin de votre aide.

J'ai un classeur excel composé de 40 feuilles.

Dans les cellules A1 et B1 de ma feuille nommée "A COMPLETER" se trouvent les noms de la ou des feuilles de calcul à imprimer.

Exemple :
si A1 = "GB TEMP" et A2 ="FR TEMP"
Imprimer les feuilles GB TEMP et FR TEMP

Si A1 ="GB TEMP" et A2 est vide
Imprimer la feuille "GB TEMP"

Comment puis-je procéder afin de créer une macro qui automatiserait ?

Merci pour votre aide.
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
8 sept. 2015 à 10:58
Bonjour,

Essaie cette macro
Sub Imprimer()
Dim Ligne As Byte
Dim Ws As Worksheet
With Worksheets("A COMPLETER")
For Ligne = 1 To 2
On Error Resume Next
Set Ws = Worksheets(.Range("A" & Ligne).Value)
On Error GoTo 0
If Not Ws Is Nothing Then
Ws.PrintOut
Set Ws = Nothing
End If
Next Ligne
End With
End Sub


A+
0
ross57100 Messages postés 16 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 8 septembre 2015
8 sept. 2015 à 12:13
Merci Gyrus
0