imprime ecran en vba

L

Law

XLDnaute Junior

• 19 Janvier 2006

• #2

Bonsoir Globinours, le forum,

Tu trouveras peut être une ébauche de solution avec ce lien :

Lien supprimé

Bon courage !
Ciao ciao !!

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 19 Janvier 2006

• #3

bonjour

tu peux tester

Option Explicit

Private Declare Sub keybd_event Lib 'user32' ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Range('A1').Select
ActiveSheet.Paste
End Sub


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

G

globinours

XLDnaute Junior

• 19 Janvier 2006

• #4

Merci à Michel et law, j'ai trouvé sur ce lien:
Ce site n'existe plus
Désolé pour le dérangement

 

Vote positif 0 Vote négatif

L

Law

XLDnaute Junior

• 19 Janvier 2006

• #5

J'ai été voir le lien, ça ressemble beaucoup (beaucoup beaucoup) au code de... MichelXld !



Ciao ciao !!

 

Vote positif 0 Vote négatif

G

globinours

XLDnaute Junior

• 19 Janvier 2006

• #6

J'trouve pas......lol
Merci à tous les deux.

 

Vote positif 0 Vote négatif