bonjour à tous,
j'ai tenté d'adapter une macro que vous trouverez ci dessous mais, avec mon niveau debutant --, j'ai un petit probleme d'application.
Je souhaite tout simplement imprimer une selection de cellule dans lesquelles j'ai prealablement zippé des données (puis la macro fait une msgbox et Raz de la selection pour finir) lorsque je clic sur un code barre particulier.
La macro fonctionne quand je l'active par un bouton std dans excel.
par contre quand je zip le code barre "start"(ici la caractere "%"), la macro fait le cycle complet (selection +msgbox +RAZ cellule...) mais l'impression ne se fait pas.
je n'arrive pas a trouver pourquoi...Si quelqu'un peu m'aider.
Voila les codes effectués :
1- dans : VBA-thisworkbook :
Private Sub Workbook_Open()
Application.Goto Sheets("donnee").Range("a1")
Range("a1:a3").Select
Selection.ClearContents
MsgBox "nouvelle saisie"
Application.Goto Sheets("donnee").Range("a1")
Application.OnKey "{%}", "lancer"
End Sub
2- macro que je souhaite effectuer par la zipette :
Sub lancer()
Application.Goto Sheets("donnee").Range("a1")
Sheets("donnee").Range("A10:e20").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1 ', ActivePrinter:="QFR65608 on vpsx (DIRECT)"
'Selection.PrintOut - marche pas non plus
'Application.Wait (Now + TimeValue("0:00:04")) '- j'ai essayé de laisser du temps...marche pas
Application.Goto Sheets("donnee").Range("a1")
Range("a1:a3").Select
Selection.ClearContents
Application.Goto Sheets("donnee").Range("a1")
MsgBox "nouvelle saisie"
End Sub
Merci de votre aide.