Microsoft 365 Mauvais transfert de fichier excel

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Bonjour,
Sélectionner la colonne, données/convertir et choisir la virgule come séparateur :
1656601485849.png


Puis terminer.
Ou utiliser power query comme Chris le conseille toujours 🙂

Cordialement
 
Vote positif 0 Vote négatif
Dugenou à dit:
Bonjour,
Sélectionner la colonne, données/convertir et choisir la virgule come séparateur :
Regarde la pièce jointe 1144055

Puis terminer.
Ou utiliser power query comme Chris le conseille toujours 🙂

Cordialement
Cliquez pour agrandir...
Merci beaucoup ! j'ai pu réaliser cette action pour ce fichier, cependant j'en ai une centaine et j'aimerai appliquer cette action à tout mon dossier, comment cela peut-être possible ?
 
Vote positif 0 Vote négatif
Bonjour Meliodas0000, Dugenou,
Meliodas0000 à dit:
j'en ai une centaine et j'aimerai appliquer cette action à tout mon dossier, comment cela peut-être possible ?
Cliquez pour agrandir...
Téléchargez les fichiers zippés joints et voyez cette macro du fichier .xlsm :
VB: 
Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
Application.ScreenUpdating = False
While fichier <> ""
    n = n + 1
    Workbooks.OpenText chemin & fichier, Local:=True
    With ActiveSheet.Cells
        .Replace ",", ";", xlPart
        .Replace "é", "é"
        .Replace """", ""
    End With
    ActiveWorkbook.Close True
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Tous les fichiers csv à traiter doivent être placés dans le même dossier.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour Meliodas0000, Dugenou,

Téléchargez les fichiers zippés joints et voyez cette macro du fichier .xlsm :
VB: 
Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
Application.ScreenUpdating = False
While fichier <> ""
    n = n + 1
    Workbooks.OpenText chemin & fichier, Local:=True
    With ActiveSheet.Cells
        .Replace ",", ";", xlPart
        .Replace "é", "é"
        .Replace """", ""
    End With
    ActiveWorkbook.Close True
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Tous les fichiers csv à traiter doivent être placés dans le même dossier.

A+
Cliquez pour agrandir...
Bonjour Dugenou, Meliodas0000,

En appliquant le fichier xlms à mon dossier, j'ai le résultat suivant :

Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%
t = Timer
chemin = ThisWorkbook.Path & "C:\Users\Amir\Documents\ADCC2\" 'à adapter
fichier = Dir(chemin & "logs_REM_22-06-2022.csv") '1er fichier csv du dossier
Application.ScreenUpdating = False
While fichier <> ""
n = n + 1
Workbooks.OpenText chemin & fichier, Local:=True
With ActiveSheet.Cells
.Replace ",", ";", xlPart
.Replace "é", "é"
.Replace """", ""
End With
ActiveWorkbook.Close True
fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Cliquez pour agrandir...
Cependant, une erreur apparait pour la ligne "fichier = Dir...." m'indiquant que "Le nom ou le numéro du fichier est incorrect", je ne sais pas d'où peut bien provenir cette erreur en sachant qu'il s'agit bien du premier fichier csv du dossier.
 
Vote positif 0 Vote négatif
job75 à dit:
Je vous ai dit de mettre tous les fichiers dans le même dossier.

Dans ce cas il suffit d'utiliser ma macro sans la modifier.

Puisque vous ne savez pas le faire.

Bonne nuit.
Cliquez pour agrandir...
Bonsoir, merci pour la réponse,

J'ai bien mit tout les fichiers dans le même dossier et j'ai compléter les endroits à completer dans votre macro sans la modifier, cependant l'erreur persiste au même endroit.

Bonne nuit, merci.
 
Vote positif 0 Vote négatif
Bonjour Meliodas0000, le forum,

L'ouverture d'une centaine de fichiers CSV prendra pas mal de temps.

Pour aller vite il faut les ouvrir en lecture séquentielle, voyez les fichiers zippés joints et la macro :
VB: 
Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%, x%, a(), i&, txt$
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter si nécessaire
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
While fichier <> ""
    n = n + 1
    x = FreeFile
    Open chemin & fichier For Input As #x 'ouverture en lecture séquentielle
    Erase a: i = 0 'RAZ
    While Not EOF(x) 'EOF = End Of File, dernière ligne
        Line Input #x, txt 'récupère la ligne
        txt = Replace(Replace(txt, ",", ";"), """", "")
        txt = Replace(txt, "é", "é")
        ReDim Preserve a(i) 'tableau en base 0
        a(i) = txt
        i = i + 1
    Wend
    Close #x
    Open chemin & fichier For Output As #x 'ouverture en écriture
    Print #x, Join(a, vbLf)
    Close #x
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Cela nous permet de constater sur l'exemple qu'il n'y a qu'une seule ligne => Ubound(a) = 0.

En effet le fichier n'est pas un fichier csv normal.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour Meliodas0000, le forum,

L'ouverture d'une centaine de fichiers CSV prendra pas mal de temps.

