[VBA-E] [alt]+ [impr ecran]

Version imprimable

28/12/2006, 21h17
CIBOOX

[VBA-E] [alt]+ [impr ecran]

bonjour ,
je cherche un code qui me permettrai de copier mon userform dans un document word
en fait j'aimerai savoir s'il existe un code pour faire la combinaison des deux touches :
[alt]+ [impr ecran]
23/01/2007, 14h19
ouskel'n'or
Code:

1 2 3 4 Sub CopieEcranPartielXls() Worksheets("Feuil1").Range("E6:I27").CopyPicture xlScreen, xlBitmap Worksheets("Feuil1").Paste destination:=Worksheets("Feuil1").Range("E6") End Sub
Copie la plage "E6:I27" sur une feuille de calculs

Tu aurais pu me donner l'adresse de ton post :evil: Chavais pas qu'il datait de 2006 :evil:
A+ quand même
23/01/2007, 14h29
Theocourant
Citation:
Envoyé par ouskel'n'or

Code:

1 2 3 4 Sub CopieEcranPartielXls() Worksheets("Feuil1").Range("E6:I27").CopyPicture xlScreen, xlBitmap Worksheets("Feuil1").Paste destination:=Worksheets("Feuil1").Range("E6") End Sub

Copie la plage "E6:I27" sur une feuille de calculs

Tu aurais pu me donner l'adresse de ton post :evil: Chavais pas qu'il datait de 2006 :evil:
A+ quand même
Salut,

Mais pour un userform c'est peut-être un peu plus complexe, non ?

Peut-être regarder du côté de SendKeys ?

+

Théo

bonsoir

tu peux tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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()
    Dim Wrd As Object
    Dim WrdDoc As Object
 
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
    Set Wrd = CreateObject("Word.Application")
    Wrd.Visible = True
    Set WrdDoc = Wrd.Documents.Add
 
    WrdDoc.PageSetup.Orientation = wdOrientLandscape
    Wrd.Selection.PasteSpecial
 
    Set Wrd = Nothing
    Set WrdDoc = Nothing
End Sub

michel

23/01/2007, 20h35
CIBOOX

en applicant ton code j'ai un petit message d'erreur de compilation
variable non definie

Code:

wdOrientLandscape
23/01/2007, 20h41
SilkyRoad

refait un essai en supprimant la ligne

Code:

WrdDoc.PageSetup.Orientation = wdOrientLandscape

bonne soirée
michel
23/01/2007, 20h46
CIBOOX

:resolu: :resolu: :resolu: :merci: :merci: :merci: :merci:

bonne soirée
23/01/2007, 21h12
CIBOOX

:D j'ai encore un petite question ?

si je veux que la page soit en mode paysage Comment faire :roll:

rebonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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()
    Dim Wrd As Object
    Dim WrdDoc As Object
    
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    
    Set Wrd = CreateObject("Word.Application")
    Wrd.Visible = True
    Set WrdDoc = Wrd.Documents.Add

    WrdDoc.PageSetup.Orientation = 1
    Wrd.Selection.PasteSpecial

    Set Wrd = Nothing
    Set WrdDoc = Nothing
End Sub

23/01/2007, 22h50
CIBOOX

OUI !!! la ligne supplementaire me colle bien mon userform en mode paysage
mais comment faire pour que mon userform fasse toute la page en mode paysage :roll: ?
24/01/2007, 05h06
SilkyRoad

Il suffit d'adapter l'image à la taille de la page Word ...

michel
24/01/2007, 09h10
CIBOOX

Super !!!!!

:lahola: :lahola: :lahola:

:merci: :merci: :resolu: :resolu: :resolu: :merci: :merci: