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