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