Réaliser une capture d'écran

[christian.bedere]

Bonjour le forum,
Existe t-il une macro qui permet de réaliser une capture d'écran, afin après de coller cette saisie sur une feuille blanche ?
Je vous remercie, bonne journée
Christian

 

[Marc]

bonjour christian
je ne connais pas, mais il suffit de cliquer sur Imp ecran (au desus de Insert et de coller dans Word par exemple
bon après midi

 

[christian.bedere]

Salut Marc,
Merci pour cette réponse, mais ce que j'aimerai, c'est une façon plus automatique par le biais d'une macro réalisée sur un userform.
Bonne journée, ciao

 

[jeanpierre]

Bonjour christian, Marc,

Je n'ai sans doute rien compris, mais va voir ce fil, il pourra peut-être t'aider ou te donner des idées.

https://www.excel-downloads.com/resources/capture.77/

Pour suivre l'idée de Marc, l'imprime écran n'a pas l'avantage d'une selection, c'est du brut, global de..... l'écran...

Bonne fin de week-end à tous.

Jean-Pierre

 

[christian.bedere]

Salut Jean Pierre et Marc

Merci pour ce fil, mais en fait j''aurai juste besoin, s'il existe le code qui permet d'ouvrir par vba le code qui sélectionne 'l'imprim écran'.
Voilà, si ce n'est pas possible, ce n'est pas grave, merci quand même et à plus tard.
Cordialement
Christian

 

[FabriceLeManuzien]

Bonsoir à tous,

A ma connaissance, seule la touche ImprEcran n'est pas 'simulable' par VBA.

La combinaison 'Alt' + 'ImprimEcran' serait encore + intéressante, puisqu'elle ne copie que la fenêtre active, et non l'ensemble de l'écran.

Suis preneur de toute solution.

@+

 

[MichelXld]

bonsoir

tu peux tester cette macro

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 soiree
MichelXld

 

[Gérard DEZAMIS]

Bonsoir à tous

Pour Michel un spécial petit clap clap (paume comtre paume ça fait à peu près ce bruit là) pour cette manip qui fonctionne à merveille

M'en va en faire un p'tit bouton dans la barre de menu.

Pratico de Praticos !

Bravo

@+ GD

 

[christian.bedere]

Salut à tous, salut le forum
Merci à ceux qui ont planché sur mon problème vous êtes géniaux, vive ce site !
Bonne soirée à tous

 

[jmgh]

Re : Réaliser une capture d'écran

salut a tous

j'ai le meme pb.

besoin de faire un screenshot de ce que je vois dans mon excel

j'ai tenté la macro proposée plus haut mais sans succès.

si une âme charitable pouvait me donner une solution merci 🙂

 

[CHALET53]

Re : Réaliser une capture d'écran

Remplace les ' par des "

a+

 

[MJ13]

Re : Réaliser une capture d'écran

Bonjour à tous

En téléchargeant Irfan View (V4.33 actuellement), un des viewer les plus populaire, on peux créer une capture d'écran avec ce code:

Sub CaptureEcran()
Shell ("C:\Program Files\IrfanView\i_view32.exe /capture=0 /convert=c:\temp\capture_$U(%d%m%Y_%H%M%S).jpg")
End Sub

 

[Ranohira]

Re : Réaliser une capture d'écran

Bonjour, j'ai aussi presque le même cas ,quand j'imprime avec Internet explorer un barchart avec un courbe, il hachure toujours quelque partie .
voir au PJ
il y a des solutions pour cela ?
Merci de votre aide