Pour aller vite il faut les ouvrir en lecture séquentielle, voyez les fichiers zippés joints et la macro :
VB: 
Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%, x%, a(), i&, txt$
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter si nécessaire
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
While fichier <> ""
    n = n + 1
    x = FreeFile
    Open chemin & fichier For Input As #x 'ouverture en lecture séquentielle
    Erase a: i = 0 'RAZ
    While Not EOF(x) 'EOF = End Of File, dernière ligne
        Line Input #x, txt 'récupère la ligne
        txt = Replace(Replace(txt, ",", ";"), """", "")
        txt = Replace(txt, "é", "é")
        ReDim Preserve a(i) 'tableau en base 0
        a(i) = txt
        i = i + 1
    Wend
    Close #x
    Open chemin & fichier For Output As #x 'ouverture en écriture
    Print #x, Join(a, vbLf)
    Close #x
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Cela nous permet de constater sur l'exemple qu'il n'y a qu'une seule ligne => Ubound(a) = 0.

En effet le fichier n'est pas un fichier csv normal.

A+
Cliquez pour agrandir...
Bonjour Job75, merci pour la réponse, le programme fonctionne correctement et je n'ai aucune erreur sur les fichiers identiques à ceux que j'ai envoyé. Cependant, certains fichiers comme celui ci-joint montre une latitude et une longitude avec une partie décimal représenté par une virgule et non un point, ce qui provoque donc un décalage dans les données, je sais qu'il faut ajouter une nouvelle fenêtre pour cela.
 

Pièces jointes

Vote positif 0 Vote négatif
Fichier (4) pour rendre homogènes les fichiers traités :
VB: 
Option Explicit

Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%, x%, a(), i&, txt$
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter si nécessaire
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
While fichier <> ""
    n = n + 1
    x = FreeFile
    Open chemin & fichier For Input As #x 'ouverture en lecture séquentielle
    Erase a: i = 0 'RAZ
    While Not EOF(x)
        Line Input #x, txt 'récupère la ligne
        txt = Replace(Replace(txt, """,", ";"), """", "")
        txt = Replace(txt, ",", ".") 'séparateur décimal le point pour tous les fichiers
        txt = Replace(txt, "é", "é")
        ReDim Preserve a(i) 'base 0
        a(i) = txt
        i = i + 1
    Wend
    Close #x
    Open chemin & fichier For Output As #x 'ouverture en écriture
    Print #x, Join(a, vbLf)
    Close #x
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Ainsi pour tous les fichiers traités le séparateur décimal sera le point.
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Fichier (4) pour rendre homogènes les fichiers traités :
VB: 
Option Explicit

Sub MAJ_CSV()
Dim t, chemin$, fichier$, n%, x%, a(), i&, txt$
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter si nécessaire
fichier = Dir(chemin & "*.csv") '1er fichier csv du dossier
While fichier <> ""
    n = n + 1
    x = FreeFile
    Open chemin & fichier For Input As #x 'ouverture en lecture séquentielle
    Erase a: i = 0 'RAZ
    While Not EOF(x)
        Line Input #x, txt 'récupère la ligne
        txt = Replace(Replace(txt, """,", ";"), """", "")
        txt = Replace(txt, ",", ".") 'séparateur décimal le point pour tous les fichiers
        txt = Replace(txt, "é", "é")
        ReDim Preserve a(i) 'base 0
        a(i) = txt
        i = i + 1
    Wend
    Close #x
    Open chemin & fichier For Output As #x 'ouverture en écriture
    Print #x, Join(a, vbLf)
    Close #x
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) csv traité(s) en " & Format(Timer - t, "0.00 \sec")
End Sub
Ainsi pour tous les fichiers traités le séparateur décimal sera le point.
Cliquez pour agrandir...
Bonjour Job75, merci beaucoup pour ton aide, maintenant tout les fichiers sont correctement traiter, je n'ai plus de problème. Merci ! Je reviendrai vers vous en cas de nouveaux problèmes futurs
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
307
vgendron
vgendron
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
248
DARRIEUX
D
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
patricktoulon
P
  • Question Question
XL 2010 Formule si ou...
Réponses
2
Affichages
280
danielco
D
Armisa
  • Résolu(e)
XL 2016 Formule EXCEL pour calculer le nombre de voyages
Réponses
2
Affichages
215
Armisa
Armisa
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
180
ndranghettino
N
guy72
  • Résolu(e)
XL 2021 Taille de la feuille à l'ouverture
Réponses
11
Affichages
302
guy72
guy72
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
617
Musbek
M
Z
  • Question Question
Microsoft 365 Définir des plages de dates
Réponses
12
Affichages
493
Zazagally
Z
S
  • Question Question
XL 2021 Lien mail hypertexte fonctionnel
Réponses
4
Affichages
220
sfconstant
S
poipoi
  • Résolu(e)
XL 2010 listes et dépendances
2
Réponses
22
Affichages
977
job75
job75
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
442
mimednejma
M
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
278
job75
job75
V
  • Question Question
XL 2021 Décalé les cellules
2 3
Réponses
30
Affichages
548
vgendron
vgendron
nightswan
  • Question Question
Microsoft 365 Excel : problème de liaison avec un fichier source "Fichier dans un autre domaine"...
Réponses
2
Affichages
451
nightswan
nightswan
ExcelDow
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
309
ExcelDow
ExcelDow
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
149
berta8683
B
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
685
Nounours4173
N
W
  • Résolu(e)
XL 2019 Heure maxi (heures de journée avec heures au-delà de 24:00)
Réponses
9
Affichages
184
Webperegrino
W
badraaliou4
  • Question Question
XL 2021 Exporter un graphique dans Access au format jpg étant dans Excel
Réponses
1
Affichages
119
Dudu2
Dudu2
Retour