Définir le nombre d'impression
Bonjour,
Etant débutant en VBA, je n'arrive pas à solutionner ce problème.
J'utilise une document "X" en excel qui me permet à l'entrée du mot TEST (exemple pour essai de ma procédure VBA) en case A1 d'imprimer un autre document "Y" (la case A1 détermine le chemin de ce document "Y" à imprimer).
J'aimerai pourvoir inscrire sur ce document "X" le nombre de copies d'impression à effectuer du document "Y" et aussi d'afficher une boîte de dialogue si le nombre d'impression n'a pas été indiqué.
Voici le début de mon code:
Private Sub Worksheet_Change(ByVal Target As range)
If range("A1") = "" Then
'condition de vérification si la cellule A1 est vide
Exit Sub
'Sort de la procédure si condition remplie
End If
'Fin de la condition
valeur = range("A1").Value
'indique que la valeur est la case A1
Workbooks.Open Filename:="\\C:\Users\proprio\Desktop\" & valeur & ".xlsx"
'ouvre le document suivant valeur A1
ActiveSheet.PrintOut Copies:=2
'Imprime la feuille ouverte en 2 exemplaires
ActiveWindow.Close
'Ferme la feuille active
range("A1").Clear
'Vide la cellule A1
End Sub
'Fin de la procédure
Merci de votre aide précieuse
Eric
Bonjour vuerings, le forum,
Un essai : Pas testé...
Dim a As Integer
a = Application.InputBox(prompt:="Nombre de pages à imprimer:", Type:=1) 'choix du nombre de pages
If a = "0" Then 'si nombre de page =0, on quitte la procédure
MsgBox " Vous n'avez pas indiquer le nombre d'impression"
Exit Sub
end if
ActiveSheet.PrintOut Copies:=a
'Imprime la feuille ouverte en a exemplairesTon code modifié:
Private Sub Worksheet_Change(ByVal Target As range)
Dim a As Integer
If range("A1") = "" Then
'condition de vérification si la cellule A1 est vide
Exit Sub
'Sort de la procédure si condition remplie
End If
'Fin de la condition
valeur = range("A1").Value
'indique que la valeur est la case A1
Workbooks.Open Filename:="\\C:\Users\proprio\Desktop\" & valeur & ".xlsx"
'ouvre le document suivant valeur A1
a = Application.InputBox(prompt:="Nombre de pages à imprimer:", Type:=1) 'choix du nombre de pages
If a = "0" Then 'si nombre de page =0, on quitte la procédure
MsgBox " Vous n'avez pas indiquer le nombre d'impression"
Exit Sub
end if
ActiveSheet.PrintOut Copies:=a
'Imprime la feuille ouverte en a exemplaires
ActiveWindow.Close
'Ferme la feuille active
range("A1").Clear
'Vide la cellule A1
End Sub
'Fin de la procédureCordialement,