Probleme connection adodb Fermé

Question

Bonjour; 

Je rencontre un souci sur un PC, j'ai un fichier Excel avec un lien vers une macro complémentaire. 

Dans cette macro complémentaire, je vais une connexion adodb sur mon fichier.
Lors de l'activation de la macro, il m'ouvre une deuxième fois mon fichier en lecture seul, et il rencontre un problème de zone nommé, une zone nommée porte déjà le même nom.

Or la macro fonctionne parfaitement sur tous les PC sauf un .

Avez-vous une idée d'où cela peut venir ?

PS : par souci de confidentialité je ne peux pas vous montrer le code.

Merci par avance

Configuration: Windows Vista / Internet Explorer 9.0

michel_m · Answer

bonjour,
peut-^tre
depuis XL2007 le script de connexion a changé

Voir 
https://www.connectionstrings.com/

si XL>=2007
With Cn        .Provider = "Microsoft.Jet.OLEDB.4.0"        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""        .Open    End With
si <2007
With Cn        .Provider = "Microsoft.Jet.OLEDB.4.0"        .ConnectionString = "Data Source=" & Fichier & _            ";Extended Properties=Excel 8.0;"        .Open    End With
source;
https://silkyroad.developpez.com/VBA/ClasseursFermes/

edit:
 aussi peut-^tre la référence non cochée dans outil-référence de l'éditeur vba
 dans ce cas il vaut écrire dans la macro
Dim cn as object
...
set Cn=createobject("adodb.connexion")
m^me punition pour la requ^te
 Michel

pernic · Answer

merci pour ta réponse rapide 
j'ai bien la bonne connexion, je ne pense pas que cela vienne du code, le fichier étant partagé par toute l'équipe et le problème n'arrive que sur un PC, je pense que cela vient plutôt d'une config Excel indépendant au fichier, mais je ne vois pas laquelle.
j'ai vérifié les références et les compléments, et tout le monde a les mêmes.

pijaku · Answer

Bonjour,

Excusez l'incruste...

Peut être une différence de Bits, 64 vs 32...
Si votre Office est en 32 bits, il cnviendra d'utiliser comme dit précédemment par Michel :
Provider = "Microsoft.Jet.OLEDB.4.0"
Sinon, en 64 bits, remplacer par :
Provider = "Microsoft.ACE.OLEDB.12.0" 

Ou pas...........

Source : https://stackoverflow.com/questions/26515823/working-with-oledb-connection-on-office-2013-64-bit
 
&#127932; Cordialement,
Franck &#127926;

pijaku · Answer

Tu dis :
il m'ouvre une deuxième fois mon fichier en lecture seul, et il rencontre un problème de zone nommé, une zone nommée porte déjà le même nom. 
Que se passe t'il donc, sur ce pc, pour que ta macro ouvre deux fois ce classeur?
Parce qu'il est là le souci.
Si tu lances ce code (je ne sais pas si c'est possible) en mode pas à pas sur le pc qui pose souci, tu apercevras peut être un élément qui diffère des autres...

pijaku · Answer

Bon...
Pas simple, sans code ni fichier.
Regarde les options Excel. Il y a forcément quelque chose qui est différent dans le PC qui bloque.
Je pense, notamment à :
Menu Fichier/Options Excel/Centre de gestion de la confidentialité
Paramètres de blocage des fichiers 
Vérifie les cases cochées.regarde par exemple si la case "ouvrir" est bien décochée pour les fichiers de macros complémentaires...

Sinon, ne te reste qu'à parcourir toutes les options de cet excel par rapport aux autres...

pijaku · Answer

Bonjour,

La nuit portant conseil, peux tu placer un MsgBox dans le code juste avant la connection et me dire si tu as une différence entre le poste "merdique" et un autre :
MsgBox chemin
Myconnection.Open "driver={Microsoft Excel Driver (*.xls)};" & " DBQ=" & chemin & "; ReadOnly=False;"

Probleme connection adodb

6 réponses

Discussions similaires