Discussion :

[alsimbad]

Bonjour tout le monde
Je n'ai pas pratique le vba depuis un certain temps et je suis carément rouillé mais je m'y remet. j'ai besoin de votre aide car je n'arrive pas a trouvér sur le forum les articles ou discussion qui pourraient m'aider a faire le code dont j'ai besoin.
mon projet
choisir un repertoire ou j'ai déposé des fichiers txt issus d'un logiciel de compta, donc tous identiques
prendre la totalité des info s'y trouvant, mais sans les ouvrir
les traiter pour les transformer en un onglet de mon fichier portant le nom du fichier txt eta la fin concatener ces onglets en une seule feuille

pour le premier point concernant le choix du repertoire, j'ai trouvé un fichier démo de Philippe Tulliez très bien fait qui fonctionnepour la collecte de fichier xls (exportworkbooktable), et qui avec quelque adaptations devrait pouvoir me servir mais il ouvre les fichiers et j'aimerai traiter sans ouvrir

je ne trouve pas sur le forum comment travailler sur les fichier txt fermés

peut etre une histoire de mot clé pour trouver la méthode. j'ai lu le tuto de silkyroad pour travailler sur les classeurs excel fermés mais je dois avouer que je suis largué es ce adaptable a ce que je recherche ,
Voila, un peu d'aide est la bienvenue

[unparia]

Bonjour
Au hasard ? -->> premier réflexe --->> la FAQ Excel de ce site -->> les classeurs -->> lire les sous-rubriques -->> l'une d'elles est ce que tu recherches avec "difficulté"

[Philippe Tulliez]

Bonjour,
Il y a également un bouton Tutoriels Excel où tu trouveras également ton bonheur et notamment Lire et écrire dans les classeurs Excel fermés

[alsimbad]

Bonjour unparia
d'abord, je te remercie de ton aide, même si je trouve tes guillemets un rien sarcastiques, comme je l'ai dis dans mon message, je suis rouillé, non seulement sur excel mais aussi sur la fréquentation du forum, je n'ai effectivement pas pensé a la rubrique FAQ, mais tu pourras lire sur mon historique que j'ai bien souvent aidé les autres quand je fréquentais asiduement le site et que je me moque pas de ceux qui y sont perdus
et enfin merci phillipe Tulliez pour ton aide et ton fichier. comme je l'ai dis dans mon post de départ, j'ai lu ce tuto de silyroad et je ne sais pas l'adapter a des fichier teste. mais entre la faq et le tuto, je devrais déja progresser
i will be back

[mjpmjp]

bonjour,

j'ai déposé des fichiers txt... prendre la totalité des info s'y trouvant, mais sans les ouvrir

un fichier doit être OUVERT....et....fermé ....

ne pas confondre avec

Lire et écrire dans les classeurs Excel fermés

à part çà tu peu toujours t'amuser avec les accès disque

@+JP

[unparia]

alsimbad : mes guillemets n'expriment pas un sarcasme, mais le refus d'accepter que l'utilisation systématique parmi les questions/réponses de la FAQ soit une "difficulté". Lorsque la difficulté existe réellement, je ne l'entoure pas de guillemets.

Edit : les guillemets (leur utilisation), sont aussi cela :

également utilisés pour un mot, une expression, utilisés dans un contexte inhabituel, que l'on désire souligner ou nuancer

[Invité]

Bonjour tout le monde
Je n'ai pas pratique le vba depuis un certain temps et je suis carément rouillé mais je m'y remet. j'ai besoin de votre aide car je n'arrive pas a trouvér sur le forum les articles ou discussion qui pourraient m'aider a faire le code dont j'ai besoin.
mon projet
choisir un repertoire ou j'ai déposé des fichiers txt issus d'un logiciel de compta, donc tous identiques
prendre la totalité des info s'y trouvant, mais sans les ouvrir
les traiter pour les transformer en un onglet de mon fichier portant le nom du fichier txt eta la fin concatener ces onglets en une seule feuille

pour le premier point concernant le choix du repertoire, j'ai trouvé un fichier démo de Philippe Tulliez très bien fait qui fonctionnepour la collecte de fichier xls (exportworkbooktable), et qui avec quelque adaptations devrait pouvoir me servir mais il ouvre les fichiers et j'aimerai traiter sans ouvrir

peut etre une histoire de mot clé pour trouver la méthode. j'ai lu le tuto de silkyroad pour travailler sur les classeurs excel fermés mais je dois avouer que je suis largué es ce adaptable a ce que je recherche ,
Voila, un peu d'aide est la bienvenue

bonjour,
je ne vois pas trop ,dans ton exposé,le rapport avec des fichiers texte! mais bon si ça peut te servir.

https://www.developpez.net/forums/d1...u/#post9163787

[unparia]

