Je serais qd même rassuré d'apprendre qu'il existe un patch qui corrige ça...
-----Message d'origine----- Voici une solution qui a été présenté ici par Patrick Penet
à copier dans un module standard, et tu exécutes : OuvrirFichierCSV
'---------------------------- Sub OuvrirFichierCSV()
OpenCSV "C:CheminMonFichier.csv"
End Sub '--------------------------- Sub OpenCSV(ByVal FileName As String)
Dim wb As Workbook
With Application
.DisplayAlerts = False
.ScreenUpdating = False
On Error GoTo GE
Set wb = .Workbooks.Open(FileName)
wb.Sheets(1).Columns(1).TextToColumns Range ("A1"), , , False, ,True
On Error GoTo 0
.DisplayAlerts = True
.ScreenUpdating = True
End With
Exit Sub
GE:
'Le fichier est introuvable
End Sub
'---------------------------
Salutations!
"CIC" a écrit dans le message de news:2117801c459db$66e74940
$
Bonjour,
Pb sous excel 2000 - 9.0.7616 SP3 :
Soit un fichier .csv de datas délimitées par des ;
Fichier / Ouvrir / *.* / toto.csv --> Ok (les datas sont bien réparties dans les colonnes)
Même opération, enregistrée dans une macro.
L'opération est traduite par un 'Workbooks.Open FileName:=toto.csv'
Exécution de la macro --> Ko (Datas réparties en vrac)
A noter que ce bug existait dans la première version d'excel 97, et a été corrigé dans la SR2 de 97.
Des infos ? Un patch ?
Merci, Cordialement, TM - CIC.
.
Stéphane Santon
Bonjour,
Pas un bug, une fonctionnalité, dixit l'aide en ligne. Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte .txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv ^^^^
Pb sous excel 2000 - 9.0.7616 SP3 : Soit un fichier .csv de datas délimitées par des ;
L'opération est traduite par un 'Workbooks.Open FileName:=toto.csv' Exécution de la macro --> Ko (Datas réparties en vrac)
A noter que ce bug existait dans la première version d'excel 97, et a été corrigé dans la SR2 de 97.
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Bonjour,
Pas un bug, une fonctionnalité, dixit l'aide en ligne.
Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte
.txt ou .csv est assurée par
Workbooks.OpenText FileName:= toto.csv
^^^^
Pb sous excel 2000 - 9.0.7616 SP3 :
Soit un fichier .csv de datas délimitées par des ;
L'opération est traduite par un 'Workbooks.Open FileName:=toto.csv'
Exécution de la macro --> Ko (Datas réparties en vrac)
A noter que ce bug existait dans la première version
d'excel 97, et a été corrigé dans la SR2 de 97.
--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Pas un bug, une fonctionnalité, dixit l'aide en ligne. Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte .txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv ^^^^
Pb sous excel 2000 - 9.0.7616 SP3 : Soit un fichier .csv de datas délimitées par des ;
L'opération est traduite par un 'Workbooks.Open FileName:=toto.csv' Exécution de la macro --> Ko (Datas réparties en vrac)
A noter que ce bug existait dans la première version d'excel 97, et a été corrigé dans la SR2 de 97.
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com Loisirs, nature, arts, technologie : accueil en Charente-Maritime
CIC
Une lueur d'espoir... J'essaye... Même résultat... Fonctio- quoi ?-)
-----Message d'origine----- Bonjour,
Pas un bug, une fonctionnalité, dixit l'aide en ligne. Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte
..txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv
Une lueur d'espoir... J'essaye... Même résultat... Fonctio-
quoi ?-)
-----Message d'origine-----
Bonjour,
Pas un bug, une fonctionnalité, dixit l'aide en ligne.
Sous 97-SR2, 2000, et + probablement, l'ouverture d'un
fichier texte
..txt ou .csv est assurée par
Workbooks.OpenText FileName:= toto.csv
Une lueur d'espoir... J'essaye... Même résultat... Fonctio- quoi ?-)
-----Message d'origine----- Bonjour,
Pas un bug, une fonctionnalité, dixit l'aide en ligne. Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte
..txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv
Stéphane Santon
Bonjour,
Une lueur d'espoir... J'essaye... Même résultat... Fonctio- quoi ?-)
Marche très bien chez moi, chercher encore autour de cette fonction.
-----Message d'origine----- Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte ..txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Bonjour,
Une lueur d'espoir... J'essaye... Même résultat... Fonctio-
quoi ?-)
Marche très bien chez moi, chercher encore autour de cette fonction.
-----Message d'origine-----
Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte
..txt ou .csv est assurée par
Workbooks.OpenText FileName:= toto.csv
--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Une lueur d'espoir... J'essaye... Même résultat... Fonctio- quoi ?-)
Marche très bien chez moi, chercher encore autour de cette fonction.
-----Message d'origine----- Sous 97-SR2, 2000, et + probablement, l'ouverture d'un fichier texte ..txt ou .csv est assurée par Workbooks.OpenText FileName:= toto.csv
-- ** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
Cordialement, Stéphane *** http://www.team-santonum.com Loisirs, nature, arts, technologie : accueil en Charente-Maritime