Exécuter une requête d'un fichier excel dans une GED sharepoint

Fermé
fanny35000 Messages postés 4 Date d'inscription jeudi 23 avril 2015 Statut Membre Dernière intervention 24 avril 2015 - 23 avril 2015 à 11:34
fanny35000 Messages postés 4 Date d'inscription jeudi 23 avril 2015 Statut Membre Dernière intervention 24 avril 2015 - 24 avril 2015 à 10:23
Bonjour à tous,

J'ai créé une petite application en VBA sous Excel 2010 pour traiter des demandes. Tout fonctionne bien quand le fichier Excel se trouve sur mon disque dur.
Par contre, je l'ai déposé sur notre GED Sharepoint et là ça dysfonctionne complètement.

Petite explication, j'exécute une requête SQL et je récupère les infos que je mets dans une feuille "Resultats". J'ai créé une plage nommée "SELECTION" qui correspond au contenu de la feuille "Resultats". Ensuite, je fais une requête pour rechercher un matricule dans cette "SELECTION".

Voici le code qui fonctionne sur mon poste (hors GED) :

Application.ScreenUpdating = False
Dim rs As ADODB.Recordset
set rs=new adodb.recorset
Set Cnx = New ADODB.Connection
req = "select * from SELECTION where id = '" + Matricule+ "'"
With Cnx
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES;"""
End With
Cnx.Open
If Cnx.State = adStateOpen Then
rs.open req, Cnx
End If


Voici le code que j'ai modifié une fois le fichier sur la GED :

Application.ScreenUpdating = False
Dim rs As ADODB.Recordset
set rs=new adodb.recorset
Set Cnx = New ADODB.Connection
req = "select * from SELECTION where id = '" + Matricule+ "'"
With Cnx
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=\\cheminGED\Fichier.xlsm;LIST={8C989D07-6C93-4443-A076-C82F49212595};Extended Properties=""Excel 12.0;HDR=YES;"""
End With
Cnx.Open
If Cnx.State = adStateOpen Then
rs.open req, Cnx
End If


La connexion se passe bien mais j'ai une erreur sur
rs.open  req, Cnx


J'ai déjà essayé de remplacé SELECTION par :
[SELECTION]
[SELECTION $]
[SELECTION$]
`SELECTION`
`SELECTION $`
`SELECTION$`
[Resultats$!SELECTION]

En remplaçant SELECTION par Resultats$!SELECTION j'ai le message suivant :


Quelqu'un aurait-il une idée sur le sujet ? Car là après deux jours de recherche, je commence à désespérer ...

Merci d'avance de votre aide.
A voir également:

3 réponses

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
23 avril 2015 à 13:54
bonjour

peut-^tre
SELECTION est mot réservé ???
0
fanny35000 Messages postés 4 Date d'inscription jeudi 23 avril 2015 Statut Membre Dernière intervention 24 avril 2015
23 avril 2015 à 13:56
J'ai déjà essayé en mettant TOTO à la place et j'ai la même erreur ...
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
24 avril 2015 à 07:07
0
fanny35000 Messages postés 4 Date d'inscription jeudi 23 avril 2015 Statut Membre Dernière intervention 24 avril 2015
24 avril 2015 à 08:14
J'ai posté uniquement sur ces deux forums ...
Le terme Cross posting sauvage est un peu exagéré non ?
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
24 avril 2015 à 08:20
C'est de poser ses problèmes un peu partout qui est exagéré
0
fanny35000 Messages postés 4 Date d'inscription jeudi 23 avril 2015 Statut Membre Dernière intervention 24 avril 2015
24 avril 2015 à 10:23
Très bien merci de votre aide qui fut très précieuse ...
0