C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
C'est peut-être tes fichiers qui ont changé ?
Daniel
Je n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$TBZlqmKHA.1824@TK2MSFTNGP04.phx.gbl...
Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de news:
u$qtphpmKHA.1824@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé la
virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me permet
d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OgfyTBrmKHA.2592@TK2MSFTNGP04.phx.gbl...
C'est peut-être tes fichiers qui ont changé ?
Daniel
Je n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé la
virgule sur Excel.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$TBZlqmKHA.1824@TK2MSFTNGP04.phx.gbl...
Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de news:
u$qtphpmKHA.1824@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me permet
d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé la
virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A"
& Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me permet
d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et voila
ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Peux-tu mettre sur cjooint un fichier qui a fonctionné ?
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OgfyTBrmKHA.2592@TK2MSFTNGP04.phx.gbl...
C'est peut-être tes fichiers qui ont changé ?
Daniel
Je n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$TBZlqmKHA.1824@TK2MSFTNGP04.phx.gbl...
Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de news:
u$qtphpmKHA.1824@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Je n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec des
fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" a écrit dans le message de news:Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Je n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec des
fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uwxuhIrmKHA.2592@TK2MSFTNGP04.phx.gbl...
Peux-tu mettre sur cjooint un fichier qui a fonctionné ?
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OgfyTBrmKHA.2592@TK2MSFTNGP04.phx.gbl...
C'est peut-être tes fichiers qui ont changé ?
Daniel
Je n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$TBZlqmKHA.1824@TK2MSFTNGP04.phx.gbl...
Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de news:
u$qtphpmKHA.1824@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Je n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec des
fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" a écrit dans le message de news:Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais utilisé
la virgule sur Excel.
"Daniel.C" a écrit dans le message de news:
O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures à
1000). Maintenant, il faut que tu utilises la virgule comme symbole
décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de news:
u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs, alors
que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Ce code-ci doit le faire :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Columns(10).Replace Chr(160), ""
Range("A4", "J283").Replace ",", "."
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A" &
Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielJe n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec
des fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" a écrit dans le message de news:Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que
le fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais
utilisé la virgule sur Excel.
"Daniel.C" a écrit dans le message de
news: O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures
à 1000). Maintenant, il faut que tu utilises la virgule comme
symbole décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de
news: u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs,
alors que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Ce code-ci doit le faire :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Columns(10).Replace Chr(160), ""
Range("A4", "J283").Replace ",", "."
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A" &
Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Je n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec
des fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uwxuhIrmKHA.2592@TK2MSFTNGP04.phx.gbl...
Peux-tu mettre sur cjooint un fichier qui a fonctionné ?
Les fichiers qui sortent du logiciel météo, sont tous du même type que
le fichier 20janvier.csv.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OgfyTBrmKHA.2592@TK2MSFTNGP04.phx.gbl...
C'est peut-être tes fichiers qui ont changé ?
Daniel
Je n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais
utilisé la virgule sur Excel.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: O$TBZlqmKHA.1824@TK2MSFTNGP04.phx.gbl...
Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures
à 1000). Maintenant, il faut que tu utilises la virgule comme
symbole décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
Daniel
Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de
news: u$qtphpmKHA.1824@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs,
alors que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
Ce code-ci doit le faire :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Columns(10).Replace Chr(160), ""
Range("A4", "J283").Replace ",", "."
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9", "A" &
Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielJe n'ai pas encore réussi avec un fichier .CSV, cela fonctionnait avec
des fichiers.TXT.
Mais dans ce nouveau logiciel, ce sont des .CSV.
"Daniel.C" a écrit dans le message de news:Peux-tu mettre sur cjooint un fichier qui a fonctionné ?Les fichiers qui sortent du logiciel météo, sont tous du même type que
le fichier 20janvier.csv.
"Daniel.C" a écrit dans le message de news:C'est peut-être tes fichiers qui ont changé ?
DanielJe n'ai pas de changement.
J'utilise le point, d'ailleurs, il me semble que je n'ai jamais
utilisé la virgule sur Excel.
"Daniel.C" a écrit dans le message de
news: O$Essaie (je n'ai vu que la colonne D qui ait des valeurs supérieures
à 1000). Maintenant, il faut que tu utilises la virgule comme
symbole décimal, sinon, autre verrue :
Sub CSV()
'
' Macro1 Macro
' Macro enregistrée le 15/01/2010 par FORCET
'
ChDrive (Mid(ThisWorkbook.Path, 1, 1))
ChDir (ThisWorkbook.Path)
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
If Fichier = False Then
Exit Sub
End If
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier,
Destination:=Range("A1"))
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:úlse
End With
Columns(4).Replace Chr(160), ""
Range("A4", "J283").Copy Sheets("Récap").Range("A9")
Application.DisplayAlerts = False
ActiveSheet.Delete
If Range("A9") <> "" Then
Range("K9", "K" & Range("A65535").End(xlUp).Row).Value = Range("A9",
"A" & Range("A65535").End(xlUp).Row).Value
End If
'
End Sub
DanielFichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy
"Guy72" a écrit dans le message de
news: u$Bonjour,
Je comprends de moins en moins.
Dans le message du 15/01 16:41, il y a une solution (FFO) qui me
permet d'aller chercher un fichier .CVS
et de copier les données dans un classeur et de pouvoir faire des
calculs.
Je mets cette feuille de classeur dans mon dossier d'origine, et
voila ce qui se passe :
1) le fichier .CSV arrive bien.
2) Mais tout en texte, donc pas possible de faire des calculs,
alors que je n'ai rien changé ?
Quelqu'un a t-il une idée ?
Merci de votre aide.
-- Cordialement
Guy
