Discussion :

[FrancisZheng]

Bonjour :

Voici une partie de mon code pour copier une plage d'un classeur fermé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ConnectCLasseur(ConnectCL As Object, _
                            Fichier As String, _
                            Optional Rs)
 
    Set ConnectCL = CreateObject("ADODB.Connection")
 
    If Not IsMissing(Rs) Then Set Rs = CreateObject("ADODB.Recordset")
 
    ConnectCL.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _    '<----------------------
                   "Data Source=" & Fichier & ";" & _                    '<----------------------   Erreur
                   "Extended Properties=""Excel 8.0;HDR=NO;IMEX=2;"""  '<-------------
 
End Sub

Il y a toujours une erreur d'exécution : "La table externe n'est pas dans le format attendu". J'ai déjà coché la librairie
"Microsoft Jet and Replication Objects 2.6".

Qu'est-ce qu'il y a comme faute? Merci d'avance.

[kiki29]

Salut, lire ceci : Se connecter aux classeurs Excel2007 xlsx et xlsm.

[Invité]

Bonjour,

Test comme ça
Connexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & chemin & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2;"""

[Theze]

Bonjour,

Tu cherche à te connecter à un fichier .csv donc ça, ça ne marche pas : "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2"
Plutôt ceci : "Extended Properties=""text;HDR=YES;FMT=Delimited;"
Regarde l'autre post et fais un test

[FrancisZheng]

Bonjour,

Tu cherche à te connecter à un fichier .csv donc ça, ça ne marche pas : "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2"
Plutôt ceci : "Extended Properties=""text;HDR=YES;FMT=Delimited;"
Regarde l'autre post et fais un test

Bonjour :
Vous avez raison. C'est un fichier .csv. Puis j'ai essayé après la modification :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ConnectCLasseur(ConnectCL As Object, _
                            Fichier As String, _
                            Optional Rs)
 
    Set ConnectCL = CreateObject("ADODB.Connection")
 
    If Not IsMissing(Rs) Then Set Rs = CreateObject("ADODB.Recordset")
 
    ConnectCL.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & Fichier & ";" & _
                   "Extended Properties=""text;HDR=YES;FMT=Delimited;"""

Il me renvoie :

Sauf que C:\Users\stg_pao\Desktop\ExportStat_Global_Synthese.csv est exactement l'emplacement du fichier.

[Invité]

Bonjour,
ta connexion laissait entendre que c'était de l'Excel et pas du csv!
http://www.developpez.net/forums/d15...s/#post8430556
http://www.developpez.net/forums/d15...s/#post8431023

la connexion se fait sur un répertoire (Serveur) pas un fichier: C:\Users\stg_pao\Desktop\ExportStat_Global_Synthese.csv

[FrancisZheng]

Bonjour,

Test comme ça
Connexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & chemin & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2;"""

Bonjour :

Cela ne fonctionne toujours pas. J'aurais dû préciser que c'est un fichier .csv.