Bonjour à tous.
Dans mon fichier j'ai cette macro pour imprimer DEVIS et FACTURE et qui fonctionnetrès bien, j'ai rajouté une feuille SITUATION et je n'arrive pas à faire imprimer cette feuille en faisant = "DEVIS", "FACTURE","SITUATION"
Que dois-je modifier...? merci à vous.
Cordialement
Sub imprimer()
'Macro modifiée par Dan - le 17/10/08
Dim nb As Integer
Select Case ActiveSheet.Name
Case Is = "DEVIS", "FACTURE"
'With Sheets("Devis")
Range("C6:E6").Font.ColorIndex = 2
nb = Val(InputBox("Donner un nombre de copie : "))
If nb = 0 Then Exit Sub
ActiveSheet.PrintOut Copies:=nb, Collate:=True
Range("D6").Font.ColorIndex = 0
Case Else
End Select
'End With
End Sub
Dans mon fichier j'ai cette macro pour imprimer DEVIS et FACTURE et qui fonctionnetrès bien, j'ai rajouté une feuille SITUATION et je n'arrive pas à faire imprimer cette feuille en faisant = "DEVIS", "FACTURE","SITUATION"
Que dois-je modifier...? merci à vous.
Cordialement
Sub imprimer()
'Macro modifiée par Dan - le 17/10/08
Dim nb As Integer
Select Case ActiveSheet.Name
Case Is = "DEVIS", "FACTURE"
'With Sheets("Devis")
Range("C6:E6").Font.ColorIndex = 2
nb = Val(InputBox("Donner un nombre de copie : "))
If nb = 0 Then Exit Sub
ActiveSheet.PrintOut Copies:=nb, Collate:=True
Range("D6").Font.ColorIndex = 0
Case Else
End Select
'End With
End Sub
Dernière édition: