Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

liste de films a transposer sur excel

3 réponses
Avatar
edgar
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

3 réponses

Avatar
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
Avatar
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



Avatar
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