Supposons un fichier texte au contenu suivant:
Titre;Pr=E9nom;Nom
Monsieur;Jean;Dupont
Madame;Nadine;Duval
Enregistr=E9 sous Essai.csv
Excel connait ce type de fichier et si on passe par le=20
menu Fichier, Ouvrir, en pr=E9cisant tous type de fichiers=20
(*.*) ou fichier texte(*.txt, *.csv)
le fichier s'ouvre bien et on a:
Titre en A1, Pr=E9nom en B1, Nom en C1
Monsieur en A2, Jean en B2 etc.
Par contre, si dans l'explorateur, on double-clique sur=20
le nom du fichier, le fichier s'ouvre comme =E7a:
Titre;Pr=E9nom;Nom en A1
Monsieur;Jean;Dupont en A2 etc.
Si on enregistre en macro la premi=E8re m=E9thode, on a
Workbooks.Open Filename :=3D "C:\Essai.csv"
Quand on ex=E9cute la macro, le fichier s'ouvre comme dans=20
le deuxi=E8me cas. Pourquoi ? Comment faire pour que le=20
fichier s'ouvre "proprement ?"
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
John Fuss
J'utilise cette fonction pour ouvrir des fichiers ascii delimité par des ';' :
Public Function OpenASCII() Dim fichier As String On Error Resume Next
fichier = Application.GetOpenFilename("Fichier ASCII,*.asc;*.SEQ;*.txt;*.csv") If fichier Then Workbooks.OpenText FileName:=fichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True, Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)) End If End Function
"DoMi" a écrit dans le message de news:088401c3d509$ef5b5cf0$ Bonjour !
Supposons un fichier texte au contenu suivant: Titre;Prénom;Nom Monsieur;Jean;Dupont Madame;Nadine;Duval Enregistré sous Essai.csv
Excel connait ce type de fichier et si on passe par le menu Fichier, Ouvrir, en précisant tous type de fichiers (*.*) ou fichier texte(*.txt, *.csv) le fichier s'ouvre bien et on a: Titre en A1, Prénom en B1, Nom en C1 Monsieur en A2, Jean en B2 etc.
Par contre, si dans l'explorateur, on double-clique sur le nom du fichier, le fichier s'ouvre comme ça: Titre;Prénom;Nom en A1 Monsieur;Jean;Dupont en A2 etc.
Si on enregistre en macro la première méthode, on a Workbooks.Open Filename := "C:Essai.csv"
Quand on exécute la macro, le fichier s'ouvre comme dans le deuxième cas. Pourquoi ? Comment faire pour que le fichier s'ouvre "proprement ?"
Merci pour votre réponse !
J'utilise cette fonction pour ouvrir des fichiers ascii delimité par des ';'
:
Public Function OpenASCII()
Dim fichier As String
On Error Resume Next
fichier = Application.GetOpenFilename("Fichier
ASCII,*.asc;*.SEQ;*.txt;*.csv")
If fichier Then
Workbooks.OpenText FileName:=fichier, Origin:=xlWindows,
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone,
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True, Comma:úlse,
Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1), Array(2, 1),
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8,
1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15, 1))
End If
End Function
"DoMi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:088401c3d509$ef5b5cf0$a401280a@phx.gbl...
Bonjour !
Supposons un fichier texte au contenu suivant:
Titre;Prénom;Nom
Monsieur;Jean;Dupont
Madame;Nadine;Duval
Enregistré sous Essai.csv
Excel connait ce type de fichier et si on passe par le
menu Fichier, Ouvrir, en précisant tous type de fichiers
(*.*) ou fichier texte(*.txt, *.csv)
le fichier s'ouvre bien et on a:
Titre en A1, Prénom en B1, Nom en C1
Monsieur en A2, Jean en B2 etc.
Par contre, si dans l'explorateur, on double-clique sur
le nom du fichier, le fichier s'ouvre comme ça:
Titre;Prénom;Nom en A1
Monsieur;Jean;Dupont en A2 etc.
Si on enregistre en macro la première méthode, on a
Workbooks.Open Filename := "C:Essai.csv"
Quand on exécute la macro, le fichier s'ouvre comme dans
le deuxième cas. Pourquoi ? Comment faire pour que le
fichier s'ouvre "proprement ?"
J'utilise cette fonction pour ouvrir des fichiers ascii delimité par des ';' :
Public Function OpenASCII() Dim fichier As String On Error Resume Next
fichier = Application.GetOpenFilename("Fichier ASCII,*.asc;*.SEQ;*.txt;*.csv") If fichier Then Workbooks.OpenText FileName:=fichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True, Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)) End If End Function
"DoMi" a écrit dans le message de news:088401c3d509$ef5b5cf0$ Bonjour !
Supposons un fichier texte au contenu suivant: Titre;Prénom;Nom Monsieur;Jean;Dupont Madame;Nadine;Duval Enregistré sous Essai.csv
Excel connait ce type de fichier et si on passe par le menu Fichier, Ouvrir, en précisant tous type de fichiers (*.*) ou fichier texte(*.txt, *.csv) le fichier s'ouvre bien et on a: Titre en A1, Prénom en B1, Nom en C1 Monsieur en A2, Jean en B2 etc.
Par contre, si dans l'explorateur, on double-clique sur le nom du fichier, le fichier s'ouvre comme ça: Titre;Prénom;Nom en A1 Monsieur;Jean;Dupont en A2 etc.
Si on enregistre en macro la première méthode, on a Workbooks.Open Filename := "C:Essai.csv"
Quand on exécute la macro, le fichier s'ouvre comme dans le deuxième cas. Pourquoi ? Comment faire pour que le fichier s'ouvre "proprement ?"
