XL 2016 Requêtage dans fichier CSV

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #2

bonjour,

VB:

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

 

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #3

Hello,

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

VB:

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 :

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #4

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!

VB:

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

 

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #5

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #6

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!

VB:

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Mai 2021

• #7

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

 

Pièces jointes

• Prenoms.txt

  294.7 KB · Affichages: 4
• interrogation prénoms.xlsm

  205.3 KB · Affichages: 4

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #8

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

VB:

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

 

Dernière édition: 3 Mai 2021

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #9

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

 

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #10

VB:

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 !

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #11

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

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

 

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #12

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 ?

Code:

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #13

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 !

 

Vote positif 0 Vote négatif

D

Dymouille

XLDnaute Nouveau

• 3 Mai 2021

• #14

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

VB:

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)

 

Dernière édition: 3 Mai 2021

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 3 Mai 2021

• #15

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif