Fusion de fichiers CVS ds Excel
mfv64
Messages postés
7
Statut
Membre
-
mfv64 -
mfv64 -
Bonjour,
j'ai monté cette petite macro Excel pour fusionner des fichiers CSV
Sub importDonnees()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier$
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = "B:\Requêtes - Outils\IJSS\"
fichier = Dir(repertoire & "*.csv")
Do While fichier <> ""
Workbooks.Open (repertoire & fichier)
ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close
fichier = Dir
Loop
End Sub
Mon probléme est qu'un champ contient des données décimales ( ex 1414,82) et que ces données sont arrondies après fusion ( ex : 1414,82 devient 1415).
Pouvez vous m'aider
D'avance merci
j'ai monté cette petite macro Excel pour fusionner des fichiers CSV
Sub importDonnees()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier$
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = "B:\Requêtes - Outils\IJSS\"
fichier = Dir(repertoire & "*.csv")
Do While fichier <> ""
Workbooks.Open (repertoire & fichier)
ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close
fichier = Dir
Loop
End Sub
Mon probléme est qu'un champ contient des données décimales ( ex 1414,82) et que ces données sont arrondies après fusion ( ex : 1414,82 devient 1415).
Pouvez vous m'aider
D'avance merci
A voir également:
- Fusion de fichiers CVS ds Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Renommer des fichiers en masse - Guide
- Déplacer colonne excel - Guide
14 réponses
Bonjour,
Au passage, avez-vous essayé de mettre la colonne correspondante au format nombre décimal ?
Au passage, avez-vous essayé de mettre la colonne correspondante au format nombre décimal ?
Bonjour Pingou.
Oui, en tout premier.... C'est la que je me suis rendu compte du problème.
Je suis aller un peu avant ds mes recherches.
En fait, il semblerait que VBA prenne par défaut la virgule "," comme séparateur plutot que le ";"....
Et là je bloque. J'ai bien vu qu'il y a un paramétrage possible ds l'instruction " Open, mais je ne connais pas la syntaxe.
Merci pour votre aide
Oui, en tout premier.... C'est la que je me suis rendu compte du problème.
Je suis aller un peu avant ds mes recherches.
En fait, il semblerait que VBA prenne par défaut la virgule "," comme séparateur plutot que le ";"....
Et là je bloque. J'ai bien vu qu'il y a un paramétrage possible ds l'instruction " Open, mais je ne connais pas la syntaxe.
Merci pour votre aide
Bonjour,
Selon votre procédure il manque la conversion csv en xls.
Essayer avec l'instruction suivante insérer juste avant [ActiveWorkbook.Close]
Selon votre procédure il manque la conversion csv en xls.
Essayer avec l'instruction suivante insérer juste avant [ActiveWorkbook.Close]
ActiveWorkbook.Save FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Bonjour,
Si cela ne marche pas, vous pouvez mettre un fichier [.CSV] sur https://www.cjoint.com/ et poster le lien.
Si cela ne marche pas, vous pouvez mettre un fichier [.CSV] sur https://www.cjoint.com/ et poster le lien.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour.
Ca ne fonctionne pas. Voici le message d'erreur
Erreur de compilation:
Nombre d'arguments incorrects ou affectation de propriété incorrecte.
Je vous joint un de fichier CSV comme demandé sur votre message
Cdlt
Ca ne fonctionne pas. Voici le message d'erreur
Erreur de compilation:
Nombre d'arguments incorrects ou affectation de propriété incorrecte.
Je vous joint un de fichier CSV comme demandé sur votre message
Cdlt
Bonjour,
Merci pour l'information.
Pour le fichier joint, il faut mettre une copie du lien qui a été créé par cjoint.com (expl: https://www.cjoint.com/?BICk3NkI
Si possible une copie de votre macro ... !
Merci pour l'information.
Pour le fichier joint, il faut mettre une copie du lien qui a été créé par cjoint.com (expl: https://www.cjoint.com/?BICk3NkI
Si possible une copie de votre macro ... !
Pardon, je suis un peu novice.
Voici le lien du csv : https://www.cjoint.com/?BIClWhTpfDf
Voici le lien du fichier xlsm contenat la macro : https://www.cjoint.com/?BIClXFcxevb
Merci encore pour votre aide
Cdlt
Voici le lien du csv : https://www.cjoint.com/?BIClWhTpfDf
Voici le lien du fichier xlsm contenat la macro : https://www.cjoint.com/?BIClXFcxevb
Merci encore pour votre aide
Cdlt
Bonjour,
Je vous propose ceci : dans la macro [Sub Miseauformat()] vous insérez les 2 lignes de code suivantes juste avant [Range("A1").Select]
Les 2 lignes :
Salutations.
Le Pingou
Je vous propose ceci : dans la macro [Sub Miseauformat()] vous insérez les 2 lignes de code suivantes juste avant [Range("A1").Select]
Les 2 lignes :
nbli = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Range("I1:I" & nbli).Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False
Salutations.
Le Pingou
Bonjour,
Oui, c'est la colonne monatnt qui pose probléme.
J'ai déposé un fichier ZIppé ici : https://www.cjoint.com/?BICoThKTpOL
Cdlt
Oui, c'est la colonne monatnt qui pose probléme.
J'ai déposé un fichier ZIppé ici : https://www.cjoint.com/?BICoThKTpOL
Cdlt
Bonjour,
Non ce n'est pas possible j'ai testé et cela est correct, j'ai bien les nombres décimaux dans la colonne [I].
Je recontrôle et vous envoie le fichier.
Non ce n'est pas possible j'ai testé et cela est correct, j'ai bien les nombres décimaux dans la colonne [I].
Je recontrôle et vous envoie le fichier.
ben je vous jure M'sieur :)...
J'ai essayé plusieur fois en refaisant les mofids depuis le début..
Je veux bien le fichier. Merci
J'ai essayé plusieur fois en refaisant les mofids depuis le début..
Je veux bien le fichier. Merci
Bonjour,
Il serait bien que les montants du fichier [csv] soit avec des décimal (expl 1414,256) et non pas des nombre entier (expl : 1415)
Voici votre fichier avec ma proposition : https://www.cjoint.com/?3ICvFXzEXjV
Il serait bien que les montants du fichier [csv] soit avec des décimal (expl 1414,256) et non pas des nombre entier (expl : 1415)
Voici votre fichier avec ma proposition : https://www.cjoint.com/?3ICvFXzEXjV
