Discussion :

[patricktoulon]

non pas par copiercoller mais avec ta méthode adob connection

avec l'object data on a une limite si je prends toutes les colonnes
avec htmlfile ca passe
avec adob on a aussi une limite

[Invité]

Oui je l'avais noté au poste #16, je vais voir si je peux insérer directement via ado mais je suis celtique en csv!

ÉDITE:

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
21
22
23
24
25
 
 
Public Sub ShemaInit(Serveur As String, Fichier As String, Delimited As String)
Dim fso, NewFichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFichier = fso.OpenTextFile(Serveur & "\schema.ini", 2, True)
NewFichier.Write "[" & Fichier & "]" & vbCrLf & "Format=Delimited(" & Delimited & ")"
NewFichier.Close
Set NewFichier = Nothing
Set fso = Nothing
End Sub
Sub test()
Dim Server As String, Delimited As String, Fichier As String
Server = "C:\MyRepertoire": Fichier = "toto#CSV": Delimited = "|"
Dim Plage As Range
Set Plage = ActiveSheet.UsedRange
With CreateObject("AdoDb.Connection")
'ThisWorkbook.FullName
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=NO;"""
    On Error Resume Next: .Execute "Drop table " & Fichier: On Error GoTo 0
    ShemaInit Server, Replace(Fichier, "#", "."), Delimited
    .Execute "Select * INTO  " & Fichier & " from [" & Plage.Parent.Name & "$" & Replace(Plage.Address, "$", "") & "] in '" & Plage.Parent.Parent.FullName & "' 'Excel 12.0;HDR=Yes;'"
    .Close
End With
End Sub

[patricktoulon]

re
Bonjour Robert
je pense qu'il y a un souci ci dessous la capture du fichier d'origine et le csv

c'est quoi ces "Fxx"?