[VBA][Excel] Copie écran

Version imprimable

09/12/2005, 09h07
KOFJCH

[VBA][Excel] Copie écran

Bonjour à tous,

Je suis en train de faire un tour de passe passe en essayant de récupérer des informations essentielles d'un logiciel utilisant le langage Cobol en créant une petite macro sous excel pour lancer des copies d'écran de ce logiciel. La difficulté c'est que lorsque je définie une zone, seule une partie des informations s'inscrivent dans la cellule vers laquelle je pointe avec la commande. Quelqu'un peut il me renseigner ? Je reste à votre disposition pour tout complément d'information au cas ou je n'aurai pas été assez clair.

Merci

Jeff
09/12/2005, 09h14
Xo

Salut, et bienvenue sur ce forum,

VB ou VBA ? Si c'est bien du VBA, merci d'éditer ton titre pour corriger.

Je pense que si tu nous copiais une partie de ton code sur un post à la suite, cela permettrait au VBA-pro de t'aider un peu mieux ;)

En VBA Excel, tu peux définir le nbre de page en hauteur et en largeur :
Code:

1 2 3 4 5 With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1
Mais j'ignore si ça correspond à ton besoin

A+

Etant néophyte je ne sais pas si je suis en VB ou VBA. Peux tu me dire la différence la plus notable ? Quand au code le voici :

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
25
26
27
28
29
30
31
32
33
34
Sub fbpk()
Dim System As Object, Sessions As Object, Sess0 As Object
Dim affaire As Object
Dim Found, MyObject, MyCollection
 
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
Set MyCollection = Sheets(1).Range("a2:a10000")
 
Sess0.Screen.SendKeys ("<Clear>")
 
' Initialise une variable.
Found = False
' Se répète à chaque élément.
For Each MyObject In MyCollection
    code = MyObject.Value
    If code = "" Then Exit For
    lig = MyObject.Row
    Sess0.Screen.SendKeys ("<Clear>")
    Sess0.Screen.SendKeys ("FBPK" & code & "<Enter>")
    Sess0.Screen.SendKeys (code) & "<Enter>"
    Sess0.Screen.WaitHostQuiet (100)
    'Cout direct
    Sheets(1).Range("e" & lig) = Sess0.Screen.GetString(8, 9, 21, 73)
    'Cession div
    MsgBox Sess0.Screen.GetString(4, 9, 4, 72)
    'Date
    d = Sess0.Screen.GetString(8, 58, 8, 63)
    d1 = Mid(d, 5, 2) & "/" & Mid(d, 3, 2) & "/" & Left(d, 2)
    Sheets(1).Range("d" & lig) = d1
Next
 
End Sub

Merci d'avance pour votre aide si précieuse...

[Edit] Balises Code powered by Xo, merci d'y penser plutôt que d'utiliser du violet ;) [/Edit]

Excuse mais comme je n'arrive pas à lire ton code, je le remets

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
25
26
27
28
29
30
31
32
33
Sub fbpk()
Dim System As Object, Sessions As Object, Sess0 As Object
Dim affaire As Object
Dim Found, MyObject, MyCollection
 
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
Set MyCollection = Sheets(1).Range("a2:a10000")
 
Sess0.Screen.SendKeys ("<Clear>")
 
    ' Initialise une variable.
    Found = False
    ' Se répète à chaque élément.
    For Each MyObject In MyCollection
        Code = MyObject.Value
        If Code = "" Then Exit For
        lig = MyObject.Row
        Sess0.Screen.SendKeys ("<Clear>")
        Sess0.Screen.SendKeys ("FBPK" & Code & "<Enter>")
        Sess0.Screen.SendKeys (Code) & "<Enter>"
        Sess0.Screen.WaitHostQuiet (100)
        'Cout direct
        Sheets(1).Range("e" & lig) = Sess0.Screen.GetString(8, 9, 21, 73)
        'Cession div
        MsgBox Sess0.Screen.GetString(4, 9, 4, 72)
        'Date
        d = Sess0.Screen.GetString(8, 58, 8, 63)
        d1 = Mid(d, 5, 2) & "/" & Mid(d, 3, 2) & "/" & Left(d, 2)
        Sheets(1).Range("d" & lig) = d1
    Next
End Sub

Maintenant, on va pouvoir le lire

A tout'

09/12/2005, 09h56
ouskel'n'or

