bonjour a tous
Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies
de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu
d'un dossier windows XP familial
actuellement, cette liste est dresse par ordre alphabetique des titres de
films, et se presente donc comme sui!
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee
002 - titre - acteur - acteur - acteur- annee
003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur
n'importe quelle colonne
est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me
supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les
macros
par avance merci
edgar
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier
à importer dans Excel était un fichier Texte (.txt)
Tu copies ce qui suit dans un module standard, et tu adaptes
quelques variables selon les info. dans ton environnement de travail.
'------------------------------------
Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant
Dim Chemin_Fichier As String, Sep As String
Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte
Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte
Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où
'tu veux importer les données
With Worksheets("Feuil3")
Open Chemin_Fichier For Input Access Read As #X
While Not EOF(X)
Line Input #X, WholeLine
T = Split(WholeLine, Sep)
A = A + 1
With .Range("A" & A)
.NumberFormat = "@"
.Value = Format(A, "0000")
.Offset(, 1).Resize(, UBound(T) + 1) = T
End With
Wend
Close #X
End With
End Sub
'------------------------------------
"edgar" <edgar@free.fr> a écrit dans le message de groupe de discussion :
4a112456$1$7878$426a34cc@news.free.fr...
bonjour a tous
Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies
de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu
d'un dossier windows XP familial
actuellement, cette liste est dresse par ordre alphabetique des titres de
films, et se presente donc comme sui!
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee
002 - titre - acteur - acteur - acteur- annee
003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur
n'importe quelle colonne
est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me
supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les
macros
par avance merci
edgar
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
edgar
"MichDenis" a écrit dans le message de news:
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un dossier, comme ce lien: http://Maxilien.com/?kb2hImKNWU si cela est possible, a partir de ce genre de fichier qui comporte environ 650 lignes comme je ne comprends strictement rien au processus, pourrais-tu me creer une feuille excel avec cette macro le chemin actuel de ce dossier est: dF I L M S Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
epvquc61JHA.6132@TK2MSFTNGP04.phx.gbl...
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier
à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un
dossier, comme ce lien:
http://Maxilien.com/?kb2hImKNWU
si cela est possible, a partir de ce genre de fichier qui comporte environ
650 lignes
comme je ne comprends strictement rien au processus, pourrais-tu me creer
une feuille excel avec cette macro
le chemin actuel de ce dossier est:
dF I L M S
Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes
quelques variables selon les info. dans ton environnement de travail.
'------------------------------------
Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant
Dim Chemin_Fichier As String, Sep As String
Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte
Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte
Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où
'tu veux importer les données
With Worksheets("Feuil3")
Open Chemin_Fichier For Input Access Read As #X
While Not EOF(X)
Line Input #X, WholeLine
T = Split(WholeLine, Sep)
A = A + 1
With .Range("A" & A)
.NumberFormat = "@"
.Value = Format(A, "0000")
.Offset(, 1).Resize(, UBound(T) + 1) = T
End With
Wend
Close #X
End With
End Sub
'------------------------------------
"edgar" <edgar@free.fr> a écrit dans le message de groupe de discussion :
4a112456$1$7878$426a34cc@news.free.fr...
bonjour a tous
Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies
de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu
d'un dossier windows XP familial
actuellement, cette liste est dresse par ordre alphabetique des titres de
films, et se presente donc comme sui!
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a
avoir:
001 - titre - acteur - acteur - acteur- annee
002 - titre - acteur - acteur - acteur- annee
003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer
sur
n'importe quelle colonne
est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me
supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas
les
macros
par avance merci
edgar
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un dossier, comme ce lien: http://Maxilien.com/?kb2hImKNWU si cela est possible, a partir de ce genre de fichier qui comporte environ 650 lignes comme je ne comprends strictement rien au processus, pourrais-tu me creer une feuille excel avec cette macro le chemin actuel de ce dossier est: dF I L M S Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
MichDenis
Si ton objectif est de renommer les fichiers d'un répertoire en ajoutant en début de chaque nom de fichier, l'expression 00x la procédure suivante devrait faire l'affaire :
'------------------------------------- Sub Renommer_Les_Fichiers_En_VBA()
Dim Fs As Object, Fichiers As Object Dim Chemin As String, Fichier As Object Dim Nom As String, A As Integer
'Où sont tes fichiers Chemin = "C:UsersDMDocumentsTest"
Set Fs = CreateObject("scripting.FileSystemObject") Set f = Fs.GetFolder(Chemin) Set Fichiers = f.Files For Each Fichier In Fichiers Nom = Fichier.Name A = A + 1 Nom = Format(A, "000") & "-" & Nom Name Chemin & Fichier.Name As Chemin & Nom Next End Sub '-------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a11e21c$0$23715$
"MichDenis" a écrit dans le message de news:
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un dossier, comme ce lien: http://Maxilien.com/?kb2hImKNWU si cela est possible, a partir de ce genre de fichier qui comporte environ 650 lignes comme je ne comprends strictement rien au processus, pourrais-tu me creer une feuille excel avec cette macro le chemin actuel de ce dossier est: dF I L M S Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
Si ton objectif est de renommer les fichiers d'un répertoire
en ajoutant en début de chaque nom de fichier, l'expression 00x
la procédure suivante devrait faire l'affaire :
'-------------------------------------
Sub Renommer_Les_Fichiers_En_VBA()
Dim Fs As Object, Fichiers As Object
Dim Chemin As String, Fichier As Object
Dim Nom As String, A As Integer
'Où sont tes fichiers
Chemin = "C:UsersDMDocumentsTest"
Set Fs = CreateObject("scripting.FileSystemObject")
Set f = Fs.GetFolder(Chemin)
Set Fichiers = f.Files
For Each Fichier In Fichiers
Nom = Fichier.Name
A = A + 1
Nom = Format(A, "000") & "-" & Nom
Name Chemin & Fichier.Name As Chemin & Nom
Next
End Sub
'-------------------------------------
"edgar" <edgar@free.fr> a écrit dans le message de groupe de discussion :
4a11e21c$0$23715$426a74cc@news.free.fr...
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
epvquc61JHA.6132@TK2MSFTNGP04.phx.gbl...
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier
à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un
dossier, comme ce lien:
http://Maxilien.com/?kb2hImKNWU
si cela est possible, a partir de ce genre de fichier qui comporte environ
650 lignes
comme je ne comprends strictement rien au processus, pourrais-tu me creer
une feuille excel avec cette macro
le chemin actuel de ce dossier est:
dF I L M S
Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes
quelques variables selon les info. dans ton environnement de travail.
'------------------------------------
Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant
Dim Chemin_Fichier As String, Sep As String
Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte
Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte
Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où
'tu veux importer les données
With Worksheets("Feuil3")
Open Chemin_Fichier For Input Access Read As #X
While Not EOF(X)
Line Input #X, WholeLine
T = Split(WholeLine, Sep)
A = A + 1
With .Range("A" & A)
.NumberFormat = "@"
.Value = Format(A, "0000")
.Offset(, 1).Resize(, UBound(T) + 1) = T
End With
Wend
Close #X
End With
End Sub
'------------------------------------
"edgar" <edgar@free.fr> a écrit dans le message de groupe de discussion :
4a112456$1$7878$426a34cc@news.free.fr...
bonjour a tous
Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies
de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu
d'un dossier windows XP familial
actuellement, cette liste est dresse par ordre alphabetique des titres de
films, et se presente donc comme sui!
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a
avoir:
001 - titre - acteur - acteur - acteur- annee
002 - titre - acteur - acteur - acteur- annee
003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer
sur
n'importe quelle colonne
est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me
supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas
les
macros
par avance merci
edgar
Si ton objectif est de renommer les fichiers d'un répertoire en ajoutant en début de chaque nom de fichier, l'expression 00x la procédure suivante devrait faire l'affaire :
'------------------------------------- Sub Renommer_Les_Fichiers_En_VBA()
Dim Fs As Object, Fichiers As Object Dim Chemin As String, Fichier As Object Dim Nom As String, A As Integer
'Où sont tes fichiers Chemin = "C:UsersDMDocumentsTest"
Set Fs = CreateObject("scripting.FileSystemObject") Set f = Fs.GetFolder(Chemin) Set Fichiers = f.Files For Each Fichier In Fichiers Nom = Fichier.Name A = A + 1 Nom = Format(A, "000") & "-" & Nom Name Chemin & Fichier.Name As Chemin & Nom Next End Sub '-------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a11e21c$0$23715$
"MichDenis" a écrit dans le message de news:
Bonjour Edgar,
à défaut d'avoir plus de détails, j'ai supposé que ton fichier à importer dans Excel était un fichier Texte (.txt)
non, je n'ai pas de fichier texte, mais un e liste de fichiers dans un dossier, comme ce lien: http://Maxilien.com/?kb2hImKNWU si cela est possible, a partir de ce genre de fichier qui comporte environ 650 lignes comme je ne comprends strictement rien au processus, pourrais-tu me creer une feuille excel avec cette macro le chemin actuel de ce dossier est: dF I L M S Dans tous les cas, merci pour ta prompte reponse
Tu copies ce qui suit dans un module standard, et tu adaptes quelques variables selon les info. dans ton environnement de travail. '------------------------------------ Sub Importer_Fichier_Texte()
Dim A As Integer, T As Variant Dim Chemin_Fichier As String, Sep As String Dim WholeLine As String, X As Long
Application.ScreenUpdating = False
'Chemin où ton fichier texte Chemin_Fichier = "C:USERSDMDOCUMENTSTEST.txt"
'Séparateur du fichier texte Sep = "-" 'À ADAPTER
X = FreeFile
'Nom de la feuille de calcul où 'tu veux importer les données With Worksheets("Feuil3") Open Chemin_Fichier For Input Access Read As #X While Not EOF(X) Line Input #X, WholeLine T = Split(WholeLine, Sep) A = A + 1 With .Range("A" & A) .NumberFormat = "@" .Value = Format(A, "0000") .Offset(, 1).Resize(, UBound(T) + 1) = T End With Wend Close #X End With End Sub '------------------------------------
"edgar" a écrit dans le message de groupe de discussion : 4a112456$1$7878$ bonjour a tous Mon probleme; je possede dans un dossier nomme "FIMS" une liste des copies de mes DVD (mais ce dossier n'est pas une feuille excel, mais le contenu d'un dossier windows XP familial actuellement, cette liste est dresse par ordre alphabetique des titres de films, et se presente donc comme sui! titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee titre - acteur - acteur - acteur- annee
je voudrais rajouter au debut de chaque ligne un numero, de maniere a avoir:
001 - titre - acteur - acteur - acteur- annee 002 - titre - acteur - acteur - acteur- annee 003 - titre - acteur - acteur - acteur- annee
et pourvoir reporter sur une feuille excel, de maniere a pouvoir classer sur n'importe quelle colonne est-ce possible?
je sais, bien sur, renommer dans un dossier windows, mais cela me supprimerait les litres, acteurs, etc.... que je voudrais conserver
je sais tout juste faire les 4 operations sur excel, mais ne connait pas les macros par avance merci edgar
