Discussion :

[Tinien]

oui tu peut souligner ce que tu veut, au lieu de me prendre limite pour un imbecile apprend aussi a lire : JE N AI PAS ACCES A L AIDE EN LIGNE., je viens ici pour demander des conseils je débute, si je savais tout je ne serais pas en train de demander de l'aide. je fais des recherches depuis plus d'une semaine mais a part ce forum je n'ai personne pour m'aider sachant que je n'ai pas l'aide en ligne.

Si quelqu'un peut m'aider.
Merci

[ouskel'n'or]

Ma dernière contribution :
Si tes fichiers s'ouvrent avec NotePad, ce sont des txt.
Comme leur extension est différente, remplace

Nomfich = Dir(chemin & "\*.txt")

par

Code :

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

    Nomfich = Dir(chemin & "\*.dta")

Et adapte le chemin dans la sub Appel()
Mais surtout essaie de comprendre le code qu'on te donne qui que ce soit qui te le donne.
Maintenant la solution de decondelite en est une autre.
Bonne soirée

[Tinien]

Merci Ouskel'n'or

Le programme bloque sur une ligne

Code :

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

ActiveSheet.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Sheets.Count)

[decondelite]

oui tu peut souligner ce que tu veut, au lieu de me prendre limite pour un imbecile apprend aussi a lire : JE N AI PAS ACCES A L AIDE EN LIGNE., je viens ici pour demander des conseils je débute, si je savais tout je ne serais pas en train de demander de l'aide. je fais des recherches depuis plus d'une semaine mais a part ce forum je n'ai personne pour m'aider sachant que je n'ai pas l'aide en ligne.

Si quelqu'un peut m'aider.
Merci

Et les FAQ et les tutos t'en fais quoi? En plus c'est mieux expliqué que l'aide en ligne.
Et pas la peine de m'engueuler: si je t'ai dit que l'aide est sur le PC c'est parce que certains ne savent même pas ce que c'est que l'aide en ligne.

Donc bref, puisque t'as pas accès à l'aide en ligne, t'as encore beaucoup de support sur le site.

@ouskel'n'or:
A quelle autre manière de faire pensais-tu? Là ses fichiers sont inexploitables par Excel (du moins je le suppose) car ils n'ont pas de séparateur bien défini (il y a des espaces ou je ne sais quoi d'autre en plus des point-virgule), et la seule autre manière que je connais c'est utiliser automation sur par exemple word ou autre.

[ouskel'n'or]

Peut-être un pb de temps d'exécution, alors ajoute un DoEvents là

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Lister(chemin As String)
Dim Nomfich As String
    Nomfich = Dir(chemin & "\*.txt")
    Do While Nomfich <> ""
        Workbooks.OpenText Filename:=chemin & Nomfich, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True
        DoEvents
        ActiveSheet.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Sheets.Count)
        DoEvents
        Nomfich = Dir()
    Loop
End Function

Mais pour comprendre, consulte l'aide en ligne
Blague dans le coin, tu ferais bien d'exiger d'en avoir une. On ne peut pas faire de VBA sans aide en ligne (à moins de passer sa vie en recherche sur les forums ou de demander aux copains de faire son boulot)
Bonne soirée

[neupont]

Bon sans aide en ligne c'est dur, alors pour un débutant...

J'ai retrouvé une macro qui traitait plusieurs fichiers CSV, je l'ai un poil adaptée mais il reste peut-être des incohérences.

Par contre elle met les lignes des divers fichiers à la suite dans la même feuille alors que le code d'Ouskelnor met un fichier par onglet. A voir donc selon ton besoin.

Attention à ne pas avoir la variable chemin qui se termine par "\" et le filtre de la commande Dir qui commence par "\" ! Sinon ça fait genre C:\Temp\\*.dta

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
 
Sub traitement()
 
Dim tabString() As String
Dim chemin As String, nomFich As String, myString As String
Dim i As Long, a As Integer
 
chemin = "C:\Temp\"
 
nomFich = Dir(chemin & "*.dta") 'liste les *.dta
 
'importation des données :
i = 1
 
Do While nomFich <> ""
    Open chemin & nomFich For Input As #1 'on ouvre le fichier
    Do While Not EOF(1) 'on boucle dessus jusqu'à sa fin
 
        Line Input #1, myString
        myString = Replace(myString, " ", "") 'sert à virer les espaces inutiles vu que t'as que des nombres
 
        'on ventile en x champs selon les séparateurs ";" et on met dans un tableau
        tabString = Split(myString, ";")
 
        For a = 0 To UBound(tabString)
            Cells(i, a + 1) = tabString(a)
        Next a
        i = i + 1
    Loop
    Close #1
    nomFich = Dir() 'passe au fichier suivant
Loop
End Sub

[Tinien]

Merci a tout le monde pour votre aide ,et a neupont sa fonctionne super la macro.
J'ai demandé ce qu'il fallait pour avoir l'aide en ligne mais étant sur un environment bloquer dirigé par la Hollande pas facile d'avoir ce que l'on veut.
Merci encore

[fring]

On ne peut pas faire de VBA sans aide en ligne

si si c'est possible
.