Tout ça ne nous dit pas ce que tu veux imprimer... Mais je peux me tromper...

Tu peux préciser

A tout'
09/12/2005, 10h13
KOFJCH

VBA sous excel

Deux choses.

Premièrement je me suis renseigné et c'est bien du VBA.

Deuxièmement, je souhaiterai récupérer des informations affichées à l'écran pour les implémenter dans des cellules de excel (ou si possible access mais je crois que le code est différent)
09/12/2005, 10h26
ouskel'n'or

A voir le code que tu utilises, je n'ai pas ta version (visiblement > 97) je ne peux pas t'aider.
En outre, quand tu parlais de copie d'écran, je traduisais copie pixel par pixel de ton écran.
Je te laisse avec Xo

A+

Merci à tous pour votre aide mais j'ai finallement trouver la solution autour de moi. Pour info voici le code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub fbpk()
Dim System As Object, Sessions As Object, Sess0 As Object
Dim affaire As Object
Dim Found, MyObject, MyCollection
 
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
Set MyCollection = Sheets(1).Range("a2:a10000")
 
 
Sess0.Screen.SendKeys ("<Clear>")
 
' Initialise une variable.
Found = False
' Se répète à chaque élément.
For Each MyObject In MyCollection
    code = MyObject.Value
    If code = "" Then Exit For
    lig = MyObject.Row
    Sess0.Screen.SendKeys ("<Clear>")
    Sess0.Screen.SendKeys ("FBPK " & "<Enter>")
    Sess0.Screen.SendKeys (code & "<Enter>")
    Sess0.Screen.WaitHostQuiet (50)
    Application.Wait (Now + TimeValue("0:00:02"))
    Sheets(1).Range("b" & lig) = Sess0.Screen.GetString(2, 1, 80)
    Sheets(1).Range("c" & lig) = Sess0.Screen.GetString(3, 1, 80)
    Sheets(1).Range("d" & lig) = Sess0.Screen.GetString(4, 1, 80)
    Sheets(1).Range("e" & lig) = Sess0.Screen.GetString(5, 1, 80)
    Sheets(1).Range("f" & lig) = Sess0.Screen.GetString(6, 1, 80)
    Sheets(1).Range("g" & lig) = Sess0.Screen.GetString(7, 1, 80)
    Sheets(1).Range("h" & lig) = Sess0.Screen.GetString(8, 1, 80)
    Sheets(1).Range("i" & lig) = Sess0.Screen.GetString(9, 1, 80)
    Sheets(1).Range("j" & lig) = Sess0.Screen.GetString(10, 1, 80)
    Sheets(1).Range("k" & lig) = Sess0.Screen.GetString(11, 1, 80)
    Sheets(1).Range("l" & lig) = Sess0.Screen.GetString(12, 1, 80)
    Sheets(1).Range("m" & lig) = Sess0.Screen.GetString(13, 1, 80)
    Sheets(1).Range("n" & lig) = Sess0.Screen.GetString(14, 1, 80)
    Sheets(1).Range("o" & lig) = Sess0.Screen.GetString(15, 1, 80)
    Sheets(1).Range("p" & lig) = Sess0.Screen.GetString(16, 1, 80)
    Sheets(1).Range("q" & lig) = Sess0.Screen.GetString(17, 1, 80)
    Sheets(1).Range("r" & lig) = Sess0.Screen.GetString(18, 1, 80)
    Sheets(1).Range("s" & lig) = Sess0.Screen.GetString(19, 1, 80)
    Sheets(1).Range("t" & lig) = Sess0.Screen.GetString(20, 1, 80)
    Sheets(1).Range("u" & lig) = Sess0.Screen.GetString(21, 1, 80)
    Sheets(1).Range("v" & lig) = Sess0.Screen.GetString(22, 1, 80)
    Sheets(1).Range("w" & lig) = Sess0.Screen.GetString(23, 1, 80)
    Sess0.Screen.SendKeys ("<Enter>")
 
 
    Application.Wait (Now + TimeValue("0:00:02"))
    Sheets(2).Range("b" & lig) = Sess0.Screen.GetString(2, 1, 80)
    Sheets(2).Range("c" & lig) = Sess0.Screen.GetString(3, 1, 80)
    Sheets(2).Range("d" & lig) = Sess0.Screen.GetString(4, 1, 80)
    Sheets(2).Range("e" & lig) = Sess0.Screen.GetString(5, 1, 80)
    Sheets(2).Range("f" & lig) = Sess0.Screen.GetString(6, 1, 80)
    Sheets(2).Range("g" & lig) = Sess0.Screen.GetString(7, 1, 80)
    Sheets(2).Range("h" & lig) = Sess0.Screen.GetString(8, 1, 80)
    Sheets(2).Range("i" & lig) = Sess0.Screen.GetString(9, 1, 80)
    Sheets(2).Range("j" & lig) = Sess0.Screen.GetString(10, 1, 80)
    Sheets(2).Range("k" & lig) = Sess0.Screen.GetString(11, 1, 80)
    Sheets(2).Range("l" & lig) = Sess0.Screen.GetString(12, 1, 80)
    Sheets(2).Range("m" & lig) = Sess0.Screen.GetString(13, 1, 80)
    Sheets(2).Range("n" & lig) = Sess0.Screen.GetString(14, 1, 80)
    Sheets(2).Range("o" & lig) = Sess0.Screen.GetString(15, 1, 80)
    Sheets(2).Range("p" & lig) = Sess0.Screen.GetString(16, 1, 80)
    Sheets(2).Range("q" & lig) = Sess0.Screen.GetString(17, 1, 80)
    Sheets(2).Range("r" & lig) = Sess0.Screen.GetString(18, 1, 80)
    Sheets(2).Range("s" & lig) = Sess0.Screen.GetString(19, 1, 80)
    Sheets(2).Range("t" & lig) = Sess0.Screen.GetString(20, 1, 80)
    Sheets(2).Range("u" & lig) = Sess0.Screen.GetString(21, 1, 80)
    Sheets(2).Range("v" & lig) = Sess0.Screen.GetString(22, 1, 80)
    Sheets(2).Range("w" & lig) = Sess0.Screen.GetString(23, 1, 80)
    Sess0.Screen.SendKeys ("<Enter>")
 
    Next
 
