j'aimerais utiliser une boite de dialogue pour l'ouverture=20
d'un fichier texte ( fichier texte sp=E9cifique)
en fait le fichier en l'ouvrant manuellement est tout=20
d'abord un fichier texte que j'ouvre avec excel en=20
l'ouvrant je lui dit de le delimit=E9,je cohe avec point=20
virgule, et en texte poru la premiere colonne et=20
j'aimerais que cela ce fasse tout seul=20
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
Nicolas B.
Salu Alex,
Essaie ce bout de code :
Sub Ouvrir() Dim str As String str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _ Semicolon:=True, FieldInfo:=Array(1, 2) End Sub
A+ Nicolas B.
Alex wrote:
bonjour à tous
j'aimerais utiliser une boite de dialogue pour l'ouverture d'un fichier texte ( fichier texte spécifique) en fait le fichier en l'ouvrant manuellement est tout d'abord un fichier texte que j'ouvre avec excel en l'ouvrant je lui dit de le delimité,je cohe avec point virgule, et en texte poru la premiere colonne et j'aimerais que cela ce fasse tout seul
quelqu'un pourais m'aider s'il vous plait ???
merci beaucoup pour votre aide
Salu Alex,
Essaie ce bout de code :
Sub Ouvrir()
Dim str As String
str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _
Semicolon:=True, FieldInfo:=Array(1, 2)
End Sub
A+
Nicolas B.
Alex wrote:
bonjour à tous
j'aimerais utiliser une boite de dialogue pour l'ouverture
d'un fichier texte ( fichier texte spécifique)
en fait le fichier en l'ouvrant manuellement est tout
d'abord un fichier texte que j'ouvre avec excel en
l'ouvrant je lui dit de le delimité,je cohe avec point
virgule, et en texte poru la premiere colonne et
j'aimerais que cela ce fasse tout seul
Sub Ouvrir() Dim str As String str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _ Semicolon:=True, FieldInfo:=Array(1, 2) End Sub
A+ Nicolas B.
Alex wrote:
bonjour à tous
j'aimerais utiliser une boite de dialogue pour l'ouverture d'un fichier texte ( fichier texte spécifique) en fait le fichier en l'ouvrant manuellement est tout d'abord un fichier texte que j'ouvre avec excel en l'ouvrant je lui dit de le delimité,je cohe avec point virgule, et en texte poru la premiere colonne et j'aimerais que cela ce fasse tout seul
quelqu'un pourais m'aider s'il vous plait ???
merci beaucoup pour votre aide
Alex
merci mais comment ceci va fonctionner car j'aimerais que en fait des que j'ouvre mon classeur il me lance un userform pour me demander d'ouvrir un fichier texte dans un repertoire quelqu'un pourrais m'aider ?? merci beaucoup
merci mais comment ceci va fonctionner car j'aimerais que
en fait des que j'ouvre mon classeur il me lance un
userform pour me demander d'ouvrir un fichier texte dans
un repertoire
quelqu'un pourrais m'aider ??
merci beaucoup
merci mais comment ceci va fonctionner car j'aimerais que en fait des que j'ouvre mon classeur il me lance un userform pour me demander d'ouvrir un fichier texte dans un repertoire quelqu'un pourrais m'aider ?? merci beaucoup
Nicolas B.
Dans ce cas il faut placer le code dans la procédure évènementielle Workbook_Open (dans le module ThisWorkbook) :
Private Sub Workbook_Open() Dim str As String str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _ Semicolon:=True, FieldInfo:=Array(1, 2) End Sub
A+ Nicolas B.
Alex wrote:
merci mais comment ceci va fonctionner car j'aimerais que en fait des que j'ouvre mon classeur il me lance un userform pour me demander d'ouvrir un fichier texte dans un repertoire quelqu'un pourrais m'aider ?? merci beaucoup
Dans ce cas il faut placer le code dans la procédure évènementielle
Workbook_Open (dans le module ThisWorkbook) :
Private Sub Workbook_Open()
Dim str As String
str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _
Semicolon:=True, FieldInfo:=Array(1, 2)
End Sub
A+
Nicolas B.
Alex wrote:
merci mais comment ceci va fonctionner car j'aimerais que
en fait des que j'ouvre mon classeur il me lance un
userform pour me demander d'ouvrir un fichier texte dans
un repertoire
quelqu'un pourrais m'aider ??
merci beaucoup
Dans ce cas il faut placer le code dans la procédure évènementielle Workbook_Open (dans le module ThisWorkbook) :
Private Sub Workbook_Open() Dim str As String str = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") Application.Workbooks.OpenText str, DataType:=xlDelimited, Tab:úlse, _ Semicolon:=True, FieldInfo:=Array(1, 2) End Sub
A+ Nicolas B.
Alex wrote:
merci mais comment ceci va fonctionner car j'aimerais que en fait des que j'ouvre mon classeur il me lance un userform pour me demander d'ouvrir un fichier texte dans un repertoire quelqu'un pourrais m'aider ?? merci beaucoup
