...oupsss désolé je t'ai induit en erreur par confusion
opentext permet d'ouvrir le csv sans qu'il soit redistribué,
si le but est de redistribuer et que c'est un VRAi csv avec donc ;
(semicolon)
comme séparateur
Workbooks.open lenomdufichier
suffit à l'ouvrir et qu'il soit redistribué normalement.
Je vais essayer ainsi ce que tu dis FDJEUX.com
--
lStephRe Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser
) de télécharger l'historique des tirages du loto sur le site
FDJEUX.com ( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De
plus, il ne m'est pas proposé comme dans les anciennes versions de
définir les paramètres du fichier texte à charger ( séparateur, type
de donnée par colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier
le fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais
comme "automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la
solution pour les autres mots cités dans l'Aide, je crois , que
j'irai chez Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien
de lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
...oupsss désolé je t'ai induit en erreur par confusion
opentext permet d'ouvrir le csv sans qu'il soit redistribué,
si le but est de redistribuer et que c'est un VRAi csv avec donc ;
(semicolon)
comme séparateur
Workbooks.open lenomdufichier
suffit à l'ouvrir et qu'il soit redistribué normalement.
Je vais essayer ainsi ce que tu dis FDJEUX.com
--
lSteph
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser
) de télécharger l'historique des tirages du loto sur le site
FDJEUX.com ( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De
plus, il ne m'est pas proposé comme dans les anciennes versions de
définir les paramètres du fichier texte à charger ( séparateur, type
de donnée par colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier
le fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais
comme "automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Ohqg%23CQYIHA.1208@TK2MSFTNGP03.phx.gbl...
Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lSteph
Re,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la
solution pour les autres mots cités dans l'Aide, je crois , que
j'irai chez Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien
de lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" <pounetchezlui@ouanadou> a écrit dans le message de
news:uoauTQNYIHA.4208@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
...oupsss désolé je t'ai induit en erreur par confusion
opentext permet d'ouvrir le csv sans qu'il soit redistribué,
si le but est de redistribuer et que c'est un VRAi csv avec donc ;
(semicolon)
comme séparateur
Workbooks.open lenomdufichier
suffit à l'ouvrir et qu'il soit redistribué normalement.
Je vais essayer ainsi ce que tu dis FDJEUX.com
--
lStephRe Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser
) de télécharger l'historique des tirages du loto sur le site
FDJEUX.com ( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De
plus, il ne m'est pas proposé comme dans les anciennes versions de
définir les paramètres du fichier texte à charger ( séparateur, type
de donnée par colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier
le fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais
comme "automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la
solution pour les autres mots cités dans l'Aide, je crois , que
j'irai chez Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien
de lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Ohqg%23CQYIHA.1208@TK2MSFTNGP03.phx.gbl...
Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lSteph
Re,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" <pounetchezlui@ouanadou> a écrit dans le message de
news:uoauTQNYIHA.4208@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Ohqg%23CQYIHA.1208@TK2MSFTNGP03.phx.gbl...
Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lSteph
Re,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" <pounetchezlui@ouanadou> a écrit dans le message de
news:uoauTQNYIHA.4208@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon,
rien n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com (
c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel
2007donc sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme
d'un nouveau classeur ne comportant qu'une seule feuille dans
laquelle se trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule,
Virgule, Espace, Autre, AutreCaractère, InfosChamp,
MiseEnPageVisuelleTexte, SéparateurDécimal, SéparateurMilliers,
NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car
telle que elle passe sans erreur de compilation, alors qu'avec
'comma' il y a erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule,
alors qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez
Mgr T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je
tente de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue
l'ouverture du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Ceci semble contourner le pb:
Workbooks.Open Filename:="C:loto.csv", Format:=5
Range("a:a").TextToColumns semicolon:=True
--
lStephRe Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon, rien
n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com
( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel 2007donc
sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme d'un
nouveau classeur ne comportant qu'une seule feuille dans laquelle se
trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule, Virgule,
Espace, Autre, AutreCaractère, InfosChamp, MiseEnPageVisuelleTexte,
SéparateurDécimal, SéparateurMilliers, NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car telle
que elle passe sans erreur de compilation, alors qu'avec 'comma' il y a
erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule, alors
qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez Mgr
T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je tente
de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue l'ouverture
du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Ceci semble contourner le pb:
Workbooks.Open Filename:="C:loto.csv", Format:=5
Range("a:a").TextToColumns semicolon:=True
--
lSteph
Re Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon, rien
n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com
( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Ohqg%23CQYIHA.1208@TK2MSFTNGP03.phx.gbl...
Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lSteph
Re,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel 2007donc
sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme d'un
nouveau classeur ne comportant qu'une seule feuille dans laquelle se
trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule, Virgule,
Espace, Autre, AutreCaractère, InfosChamp, MiseEnPageVisuelleTexte,
SéparateurDécimal, SéparateurMilliers, NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car telle
que elle passe sans erreur de compilation, alors qu'avec 'comma' il y a
erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule, alors
qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez Mgr
T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" <pounetchezlui@ouanadou> a écrit dans le message de
news:uoauTQNYIHA.4208@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je tente
de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue l'ouverture
du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95
Ceci semble contourner le pb:
Workbooks.Open Filename:="C:loto.csv", Format:=5
Range("a:a").TextToColumns semicolon:=True
--
lStephRe Bonsoir,
Je jette l'éponge ! J'ai remplacé Comma par Semicolon, ou semicolon, rien
n'y fait
Même cause, même résultat ;o((((
A tout hasard, est-il possible que tu essaies (si ce n'est pas abuser )
de télécharger l'historique des tirages du loto sur le site FDJEUX.com
( c'est un zip ) et tenter d'y appliquer ma procédure ?
Sinon, quand je mets en route l'enregistreur, sous Excel 2007, c'est
Workbooks.open qui est enregistré. OpenText semble être ignoré. De plus,
il ne m'est pas proposé comme dans les anciennes versions de définir les
paramètres du fichier texte à charger ( séparateur, type de donnée par
colonne, etc )
Au pire, comme c'est du perso pour tester Excel12, j'ouvre en premier le
fichier FDJEUX, l'enregistre en Excel, et ça devrait le faire mais comme
"automatisation", il y a mieux
Merci de t'interesser à mon triste sort
Pounet5
"LSteph" a écrit dans le message de
news:Ohqg%Re, Bonjour Pounet,
oui OpenText c'est ce qui va bien comme je suggérais avec du csv sauf
que csv normal c'est du ";" comme sérapateur
comma c'est virgule
un petit coup d'enregistreur indique que le ;
se dit semicolon
rien à voir avec le boyau!
;-)
@+
--
lStephRe,
Suite conseil LSteph et MichDenis
Workbooks.OpenText, méthode (Tiré de l'aide "en ligne" Excel 2007donc
sur mon PC .... )
Référence du développeur Excel
Cette méthode ouvre et redistribue un fichier texte sous la forme d'un
nouveau classeur ne comportant qu'une seule feuille dans laquelle se
trouvent les données du fichier texte distribuées.
Syntaxe
expression.OpenText(NomFichier, Origine, LigneDébut, TypeDonnées,
QualificatifTexte, SéparateurConsécutif, Onglet, PointVirgule, Virgule,
Espace, Autre, AutreCaractère, InfosChamp, MiseEnPageVisuelleTexte,
SéparateurDécimal, SéparateurMilliers, NombresNégatifsDeFin, Local)
A partir de cela, je tente l'instruction suivante :
Workbooks.OpenText Filename:="C:UsersPounetDownloadsFrançaise
des Jeuxlotoloto.csv", _
DataType:=xlDelimited, _
Comma:=True
Et je dois avoir un problème de traduction ( voire d'écriture car telle
que elle passe sans erreur de compilation, alors qu'avec 'comma' il y a
erreur ! )
Par contre les données sont bien recopiées mais dans une seule colonne.
Ma conclusion est donc que 'comma' ne signifie pas PointVirgule, alors
qu'est-ce ?
Toute traduction est bienvenue et si, en prime, vous avez la solution
pour les autres mots cités dans l'Aide, je crois , que j'irai chez Mgr
T. Banni
.......... me faire payer un coup de Beaujolais ( s'il s'agit bien de
lui, bien sûr, car des fois ( pas pluriel de foi ! ), je m'y perd )
Pounet95
"Pounet95" a écrit dans le message de
news:Bonjour à toutes et tous,
Windows Vista et Excel 2007
Maintenant que j'arrive à lire l'aide "en direct de mon PC", je tente
de comprendre comment ouvrir un fichier texte ( CSV )
Je commence à ouvrir l'enregistreur de macro puis effectue l'ouverture
du fichier désiré.
Quand je regarde la macro générée, il n'y a que :
Workbooks.Open Filename:= _
"C:UsersPounetDownloadsFrançaise des Jeuxlotoloto.csv"
....... et les données sont bien positionnées dans les colonnes.
J'intègre cette macro dans un module :
Sub MAJ_Loto()
Dim wbMonLoto As Workbook
Dim wbFDJ As Workbook
Set wbMonLoto = ThisWorkbook
With Sheets("FDJEUX")
.Select
.Cells.Clear
.[A1].Select
End With
On Error Resume Next
Err = 0
'ouvre le fichier FDJeux
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv"
If Err = 0 Then
Set wbFDJ = ActiveWorkbook
Cells.Copy
wbMonLoto.Activate
ActiveSheet.Paste
'ferme le fichier FDJeux
Application.DisplayAlerts = False
wbFDJ.Close
Set wbFDJ = Nothing
Application.DisplayAlerts = True
End If
End Sub
......... et là, c'est le grand B.......l :o((((((
J'essaie d'utiliser la syntaxe complète de Workbooks.Open
Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse,
MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine,
Séparateur, Modifiable, Notifier, Convertisseur,
AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)
Workbooks.Open Filename:="C:UsersPounetDownloadsFrançaise des
Jeuxlotoloto.csv",,,Format:=6,,,,Delimiter;=";"
..... ce qui provoque le message lors de la validation de la ligne
"Paramètre nommé attendu" aux endroits où c'est supposé être
facultatif.
Avez-vous une idée de ce que je fais mal ( ou oubli de faire ) ?
Merci beaucoup
Pounet95