Discussion :

[comme de bien entendu]

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 :

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

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:

"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

[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?

[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.

[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"

[comme de bien entendu]

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 :

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
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

[mayekeul]

Je n'ai pas tester, mais pourrais-tu essayer ce 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
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

[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 :

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.

[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...

[Godzestla]

Bonjour,

essaie de rajouter

Code :

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

set rs = NOTHING

à la fin de ta procédure.

j'ai cru voir un post dans ce sens ces derniers jours

[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)