VBA ADO avec Excel sur le serveur marche pas

Version imprimable

Bonjour,
Mon code fonctionne très bien sur ma machine, mais j'ai un probleme des
que je passe sur le serveur :
maintenant j'ai l'erreur : -2147217904
voici ma chaine de connection :
Code:

1 2 3 4 5 6 7 Set cn = New ADODB.Connection With cn .Provider = "MSDASQL" .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _ "DBQ=" & targetFile & "; ReadOnly=False;IMEX=1;" .Open End With
ce qui donne un parametre de connexion SUR MON POSTE:

Citation:

"Provider=MSDASQL.1;Extended Properties="DBQ=D:\RH\Entrées 2010.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;MaxBufferSize=2048;PageTimeout=5;ReadOnly=0;""

Faut il modifier un parametre de la connexion ? (a la limite je fais un replace)

Merci de vos idées

14/12/2010, 10h39
mayekeul

bonjour,

a chaud :)

targetFile est bien le même sur le serveur???
donc, le drive D existe bien sur les deux machones et pointe sur le même endroit?
14/12/2010, 10h48
comme de bien entendu

En fait "targetfile" est le chemin d'accès au fichier qui est spécifié par l'utilisateur via un Application.GetOpenFilename qui remplit une cellule nommée que je récupère comme chemin.

Donc normalement spécifié correctement.
14/12/2010, 11h47
mayekeul

je me pose une question

tu n'essaye pas d'ouvrir un fichier genre "blabla.xlsx"???
je pense qu'il attends plutot "blabla.xls"

Bonjour,

En fait il se connecte une premiere fois (lors du parcours de la premiere feuille) puis il ne veut plus se connecter.
C'est peut être du à ma gestion du RecordSet
Mais je ne peux tout tester en live, (mon accès au réseau est limité)
Je vous met le code, merci de votre retour :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
cpt_Mois = 0
Nb = ActiveWorkbook.Sheets.Count
While mois < Nb
    For cpt_BU = 0 To 7
    Set sh = ActiveWorkbook.Sheets(mois)
    With sh
            feuille = .Name
            strQuery = "select Nom,[Trig#_Recruteur],[REM annuelle]/12 from " & "[" & feuille & "$] where [BL/BU]=" & "'" & lesBU(cpt_BU) & "'"
            Set rs = New ADODB.Recordset
            rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly
           ThisWorkbook.Sheets(1).Cells(7 + cpt_BU * 25, 2 + cpt_Mois * 7).CopyFromRecordset rs
            rs.Close
        Set rs = Nothing
 
        End With
    Next cpt_BU
mois = mois + 1
cpt_Mois = cpt_Mois + 1
Wend

Je n'ai pas tester, mais pourrais-tu essayer ce code?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub testADO()
Set rs = New ADODB.Recordset
cpt_Mois = 0
 
 
For mois = 1 To ActiveWorkbook.Sheets.Count
    For cpt_BU = 0 To 7
        Set sh = ActiveWorkbook.Sheets(mois)
        strQuery = _
            "SELECT Nom,[Trig#_Recruteur],[REM annuelle]/12 " & _
            "FROM " & "[" & sh.Name & "$] " & _
            "WHERE [BL/BU]=" & "'" & lesBU(cpt_BU) & "';"
        rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly
        ThisWorkbook.Sheets(1).Cells(7 + cpt_BU * 25, 2 + cpt_Mois * 7).CopyFromRecordset rs
        rs.Close
    Next cpt_BU
    cpt_Mois = cpt_Mois + 1
Next mois
 
End Sub

14/12/2010, 16h41
comme de bien entendu

J'ai peut être une piste qu'il me reste à valider en ne mettant
pas le type de curseur et le type de verrou que j'avais au départ :

Citation:

adOpenDynamic,
adLockReadOnly

Je met rien à la place.
J'attends une place devant une machine ayant accès aux fichiers sur le réseau. (en tout cas sur un essai serveur ca le fait) pour tester.
15/12/2010, 10h56
comme de bien entendu

Pas mieux avec la suppression des parametres. Peut être en spécifiant d'autres parametres.
Je ne comprends pas car sur une partie du réseau cela fonctionne :
J'ai mis mon fichier anonymisé sur le reseau Share Temp (un réseau disponible pour les équipes internes sans login) et ca marche.
Du coup je me demande si il ne faut pas que je demande un login pour les utilisateurs, mais ils sont déjà loggués sur leur compte...
A moins que cela vienne du TimeOut.
Avez vous des idées ?
(j'ai essayé aussi la solution de 'mayekeul' qui rajoutait le point virgule mais cela ne change rien sur le réseau Share Temp.)
Toute les idées sont les bienvenues.

Autre chose, je n'avais pas remarqué mais dans la fenêtre de projet VBA je m'apercois que j'ai des VBAProjet ouverts correspondants aux fichiers que j'ouvre pour extraire des données, sauf que les fichiers Excel correspondants, eux, ne sont pas ouverts
Ca me parrait anormal, est ce que j'ai fait une betise, (je veille à fermer les fichiers que j'ai ouvert en fin d'opération.)
Si cela peut amener à trouver la solution ce serait cool.
Merci de vos idées...
15/12/2010, 15h59
Godzestla

Bonjour,

essaie de rajouter

Code:

set rs = NOTHING

à la fin de ta procédure.

j'ai cru voir un post dans ce sens ces derniers jours:mrgreen:
15/12/2010, 16h16
comme de bien entendu

Merci je pense que c'est bon, je viens de retester sur les fichiers du serveur que j'ai rapatrié j'avais la même erreur. En fait la ligne de titre sur le fichier serveur n'était plus bonne, j'ai changé ca a remarché, donc en relivrant un fichier correct sur le serveur, ca devrait le faire. (je vais remettre un set rs = nothing en fin de procédure)
Mais je continue d'autres devs et j'ai à nouveau poster....
(je mettrais résolu quand tout fonctionnera en prod)