End Sub

12/12/2005, 15h01
ouskel'n'or
Juste pour info, à la place de

Citation:

Sheets(1).Range("b" & lig) = Sess0.Screen.GetString(2, 1, 80)
Sheets(1).Range("c" & lig) = Sess0.Screen.GetString(3, 1, 80)
Sheets(1).Range("d" & lig) = Sess0.Screen.GetString(4, 1, 80)
Sheets(1).Range("e" & lig) = Sess0.Screen.GetString(5, 1, 80)
Sheets(1).Range("f" & lig) = Sess0.Screen.GetString(6, 1, 80)
Sheets(1).Range("g" & lig) = Sess0.Screen.GetString(7, 1, 80)
Sheets(1).Range("h" & lig) = Sess0.Screen.GetString(8, 1, 80)
Sheets(1).Range("i" & lig) = Sess0.Screen.GetString(9, 1, 80)
Sheets(1).Range("j" & lig) = Sess0.Screen.GetString(10, 1, 80)
Sheets(1).Range("k" & lig) = Sess0.Screen.GetString(11, 1, 80)
Sheets(1).Range("l" & lig) = Sess0.Screen.GetString(12, 1, 80)
Sheets(1).Range("m" & lig) = Sess0.Screen.GetString(13, 1, 80)
Sheets(1).Range("n" & lig) = Sess0.Screen.GetString(14, 1, 80)
Sheets(1).Range("o" & lig) = Sess0.Screen.GetString(15, 1, 80)
Sheets(1).Range("p" & lig) = Sess0.Screen.GetString(16, 1, 80)
Sheets(1).Range("q" & lig) = Sess0.Screen.GetString(17, 1, 80)
Sheets(1).Range("r" & lig) = Sess0.Screen.GetString(18, 1, 80)
Sheets(1).Range("s" & lig) = Sess0.Screen.GetString(19, 1, 80)
Sheets(1).Range("t" & lig) = Sess0.Screen.GetString(20, 1, 80)
Sheets(1).Range("u" & lig) = Sess0.Screen.GetString(21, 1, 80)
Sheets(1).Range("v" & lig) = Sess0.Screen.GetString(22, 1, 80)
Sheets(1).Range("w" & lig) = Sess0.Screen.GetString(23, 1, 80)
Code:

1 2 3 For NoCol = 2 to 23 Sheets(1).Cells(lig,NoCol) = Sess0.Screen.GetString(NoCol, 1, 80) Next
A toutes fins utiles