Discussion :

[capi81]

Bonjour

Je cherche une solution pour résoudre le message d'erreur suivant:
"Erreur de compilation dans le module caché : CG_TG
cette erreur se produit probablement lorsque le code est incompatible avec la version, plateforme ou architecture de cette application".
J'utilise office 2016 maintenant. Est-ce que l'erreur pourrait provenir du changement de version office?
Le code me paraît bien rédigé car sur d'autres PC je ne rencontre pas ce message d'erreur et je remercie encore son auteur.
Ci-dessous le code:

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
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Sub Imprimer_VISA()
    Dim Nomfic As String, spath As String
    Dim x As Long
 
    x = FindWindow("XLMAIN", Application.Caption)
    spath = Environ("USERPROFILE")
    spath = spath & "\Desktop\Z_YEMBI\"
    Nomfic = Sheets("PARAMETRE_ADMIN").Range("M2")     
    ShellExecute x, "print", spath & Nomfic, "2", "3", 1
End Sub

[Zekraoui_Jakani]

Remplacer "Declare Function" et "Private Sub"
par:
"Declare PtrSafe Function" et "Declare PtrSafe Sub"
En général, pour assurer la compatibilité descendante avec VBA version 6 et versions antérieures, utilisez la construction suivante :

Code :

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

1
2
3
4
5
#If VBA7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf

[capi81]

Bonjour Zekraoui_Jakani et le forum

Je m'excuse du temps de réponse.
J'ai pas trop bien compris votre proposition mais voici ce que j'ai essayé de bricoler suivant votre aide:

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
Option Explicit
If vba7 Then
Private Declare ptrsafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
 
Private Declare ptrsafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Longptr
    Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Longptr
    End If

En faisant deds recherches pour comprendre l'utilisation de PtrSafe, j'ai appris qu'il "faut" utiliser

Code :

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

As Longptr au lieu de As Long

Merci de m'aider à faire bon usage de votre solution.

[Zekraoui_Jakani]

Dans l'expression "As Longptr", on dirait que cette variable est sortie de son contexte; elle vient probablement d'un module de classe.
Personnellement j'éviterais tous les tests su vb6/vba7, et j'utilisrais partout "Sub ptrsafe nomDeProcédure()" ou "Function ptrsafe nomDeFonction(x,y,...)"

[Philippe Tulliez]

Bonjour,
Lien en anglais sur la question How to convert Windows API declarations in VBA for 64-bit

[capi81]

Bonsoir Zakraoui et Philippe

Merci pour vos propositions respectives.
Zprès avoir ajouter le ptrsafe dans le code, j'ai constaté que la partie du code comportant Ptrsafe a été signalée en rouge comme pour indiquer qu'il y'avait une erreur.
J'ai ajouté # dans certains éléments du code comme ci-dessous et je souhaite qu'on m'assure que c'est correct avant que je ne puisse l'envoyer aux utilisatauers finaux:

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
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
 
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    #Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    #End If
Sub Imprimer_PS()
    Dim Nomfic As String, spath As String
    Dim x As Long
 
    x = FindWindow("XLMAIN", Application.Caption)
    spath = Environ("USERPROFILE")
    spath = spath & "\Desktop\Z_YE\"
    Nomfic = Sheets("PARAMETRE_ADMIN").Range("M2")     
    ShellExecute x, "print", spath & Nomfic, "2", "3", 1