Ah ... (lu trop vite) des fichiers texte "plats" ! Ils ne peuvent, eux, être traités/gérés par Visual Basic sans les ouvrir. L'affaire est donc toute vue.

[unparia]

J'aimerais maintenant que l'on remette les pieds sur terre et que l'on mette un terme à certains abus de langage dont la conséquence première est d'égarer, de faire perdre le sens des réalités.
Quand je lis par exemple ceci :

choisir un repertoire ou j'ai déposé des fichiers txt issus d'un logiciel de compta, donc tous identiques
prendre la totalité des info s'y trouvant, mais sans les ouvrir

mais il ouvre les fichiers et j'aimerai traiter sans ouvrir

je BONDIS.
Quelle que soit la nature d'un fichier, il est rigoureusement impossible d'accéder à son contenu sans l'OUVRIR !
L'ouvrir et le lire autrement qu'en l'ouvrant par telle ou telle autre application ne fait pas qu'on ne l'a pas OUVERT !
Tel est par exemple le cas d'un classeur. Sa structure est telle qu'elle peut être exploitée autrement qu'en utilisant l'application Excel, mais EN AUCUN CAS sans l'avoir OUVERT (consciemment ou non).
Parlons maintenant d'un fichier .txt et faisons l'analogie nécessaire pour remettre les pieds sur terre --->>
Un fichier Excel peut être lu et géré :
- soit en utilisant l'application "habituelle" vouée généralement à ces opérations-->> Excel, donc (et ouverture par Excel)
- soit en utilisant sa structure (de base de données) --->> et ouverture de toutes manières
De la même manière (analogie)
Un fichier texte peut être lu et géré :
- soit en utilisant l'une des applications "habituelles" vouées à ces opérations (notepad, etc ...) --->> et ouverture par l'une de ces applications
- soit en utilisant des outils (par exemple l'instruction Open de VBA) d'ouverture du fichier --->> et ouverture de toutes manières

Voilà. Et je suis désolé d'avoir eu besoin d'aborder ces aspects (qui semblent encore échapper à certains).

EDIT : et cessons s'il vous plait de parler de traitement sur des fichiers FERMES (classeurs ou autres). Fermés, ils ne le sont que jusqu'à leur OUVERTURE (quel que soit le procédé d'ouverture)


EDIT 2 : quelques expressions proposées parmi d'autres possibles en ce qui concerne les classeurs Excel :
"ouvrir et gérer un classeur
- sans l'ajouter à la collection WorkBooks
- autrement que par l'application définie par défaut (Excel)
- hors application Excel"

[mjpmjp]

bonjour,
parfaitement !!!

de même que si on veut lire dans les entrailles d'un poisson...il faut l'ouvrir...par tout a tix...

@+JP

[unparia]

Salut mjpmjp

de même que si on veut lire dans les entrailles d'un poisson...il faut l'ouvrir...par tout a tix..

.
par lui (Toutatix) ou par son ouverture anale (celle du poisson, hein ..)
Sauf (alors pas totalement nécessaire) s'il s'agit d'un pejerrey (devine pourquoi).

[Invité]

Bonjour,

Travailler sur un fichier fermé est un abus de langue communément employé! Faire une connexion Ado sur un fichier fermé est en réalité une autre façon de ouvrir.

Pour ma part sur ce sujet hautement philosophique je referme Ado et libère la connexion!

Dans mon lien (#8) je donne un exemple d'import dans Excel de fichier texte ["{sens les ouvrir}"]!

Avouez c'est vachement plus pratique de dire fichier fermé !

[unparia]

Bonjour Robert
Une expression "communément employée" ***** n'est pas gênante que si, à la fois :
- elle est utilisée au sein d'un groupe de personnes qui, TOUTES, ont la même habitude et l'interprètent se la même manière. Un forum n'est pas un groupe de personnes qui se connaissent, ont forcément toutes les mêmes habitudes, etc ... L'éclectisme y règne et s'impose alors un véhicule de communication ne laissant aucune place à des interprétations diverses.
- elle ne finit pas par jeter le trouble dans les esprits, voire à nuire, dans certains cas.

***** : Où ? Par qui ? Universellement et avec partout la même interprétation ?

Non, n'est-ce-pas ...(et on le voit bien ici).

Tiens, pour l'anecdote, une petite histoire --->>
Un Gallego fraîchement arrivé à Buenos-Aires et à la recherche vaine d'un taxi (pas d'arrêts/taxis) Calle Corrientes pour rejoindre son hôtel a approché et interrogé ainsi un policier qui passait par là :
"Podria usted décirme por donde se puede coger un taxi ?"
Le policier (un Porteño) l'a regardé, perplexe, quelques secondes puis lui a répondu
"Por el tubo de escape, pues" !)

Voilà
Amitiés

[mjpmjp]

bonjour,

Dans mon lien (#8) je donne un exemple d'import dans Excel de fichier texte ["{sens les ouvrir}"]!

Set Cn = CreateObject("ADODB.Connection"): Cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & rep & "...

With Cn.OpenSchema(20)... If Not .EOF Then ...

Set NewFichier = fso.OpenTextFile(Fichier, 2, True)

je vous vois venir ... Cn.Open... blabla..bla

PERSO , on ouvre et on ferme , point !!!!

tout le reste c'est du bling bling !!!

@+JP

[alsimbad]

Bonjour tout le monde
Je suis bien content que ce spot serve a exprimer et échanger dans la joie et la bonne humeur.
j'admet que pour lire dans un fichier, il faut l'ouvrir. mais a l'instar du poisson qu'il est possible de le vider discretement (par les ouies) je pensais que l'on pouvait lire dedans en toute discertion de maniere a obtenir un fonctionement plus fluide (pour le fichier , parce que le poisson, il va marcher beaucoup moin bien.
donc je vous remercie de vos liens precieux , je vais étudier tout ça, je reviendrais vers vous quad je calerais. merci a tous

[unparia]

a l'instar du poisson qu'il est possible de le vider discretement (par les ouies) je pensais que l'on pouvait lire dedans en toute discertion discrétion

Ben non ! Tu en "extirperas" ainsi un amalgame informe de viscères, sans la moindre possibilité de déterminer où et dans quel ordre exact elles se trouvaient avant ton intervention.
PS : autant je vois assez bien comment ouvrir un fichier (y compris depuis l'explorateur) autant j'ai du mal à trouver l'équivalent des "ouies" dont tu parles. Il n'en a aucune.
Mais j'attends une réponse du génie de Ali Baba (il a peut-être sa méthode, que je ne connais pas ... )

[Invité]

Bonjour,
Il y a également le tuto de Dysorthographie , proposé plusieurs fois dans ce fil,qui importe tous les CSV d'un répertoire dans EXCEL il suffi de modifier le chemin du répertoire rep = "C:\MyRepertoire\Nouveau dossier" (Très compliqué!) si le délimiteur est différent que le point virgule [;] je pourrai modifier la génération du fichier Shema.ini!

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Dim Cn AsObject, txt AsStringSub test()
Dim rep As String
txt = "[F.CSV]" & vbCrLf & _
"Format=Delimited(;)"
'rep = ChoixRepertoire()
rep = "C:\MyRepertoire\Nouveau dossier"
If rep = "" Then Exit Sub
Set Cn = CreateObject("ADODB.Connection"): Cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & rep & ";Extended Properties=""Text;HDR=YES;FMT=Delimited;"";")
With Sheets("Feuil3")
    tbls = TableToutes
    If TypeName(tbls) = "Variant()" Then
        For i = 0 To UBound(tbls, 2)
            Importer rep, .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(1), CStr(tbls(2, i)), True
        Next
    End If
End With
End Sub
Sub Importer(Repertoire As String, Destination As Range, Table As String, Entete As Boolean)
    With Cn
      If Table <> "" Then
            NewFichierTxt Repertoire & "\schema.ini", Replace(txt, "F.CSV", Replace(Table, "#", "."))
            If TableExiste(Table) Then Destination.CopyFromRecordset .Execute("SELECT * FROM [" & Table & "]")
            Kill Repertoire & "\schema.ini"
            End If
    End With
End Sub
 
Public Property Get PremiereTableAdo() As String
With Cn.OpenSchema(20)
    If Not .EOF Then
        PremiereTableAdo = .fields("TABLE_NAME")
    End If
    .Close
End With
End Property
Public Property Get TableExiste(TableName As String) As Boolean
With Cn.OpenSchema(20)
    If Not .EOF Then
    Debug.Print .fields("TABLE_NAME")
      .Filter = "TABLE_NAME ='" & TableName & "'"
       TableExiste = Not .EOF
    End If
    .Close
End With
End Property
Public Property Get TableToutes()
TableToutes = False
With Cn.OpenSchema(20)
    If Not .EOF Then
      TableToutes = .getrows
 
 
    End If
    .Close
End With
End Property
Private Sub NewFichierTxt(Fichier, txt)
Dim fso, NewFichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFichier = fso.OpenTextFile(Fichier, 2, True)
NewFichier.Write txt
NewFichier.Close
Set NewFichier = Nothing
Set fso = Nothing
End Sub
 
 
Function ChoixRepertoire(Optional RepDefault = "52") As String
   Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim Chemin As String
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, RepDefault)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    ChoixRepertoire = oFolderItem.Path
 
  EndFunction

[NEC14]

Oups ! j'ai lu trop vite ce post. Désolé dysorthographie d'avoir oublié de le mentionner.