Microsoft 365 Boucle pour créer un import de fichier csv

Columbo

XLDnaute Nouveau

• 29 Juillet 2021

• #16

Bonjour job75,
Effectivement le total RH se calcule lors de la création des fichiers et il est présent sur chacun des fichiers.
Autant pour moi, j'avais vérifié seulement sur le fichier global.
Merci beaucoup pour ton aide,
A bientôt

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 23 Août 2021

• #17

Bonjour job75,
La macro bloque à ce niveau :
"Open ThisWorkbook.Path & "\FACT_" & tablo(i, 2) & "_" & tablo(i, 4) & ".csv" For Output As #x 'ouverture en écriture séquentielle"
Est-ce que tu sais pourquoi et comment corriger le blocage?
Merci

 

Pièces jointes

• test forum.xlsm

  43.1 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Août 2021

• #18

Bonjour Columbo,

Chez moi avec votre dernier fichier tout se passe bien, 6 fichiers csv sont créés.

A+

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 23 Août 2021

• #19

Très bizarre, effectivement quand je télécharge le fichier que j'ai mis, les 6 fichiers se créent sans problème.
D'ailleurs, une fois que les fichiers CSV sont crées, il y a sur chaque ligne de chaque fichier des ";" (sauf la 1ère ligne). Il s'agirait de "retour charriot".
Est-ce qu'il y a un moyen de ne pas les créer au moment où la première macro se lance?
Merci

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 23 Août 2021

• #20

Je viens de voir que la 2ème macro qui créée les fichiers CSV fonctionnent que si le fichier Excel se trouve dans le dossier TELECHARGEMENT.
Ailleurs, ça ne fonctionne pas.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Août 2021

• #21

Chez moi le fichier est sur le bureau et la macro fonctionne.

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 23 Août 2021

• #22

Bizarre,
Avez-vous une idée sur les retours charriots?
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Août 2021

• #23

Il n'y a de caractère retour chariot/à la ligne ni dans la feuille ni dans le code VBA.

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 24 Août 2021

• #24

Bonjour,
Il faut ouvrir un des fichiers CSV avec le bloc note pour le voir.
Sur Excel, ça n'apparaît pas.
Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Août 2021

• #25

Bonjour Columbo,

J'avions point vu :

Columbo à dit:

D'ailleurs, une fois que les fichiers CSV sont crées, il y a sur chaque ligne de chaque fichier des ";" (sauf la 1ère ligne). Il s'agirait de "retour charriot".

Cliquez pour agrandir...

Les points-virgules ne sont pas du tout des retours chariot mais les séparateurs de colonnes (champs).

Ma macro en crée 9 sur chaque ligne (y compris la 1ère) puisqu'il y a 10 colonnes.

Je ne vois pas le rapport avec votre "blocage" d'ailleurs si je comprends bien les 6 fichiers CSV se créent !!!

A+

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 24 Août 2021

• #26

Bonjour job75,
Le blocage apparait chez moi lorsque le fichier se trouve ailleurs que dans le dossier téléchargement. Dans le fichier téléchargement la macro créée bien les 6 fichiers.
Les fichiers CSV sont ensuite intégrés sur une plate-forme qui les rejettent à cause des points virgules à la fin.
Est-ce qu'il existe un moyen de ne pas créé les points virgules à la fin?
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Août 2021

• #27

Columbo à dit:

Est-ce qu'il existe un moyen de ne pas créé les points virgules à la fin?

Cliquez pour agrandir...

Normalement dans un fichier CSV on ne touche pas aux points-virgules en fin de ligne.

Mais on peut facilement les supprimer, voyez ce fichier (5) et cette boucle :

VB:

        For k = Len(texte) To 1 Step -1
            If Right(texte, 1) = ";" Then texte = Left(texte, k - 1) Else Exit For
        Next k

 

Pièces jointes

• test forum(5).xlsm

  38.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

Columbo

XLDnaute Nouveau

• 24 Août 2021

• #28

Bonsoir job75,
Merci pour le message.
Je teste cela demain et je vous tiens au courant.
Cordialement

 

Vote positif 0 Vote négatif

Columbo

XLDnaute Nouveau

• 30 Août 2021

• #29

Bonjour job75,
Bravo, la macro ne me met plus de ";" à la fin.
Par contre, chez moi, elle ne fonctionne que lorsque je suis dans le dossier "Téléchargement",
Si je suis sur un autre emplacement, ça bloque




Merci encore

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Août 2021

• #30

Bonjour Columbo,

Je ne vois vraiment pas pourquoi chez vous le dossier Téléchargement se différencierait des autres dossiers.

Dans tous les cas la macro doit créer les fichiers CSV dans ThisWorkbook.Path.

Faites un test : avant la ligne qui beugue: mettez l'instruction MsgBox ThisWorkbook.Path

Qu'indique exactement le message ?

A+

 

Vote positif 0 Vote négatif