Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" a écrit dans le message de news:Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" a écrit dans le message de news:
485f7f32$0$3634$Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" a écrit dans le message de news:J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f75f6$0$7882$Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" a écrit dans le message de news:Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f658e$0$20717$Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ur7RuDS1IHA.4220@TK2MSFTNGP02.phx.gbl...
Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f7f32$0$3634$426a74cc@news.free.fr...
Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O24glqR1IHA.5832@TK2MSFTNGP02.phx.gbl...
J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f75f6$0$7882$426a74cc@news.free.fr...
Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uHflhWR1IHA.5728@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f658e$0$20717$426a74cc@news.free.fr...
Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" a écrit dans le message de news:Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" a écrit dans le message de news:
485f7f32$0$3634$Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" a écrit dans le message de news:J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f75f6$0$7882$Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" a écrit dans le message de news:Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f658e$0$20717$Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
Regarde le classeur après exécution de la macro à l'adresse :
http://cjoint.com/?gxnKDH7P23
Daniel
"Michel B" a écrit dans le message de news:
485f85a6$0$30895$Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" a écrit dans le message de news:Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" a écrit dans le message de news:
485f7f32$0$3634$Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou
Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" a écrit dans le message de news:J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f75f6$0$7882$Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" a écrit dans le message de news:Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de
news: 485f658e$0$20717$Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
Regarde le classeur après exécution de la macro à l'adresse :
http://cjoint.com/?gxnKDH7P23
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f85a6$0$30895$426a74cc@news.free.fr...
Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ur7RuDS1IHA.4220@TK2MSFTNGP02.phx.gbl...
Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f7f32$0$3634$426a74cc@news.free.fr...
Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou
Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O24glqR1IHA.5832@TK2MSFTNGP02.phx.gbl...
J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485f75f6$0$7882$426a74cc@news.free.fr...
Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uHflhWR1IHA.5728@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de
news: 485f658e$0$20717$426a74cc@news.free.fr...
Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
Regarde le classeur après exécution de la macro à l'adresse :
http://cjoint.com/?gxnKDH7P23
Daniel
"Michel B" a écrit dans le message de news:
485f85a6$0$30895$Re Daniel,
http://cjoint.com/?gxnnqvvN5d
je te l'est mis en .rar mais ce n'est pa lourd
Encore
Merci
Michel
"Daniel.C" a écrit dans le message de news:Peux-tu mettre un fichierde test sur www.cjoint.com en effaçant les
données confidentielle ? Poste ensuite ici l'adresse générée.
Daniel
"Michel B" a écrit dans le message de news:
485f7f32$0$3634$Re Daniel,
Je viens de d'essayer, cela progresse, j'ai le premier fichier.
Le classeur est renommer "Resnet.10" du nom du fichier et la feuille
aussi "Resnet.10".
Puis j'ai une fenêtre d'erreur, Erreur défini par l'Application ou
Objet
Et enfin les deux ligne suivante en jaune ?
Je suis sous XP avec Excel 2002 ?
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
Encore merci
Michel
---------------------------------------------------
"Daniel.C" a écrit dans le message de news:J'aurais dû tester ;-(
Essaie :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de news:
485f75f6$0$7882$Bonjour Daniel,
Je viens de tester, mais est-ce bien comme cela qu'il fallait faire ?
Beaucoup de chose défile a l'écran, mais la table est vide a l'arivée
?
Merci pour le coup de main
Michel
---------------------------
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 23/06/2008 par Admin
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As String, Ligne As Long
Const Chemin As String = "C:Resnet"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, Semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
--------------------------------------------------------
"Daniel.C" a écrit dans le message de news:Bonjour.
Essaie, en changeant le dossier :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpfe"
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1)
ActiveWorkbook.Close
Ligne = [A1].End(xlUp) + 1
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Michel B" a écrit dans le message de
news: 485f658e$0$20717$Bonjour a toutes et a tous.
J'ai un repertoire contenant différent fichier txt délimité par des
" ; " ( point-virgule).
Tous ont un formatage identique.
Fichier.1.txt
Fichier.2.txt
Fichier.3.txt
Fichier.4.txt
Fichier.5.txt
Etc....
il peut y avoir entre 40 et 120 fichiers
Je dois réunir l'ensemble du contenu des fichiers présent dans une
seule feuilles.
Ma question, cela est'il automatisable et si oui comment ?
D'avance
merci
Cordialement
Michel
> Peut être faut il des bibliothéques suplementaires, je ne connait pas bien
VBA.
> Peut être faut il des bibliothéques suplementaires, je ne connait pas bien
VBA.
> Peut être faut il des bibliothéques suplementaires, je ne connait pas bien
VBA.
Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" a écrit dans le message de news:Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uZoDJeT1IHA.2064@TK2MSFTNGP05.phx.gbl...
Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" a écrit dans le message de news:Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
Rebonjours Michel
Sur ce lien ma nouvelle proposition en droite ligne des fichiers que
tu m'as transmis :
http://www.cijoint.fr/cjlink.php?file=cj200806/cij6Fc099J.xls.
fais des essais et dis moi !!!!
Rebonjours Michel
Sur ce lien ma nouvelle proposition en droite ligne des fichiers que
tu m'as transmis :
http://www.cijoint.fr/cjlink.php?file=cj200806/cij6Fc099J.xls.
fais des essais et dis moi !!!!
Rebonjours Michel
Sur ce lien ma nouvelle proposition en droite ligne des fichiers que
tu m'as transmis :
http://www.cijoint.fr/cjlink.php?file=cj200806/cij6Fc099J.xls.
fais des essais et dis moi !!!!
A tout hasard, essaie le code suivant :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpferesnet"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1).PasteSpecial xlValues
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Daniel
"Michel B" a écrit dans le message de news:
485faf23$0$29167$Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" a écrit dans le message de news:Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
A tout hasard, essaie le code suivant :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpferesnet"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1).PasteSpecial xlValues
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Daniel
"Michel B" <michel_b@libertysurf.fr> a écrit dans le message de news:
485faf23$0$29167$426a74cc@news.free.fr...
Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uZoDJeT1IHA.2064@TK2MSFTNGP05.phx.gbl...
Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel
A tout hasard, essaie le code suivant :
Sub test()
Dim Fich As String, Ligne As Long
Const Chemin As String = "e:donneesdanielmpferesnet"
Application.ScreenUpdating = False
Ligne = 1
Fich = Dir(Chemin & "*.txt")
Do While Fich <> ""
Workbooks.OpenText Chemin & Fich, _
DataType:=xlDelimited, semicolon:=True
ActiveSheet.UsedRange.Copy
ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1).PasteSpecial xlValues
ActiveWorkbook.Close
Ligne = [A1].End(xlDown).Row + 1
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub
Daniel
"Michel B" a écrit dans le message de news:
485faf23$0$29167$Oui, je l'ai changer en
"C:Resnet" et j'avais au préalable esssayé ausi en reconstituant ton
chemin sur mon disk E.
J'ai essayé chez mon fils, cela ne marche pas non plus. Il est comme moi
"PC duo 3 Go"
En revanche sur le PC de ma fille cela fonctionne ?
C'est la machine la plus vieille et la moins puissante. Un AMD 2800 de 6
ans ?
Lorsque cela ne fonctionne pas ce sont toujours les deux même lignes en
jaune ?
Sur la mienne j'ai assayé en revenant a Off 2000 idem, en Off 2003 idem.
j'attend d'avoir une machine de libre pour essayer en Off 2007 ?
Je commence a désespérer
Michel
"Daniel.C" a écrit dans le message de news:Peut être faut il des bibliothéques suplementaires, je ne connait pas
bien VBA.
Normalement non. Est-ce que tu as bien changé la constante "Chemin" avec
un "" à la fin ?
Daniel