XL 2019 Problème avec le code VBA

[scoubidou35]

Bonjour à tous,

Suite à un problème d'ordi, l'entreprise m'a fourni un nouvel ordi avec excel 2019.
Et lorsque je veux ouvrir mon fichier excel qui fonctionnait très bien sous la version 2016, j'ai maintenant un message d'erreur (Cf. photo 2) et à priori cela viendrai de la première ligne de code en code sur l'image 1.
Mais je ne comprends pas ce qui ce passe, ni ce qu'il faut faire.
Donc si quelqu'un a une explication et la solution je suis preneur
Je reste disponible si vous avez besoins d'info supplémentaires.
Merci

 

[Dranreb]

Bonjour.
Il faut mettre 'PtrSafe' entre 'Declare' et 'Sub'
Attention, pour d'autre Declare dans d'autres classeurs ça pourrait ne pas suffire.
D'anciens Long destinés à recevoir une adresse devront aussi être retypés As LongPtr

 

[scoubidou35]

Bonjour Dranreb
J'ai fait les modifs et ca semble fonctionner (je n'ai plus les messages). Mais le fichier est partager avec un collègue qui lui a encore excel 2016. Et depuis que j'ai modifier le code VBA, il n'arrive plus à ouvrir le fichier. Il a un message lui disant "Impossible d'ouvrir le fichier "blabla.xlms" car son format ou son extension n'est pas valide. Vérifiez que le fichier n'est pas endommagé et que son extension correspond bien au format du fichier."
Est ce que c'est du qu'il n'utilise pas la même version d'excel? Y a t'il un moyen de contourner le problème?.
Merci

 

[Dranreb]

Mettez les deux versions avec une directive de compilation conditionnelle utilisant la constante VBA7 :

         #If VBA7 Then
Private Declare PtrSafe Sub …
         #Else
Private Declare Sub …
            #End If

 

[scoubidou35]

Merci Dranreb,
J'ai intégré le code dans le fichier cela fonctionne pour la version excel 2016 mais pas avec 2019.
De plus, après avoir fait un essai d'ouverture du fichier depuis excel 2019, lorsque je veux réouvrir mon fichier depuis excel 2016 j'ai un message indiquant que le fichier est endommagé ou corrompu.
Mais si je réinstalle la version du fichier d'avant le test de l'ouvrir avec excel 2019. Ca fonctionne de retour sur excel 2016 mais toujours pas sur 2019
Le fichier est sur teams de l'entreprise et j'ai contacté le service IT pour comprendre mais en vain.
Est ce que le fait d'avoir fait les modifs du code depuis excel 2016 peut être la cause.
Cordialement

 

[Dranreb]

Ce serait plutôt à la rigueur des modifs en 2019 qui pourraient établir des détails non encore lisibles par une version antérieure. Je ne peux pas savoir de quoi il s'agit, j'ai aussi 2016.

 

[scoubidou35]

Je peux même pas faire une vérification de compatibilité pour voir d'où vient le problème depuis excel 2019 puisque je n'arrive pas à l'ouvrir.

 

[Staple1600]

Bonsoir

Il suffit d'ouvrir ton classeur sans activer les macros.
Ainsi tu auras accès au projet VBA.

 

[scoubidou35]

Bonjour Staple1600
Les macro sont désactivées à chaque fois qu'on ouvre le fichier sécurité demandé par l'entreprise. Mais en fait j'ai l'écran excel avec la fenêtre qui montre l'avancement de l'ouverture du fichier, mais rien ne se passe l'écran est comme figé. Puis après un message me disant que le fichier ne peut être ouvert car endommagé ou corrompu apparaît.

 

[Staple1600]

Bonsoir

En relisant ce fil, ceci m'a interpellé

d'ouvrir le fichier "blabla.xlms"

L'extension valide est xlsm et non pas xlms

Ce ne serait simplement là le souci

 

[scoubidou35]

Bonsoir

En relisant ce fil, ceci m'a interpellé


L'extension valide est xlsm et non pas xlms

Ce ne serait simplement là le souci

Bonsoir,
C'est moi qui ai fait une faute d'orthographe dans mon message.
Désolé

 

[Staple1600]

Re

Si ton fichier n'est pas confidentiel et pas trop volumineux, joins le sur le forum qu'on puisse voir si on peut l'ouvrir.

 

[scoubidou35]

Désolé il y a des données confidentielles et il fait plus de 7mo. Merci quand même pour votre proposition

 

[scoubidou35]

Je pense que le problème viens du fait qu'on soit deux à travailler sur le fichier et avec des versions excel différentes

 

[Staple1600]

Re

Comment peux-tu travailler dessus si tu n'arrives pas à l'ouvrir ???