Discussion :

[paspillon]

Bonjour,

J'ai créé une macro en VBA sous EXCEL pour uploader une table SAP.
Ma macro marche très bien si je la lance depuis mon fichier prinicipal excel directement (F5 depuis l'éditeur Visual Basic de Excel), mais ne marche pas si la macro est lancé lors de l'ouverture du fichier principal.
La macro n'arrive pas à ouvrir le nouveau fichier Excel généré par SAP. Il tourne en boucle (Loop ligne 91 à 93 de mon code macro AFKO)

Je ne comprends pas pourquoi?

Qui sait pourquoi?

Merci d'avance.
Pascal

Code à l'ouverture du ficher

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
Call AFKO
End Sub

Code macro AFKO

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
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
Sub AFKO()
'
Application.DisplayAlerts = False
'Launching SAP and logging into the main screen if the program is not already open
 
If IsProcessRunning("saplogon.exe") = False Then
Dim SapGui, Applic, connection, session, WSHShell, myError, WScript
 
Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", vbNormalFocus
 
Set WSHShell = CreateObject("WScript.Shell")
 
Do Until WSHShell.AppActivate("SAP Logon ")
    Application.Wait Now + TimeValue("0:00:01")
Loop
 
Set WSHShell = Nothing
Set SapGui = GetObject("SAPGUI")
Set Applic = SapGui.GetScriptingEngine
Set connection = Applic.OpenConnection("10.01    PE1  -  S/4 System", True)
'error comes here if SAP-Logon and SAP is not logged in
Set session = connection.Children(0)
session.FindById("wnd[0]").Maximize
session.FindById("wnd[0]").SendVKey 0
End If
 
'Executing main screen, this part here is just setting variables for the  logged in interface. So once this is done you can enter the transaction.
 
'-----------new--------------------------
On Error Resume Next
'-----------new--------------------------
If Not IsObject(XXX) Then
   Set SapGui = GetObject("SAPGUI")
   Set XXX = SapGui.GetScriptingEngine
   '-----------new--------------------------
   myError = Err.Number
   '-----------new--------------------------
End If
If Not IsObject(connection) Then
   Set connection = XXX.Children(0)
   '-----------new--------------------------
   myError = Err.Number
   '-----------new--------------------------
End If
 
If Not IsObject(session) Then
'error comes here if SAP-Logon is open and SAP is connected
   Set session = connection.Children(0)
   '-----------new--------------------------
   myError = Err.Number
   '-----------new--------------------------
End If
'-----------new--------------------------
On Error GoTo 0
If myError <> 0 Then
  Set connection = XXX.OpenConnection("10.01    PE1  -  S/4 System", True)
'error comes here if only SAP-Logon is open and SAP not connected
  Set session = connection.Children(0)
  session.FindById("wnd[0]").Maximize
End If
'-----------new--------------------------
 
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject Applic, "on"
End If
 
'Transaction comes here
 
connection.Children(0).FindById("wnd[0]").ResizeWorkingPane 352, 55, False
connection.Children(0).FindById("wnd[0]/tbar[0]/okcd").Text = "/nsqvi"
connection.Children(0).FindById("wnd[0]").SendVKey 0
connection.Children(0).FindById("wnd[0]/usr/ctxtRS38R-QNUM").Text = "AFKO"
connection.Children(0).FindById("wnd[0]/usr/btnP1").Press
connection.Children(0).FindById("wnd[0]/tbar[1]/btn[8]").Press
connection.Children(0).FindById("wnd[1]/usr/txtRS38R-DBACC").Text = "100"
connection.Children(0).FindById("wnd[1]/usr/txtRS38R-DBACC").CaretPosition = 6
connection.Children(0).FindById("wnd[1]/tbar[0]/btn[0]").Press
connection.Children(0).FindById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").PressToolbarContextButton "&MB_EXPORT"
connection.Children(0).FindById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").SelectContextMenuItem "&XXL"
connection.Children(0).FindById("wnd[1]/tbar[0]/btn[0]").Press
connection.Children(0).FindById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\TEMP\"
connection.Children(0).FindById("wnd[1]/usr/ctxtDY_FILENAME").Text = "AFKO.XLSX"
connection.Children(0).FindById("wnd[1]/usr/ctxtDY_FILENAME").CaretPosition = 4
connection.Children(0).FindById("wnd[1]/tbar[0]/btn[11]").Press
connection.Children(0).FindById("wnd[0]/tbar[0]/btn[15]").Press
connection.Children(0).FindById("wnd[0]/tbar[0]/btn[15]").Press
connection.Children(0).FindById("wnd[0]/tbar[0]/btn[15]").Press
'
Do
    DoEvents
Loop Until FichierEstOuvert("C:\TEMP\AFKO.XLSX")
Application.ScreenUpdating = True
Workbooks("AFKO.XLSX").Activate
Application.ScreenUpdating = False
Workbooks("AFKO.XLSX").Save
Workbooks("AFKO.XLSX").Close
Workbooks("MaJ Tables SAP.XLSM").Activate
'
Application.DisplayAlerts = True
End Sub

Codes des fonctions

Code :

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

1
2
3
4
5
6
7
8
9
 
Function IsProcessRunning(process As String)
Dim objList As Object
 
Set objList = GetObject("winmgmts:").ExecQuery("select * from win32_process where name='" & process & "'")
 
IsProcessRunning = objList.Count > 0
 
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function FichierEstOuvert(ByRef FichierTeste As String) As Boolean
 
    Dim Fichier As Long
    On Error GoTo Erreur
    Fichier = FreeFile
    Open FichierTeste For Input Lock Read As #Fichier
    Close #Fichier
    FichierEstOuvert = False
    Exit Function
Erreur:
    FichierEstOuvert = True
End Function

[Qwazerty]

Salut

Je pense que le soucis vient de ta procédure de test "FichierEstOuvert"
Ne faudrait-il pas retourner False en cas d'erreur et True en cas de réussite? Sinon, lorsque ton code arrive à ce point et si le fichier est déà existant... ça donne une boucle infinie, ce qui semble correspondre à ton problème.

++
Qwaz

[deedolith]

Hello,

Ta fonction FichierEstOuvert ne fait pas exactement ce que tu croit.
Si le fichier n'existe pas ou est inaccessible, elle retourne Vrai, ce que n'a pas de sens (à mon avis, elle devrais planter).

Ta fonction AFKO viole le SRP, elle fait beaucoup trop de choses (obtenir les données en provenance de SAP, ouvrir le fichier resultant). Divise la en 2, ce sera plus facile à maintenir.

Je pense que le fait que les objets SAP ne soient pas détruit quand leur utilisation devient superflue font que ta boucle d'attente que ton fichier soit libérée par SAP tourne en rond (visiblement SAP ne libère pas le fichier comme tu le pense).
ce qui me ramène à mon point précédent, encapsulés dans une fonction à part, les objets SAP seront automatiquement détruits, en toute logiques les ressources détenues par ces dernier seront libérés.

Si tu écrivais des gestionnaires d'erreur correcte ?
Enfin, as-tu exécuté en pas à pas ? Utilisé des espions ?

[paspillon]

Salut Qwartz,

J'ai fait un essai avec ta proposition.
Cela ne marche pas.
C'est même pire.

Si tu as une autre idée, je suis preneur.

Cdlt.
Pascal

[paspillon]

Salut deedolith,

Merci pour les conseils ;-).
Je l'ai avaient déjà appliqué.

