Fichier CSV

Le
Guy72
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
Vos réponses Page 2 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Guy72
Le #21022311
Les fichiers qui sortent du logiciel météo, sont tous du même type que le
fichier 20janvier.csv.

"Daniel.C"
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" 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

Daniel

Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy

"Guy72" 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















Daniel.C
Le #21022301
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"
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" 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

Daniel

Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy

"Guy72" 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

















Guy72
Le #21022531
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"
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"
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" 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

Daniel

Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy

"Guy72" 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





















Daniel.C
Le #21022601
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"
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"
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" 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

Daniel

Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy

"Guy72" 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























Guy72
Le #21022581
Ok ça fonctionne.
Merci encore Daniel
Cordialement
Guy

"Daniel.C"
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"
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"
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" 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

Daniel

Fichiers joint :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijKah24gt.zip
Cordialement
Guy

"Guy72" 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



























Publicité
Poster une réponse
Anonyme