Discussion :

[CIBOOX]

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]

[ouskel'n'or]

Code :

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

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 Chavais pas qu'il datait de 2006
A+ quand même

[Theocourant]

Code :

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

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 Chavais pas qu'il datait de 2006
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

[SilkyRoad]

bonsoir


tu peux tester

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

[CIBOOX]

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

Code :

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

wdOrientLandscape

[SilkyRoad]

refait un essai en supprimant la ligne

Code :

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

WrdDoc.PageSetup.Orientation = wdOrientLandscape

bonne soirée
michel

[CIBOOX]

bonne soirée

[CIBOOX]

j'ai encore un petite question ?

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

[SilkyRoad]

rebonsoir

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

[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 ?

[SilkyRoad]

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


michel

[CIBOOX]