Petite précision concernant mon disfonctionnement.
Toutes mes macros marchent parfaitement si je les lance manuellement.

Par contre lorsque je créé une tâche planifié sous Windows pour ouvrir mon fichier Excel, la macro tourne en boucle.
J'ai fait un call pour lancer les macros à l'ouverture de mon fichier Excel.

Pas simple à expliquer;-(

Cdlt.
Pascal

[paspillon]

Bonjour,

J'ai l'impression que mon problème vient du fait qu'Excel n'est pas entièrement chargé (ouvert) lorsque mes macros commencent.

J'ai mis un temps d'attente avant d'appeler (call AFKO), mais a n'a rien changé.

Comment peut-on vérifier qu'Excel (mon fichier principal) est complet ouvert?

Cdlt.
Pascal

[Invité]

Bonjour Pascal,

J'ai l'impression que mon problème vient du fait qu'Excel n'est pas entièrement chargé (ouvert) lorsque mes macros commencent.

Pour moi, ça ce n'est pas possible !
Si la macro se lance, c'est que le classeur est ouvert

Le problème vient d'ailleurs et je pencherais sur la connexion à la session

Code :

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

1
2
3
Set session = connection.Children(0)
session.FindById("wnd[0]").Maximize
session.FindById("wnd[0]").SendVKey 0

Rien ne permet de savoir si la connexion est bien ouverte ?

[paspillon]

Bonjour BrunoM45,

Merci pour les infos.
La piste côté SAP est intéressante. Je cherche dans cette direction.
Pour l'instant, j'ai toujours la même problématique.

Cdlt.
Pascal

[paspillon]

Bonjour,

J'ai rajouté ce code dans la macro AFKO après la ligne 89

Code :

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

1
2
3
4
5
6
7
'
 
Set session = Nothing
Set connection = Nothing
Set WSHShell = Nothing
Set SapGui = Nothing
Set Applic = Nothing

Ce qui a pour but de stopper le script côté SAP
Mais ça ne change rien.
Donc la piste côté SAP est close.

Cdlt
Pascal

[deedolith]

Au risque de me répéter:

Ta fonction AFKO viole le SRP, elle fait beaucoup trop de choses (obtenir les données en provenance de SAP, ouvrir le fichier resultant). Divise la en 2, ce sera plus facile à maintenir.
Si tu écrivais des gestionnaires d'erreur correcte ?
Enfin, as-tu exécuté en pas à pas ? Utilisé des espions ?

Et théoriquement, une fois que tous les objets SAP sont détruits, tu n'a pas besoin de vérifier que le fichier Excel est ouvert, il doit être disponible. Contente toi de vérifier qu'il existe.

[paspillon]

Bonjour deedolith,

J'ai partagé ma macro en 2. Une pour la partie SAP et la 2ème pour la partie Excel.
J'ai exécuté pas-à-pas les macros.
Tout fonctionne très bien, comme auparavant.

Par contre, si je sors d'Excel et que j'ouvre mon fichier qui comporte une macro qui lance les autres macros à l'ouverture de mon fichier.
Dans ce cas de figure ma macro tourne en boucle. le fichier généré par SAP ne s'ouvre pas.
Dès que je stop la macro le fichier s'ouvre.

Pourquoi?

Cdlt.
Pascal

[deedolith]

Tu dois avoir un couacs dans la chaine des appels.
Macro du fichier A, qui appelle une macro du fichier B, qui importe les données SAP, c'est bien ce que je comprend ?
(Pas très conventionnel comme façon de procéder).

Ne serait-ce pas mieux de coller tes macros dans un XLAM histoire de te constituer une bibliothèque de fonctionnalités ?

[paspillon]

Bonjour deedolith ,

Là tu m'as perdu ;-)

Toutes mes macros sont dans le même fichier Excel.
Par contre j'ai séparé en 2 macros, pour avoir une macro pour SAP et une 2ème pour Excel.

Je ne sais pas ce qu'est le XLAM?
Je vais voir ce que c'est.

Cdlt.
Pascal

[paspillon]

Bonjour,

Je pense savoir où est le problème, mais je ne sais pas comment le résoudre.

A vrai dire mon fichier AFKO.XLSX s'ouvre dans un autre VBAProjet. Et du coup il n'arrive pas à dialoguer.

Je nomme ça VBAProjet (image ci-dessous), mais je ne suis pas sur de mon terme.




Comment dois-je faire ?

Merci d'avance.

Cdlt.
Pascal