XL 2016 Requêtage dans fichier CSV

[Dymouille]

Bonjour à tous !

j'ai récupéré un petit bout de code que j'essaye d'adapter a ma sauce,
mais la je suis complètement bloqué,
Quand j'essaye de me connecter à mon fichier CSV j'ai cette erreur :

Csv_CN.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      DossierCSV & ";Extended Properties='text;FMT=Delimited'"

(j'ai bien activer la référence Microsoft ActiveX Data Objects)

Je vous joins le fichier avec la macro entière.

si quelqu'un a une solution, Merci d'avance !

 

[dysorthographie]

bonjour,

sv_CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DossierCSV & ";Extended Properties=""Excel 12.0;HDR=No/YES";"""

 

[Dymouille]

Hello,

merci pour ta réponse rapide,
ca ne marche pas, erreur de compilation,
et quand j'accepte les changements proposés par Excel

Csv_CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
DossierCSV & ";Extended Properties=""Excel 12.0;HDR=No/YES"""""

j'ai ca comme erreur :

 

[dysorthographie]

désolé je t'es donné pour un fichier Excel pas pour CSV!

voila la bonne version!
notes qu'il faut faire le choix HDR=No/YES HDR indique sil la première ligne du fichier est l'entête de colonnes!

     = "ProviderMicrosoft.ACE.OLEDB.12.0;Data Source=" & DossierCSV & ";Extended Properties=""Text;HDR=No/YES;FMT=Delimited;"""

 

[Dymouille]

ca a l'air de marcher merci 🙂, mais ca me sort ca ! pourtant mon chemin est bon

 

[dysorthographie]

pour ce qui concerne le répertoire je ne peut pas grand chose pour toi!
en revanche tu peux tester la connexion sur le répertoire TEMP!

DossierCSV =environ("TEMP")
 sv_CN.Open = "ProviderMicrosoft.ACE.OLEDB.12.0;Data Source=" & DossierCSV & ";Extended Properties=""Text;HDR=No=Delimited;"""

 

[Hasco]

Bonjour,

Vous avez Excel 2016, faites le avec Power Query, inclus dans votre version et disponible par l'onglet 'Données/A partir d'un fichier texte ou csv'.

Avant d'actualiser la requête mettez le chemin et nom complet du fichier 'Prenoms.txt' dans la feuille paramètres en B2

Voici un exemple

Cordialement

 

[Dymouille]

Bonjour Roblochon,

merci pour ta solution mais je dois importer 28 fichier Csv dans une base Access en requetant sur les données de ces derniers !
je pense pas pouvoir le faire avec ta méthode !



Dysorthographie,

La connexion avec le dossier est good,
maintenant ca bloque au niveau de la requête,
il me dit qu'il trouve bien le dossier, mais pas le fichier qui est dans ce dossier

Csv_Rst.Open "SELECT * FROM " & FichCSV, Csv_CN, _
        adOpenStatic, adLockOptimistic

 

[dysorthographie]

Notes que le point est un séparateur table.champ ! Il faut donc nommer ton fichier Fichier#Csv dans ta requête !
Xxx09#Csv

 

[Dymouille]

Public Sub transfert(NomFichierCsv As String, NomTableAccess As String)

--

end sub

Sub try()

transfert "3010337111109#csv", "try"

End Sub

si j'ai bien compris, comme ca ?
j'ai toujours le meme message d'erreur !

 

[dysorthographie]

transfert "[3010337111109#csv]", "try"

Mantenant quand tu me dis que la connexion est good tu parles de temp ou ton répertoire de travail ?

 

[Dymouille]

Pour le temp !
sur mon repertoire de travail quand je passe par un OneDrive ca me bloque,
je viens d'essayer depuis mon Bureau, et ca passe !
c'est different pour OneDrive et sharepoint du coup ?

Csv_CN.Execute "SELECT * INTO [" & NomTable & "] IN '" & _
        MaBase & "' From [" & FichCSV & "]", nbEnr

 

[dysorthographie]

Pour ce qui concerne OneDrive je n'es pas là réponse !

Pour moi ce n'est qu'un serveur et ça devrait passer ! Peut être un problème d'autorisation ?

Mais le message d'erreur parle de crochet et pourtant c'est la convention SQL !

 

[Dymouille]

Je pense que c'est une histoire d'autorisation oui !

Csv_CN.Execute "SELECT * INTO [" & NomTable & "] IN '" & _
        MaBase & "' From " & FichCSV & "", nbEnr

quand j'enleve les crochets dans le code
j'ai ce message maintenant

c'est pas une histoire champs en trop, j'ai moins de 255 champs pour une table (la limite dans access)

 

[dysorthographie]

c'est pas une histoire champs en trop, j'ai moins de 255 champs pour une table (la limite dans access)

si tu utilises dune base accdb il n'y à plus cette limitation!