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
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
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
Bonjour Pounet,
et si tu essayais:
workbooks.OpenText
;-)
@+
--
lStephBonjour à 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
Bonjour Pounet,
et si tu essayais:
workbooks.OpenText
;-)
@+
--
lSteph
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
Bonjour Pounet,
et si tu essayais:
workbooks.OpenText
;-)
@+
--
lStephBonjour à 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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
Quand tu ouvres un fichier .csv, si c'est à partir de l'éditeur de code,
Excel suppose que tu utilises la virgule comme séparateur d'éléments
car en vba, c'est le "standard américain" qui est la référence.
Depuis la version excel 2002, Microsoft a ajouté un paramètre non
présent sous les versions précédentes : "Local" qui tient compte des
options régionales définies sur l'ordinateur.
Donc depuis Excel 2002, tu écris :
'Si ton fichier a un point virgule comme séparateur
Workbooks.Open Filename:="c:AAAtest.csv", Local:=True
Attention, si tu ouvres le fichier par la suite sous une version pluls
ancienne, tu auras une erreur car Excel ne reconnaîtra pas le
paramètre "Local"
Si ton fichier a la virgule comme séparateur, utilise :
Workbooks.Open Filename:="c:AAAtest.csv"
Avec les versions précédentes à excel 2002,
Quand tu ouvres un fichier csv avec point-virgule à partir du
menu de l'interface de la feuille de calcul, pas de problème
excel tient compte des options régionales mais pas si tu ouvres
ton fichier à partir d'une ligne de code.
De même, tu peux éprouver des difficultés si tu ouvres un fichier csv
directement à partir d'un double clic de l'explorateur Windows... selon
le séparateur d'éléments de ton fichier
2 solutions possibles : tu modifies l'extention .csv pour txt ou tu
modifies
dans le tableau de configuration le séparateur d'éléments avant d'ouvrir
ton fichier.... je te laisses mener tes expériences et t'amuser !
"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
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
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
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,
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,
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,
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, 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, 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, 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