Discussion :

[noisy01]

bonjour à tous,

J'ai lu cette discussion.
Tres interessant. j'ai tenté d'adapter cette macro 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", 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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

[noisy01]

Bonjour,

J'ai essayé de mettre la fonction "DoEvents" apre la ligne "print" sans susses

Le plus "ragant" pour un debutant comme moi c'est de reussir à la faire marcher par un bouton standard et d'arriver a la lancer par le zip mais de constater que seul l'impression ne fonctionne pas :S