Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Macro pour création fichier csv

Créer une discussion

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
B

BALMGOLF

XLDnaute Nouveau
Bonjour
Sur une feuille excel j' ai partir de la ligne 12 :
Colonne A des dates classées Entre 2 et 5 dates
Colonne B des horaires
Colonne C des codes créés par une formule

Je veux avoir autant de fichiers csv que de dates avec uniquement les elements de la colonne C dans une colonne A
J'ai créé une macro qui ne fonctionne pas et je ne vois pas pourquoi.
Sub csv()

Jour = Cells(12, 1).Value
Open "C:/TEMP/" & Format(Jour, "ddmmyyyy") & ".csv" For Output As #1

For i = 12 To n
If Cells(i, 1) <> Jour Then
Close #1
Jour = Cells(i, 1)
Open "C:/TEMP/" & Format(Jour, "ddmmyyyy") & ".csv" For Output As #1
End If
Print #1, Cells(i, 3)
Next i
Close #1

End Sub

Merci de trouver pourquoi
 

Pièces jointes

Trier par date Trier par votes
Bonjour BALMGOLF, wDog66, le forum,

Téléchargez le fichier joint dans un Nouveau dossier du bureau et exécutez cette macro :
VB: 
Sub csv()
Dim ps$, i&, x%
ps = Application.PathSeparator
i = 12
While Cells(i, 1) <> ""
    If Cells(i, 1) <> Cells(i - 1, 1) Then
        If x Then Close #x
        x = FreeFile
        Open ThisWorkbook.Path & ps & Format(Cells(i, 1), "yyyymmdd") & ".csv" For Output As #x
    End If
    Print #x, Cells(i, 3)
    i = i + 1
Wend
If x Then Close #x
End Sub
Elle fonctionne sur PC ou sur MAC.

Il vaut mieux le format "yyyymmdd" pour le classement des fichiers.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
On peut préférer cette macro :
VB: 
Sub csv()
Dim ps$, tablo, i&, x%
ps = Application.PathSeparator
Range("A11:C" & Rows.Count).Sort Columns(1), xlAscending, Header:=xlYes 'tri sur colonne A
tablo = [A11].CurrentRegion.Resize(, 3) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If tablo(i, 1) <> tablo(i - 1, 1) Then
        If x Then Close #x
        x = FreeFile
        Open ThisWorkbook.Path & ps & Format(tablo(i, 1), "yyyymmdd") & ".csv" For Output As #x
    End If
    Print #x, tablo(i, 3)
Next
If x Then Close #x
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Merci Job75
C'est vraiment ce que je voulais je vais essayer de comprendre la macro car il y a des fonctions que je ne connais pas.
Un seul petit pb cela me creer un fichier .csv en plus (dont le nom est vide) Je pense que c'est à cause de la ligne suivante de ma derniere ligne (donc ligne 233) qui a une formule de calcul dont le résultat est est un " " .
Ce n'est pas grave je supprimerai ce fichier à chaque opération
Vous avez aider une petite association de Golf (Joueurs retraités). notre site pour info:

Accueil | Circuitsenioroccitan

Le Circuit Senior Occitan est destiné aux golfeurs de plus de 50 ans. Il se déroule sur 20 à 30 étapes sur l'Est de l'Occitanie et en Lot et Garonne.
golfsenioroccitan.wixsite.com
Merci encore
Jean Jacques
 
Vote positif 0 Vote négatif
Sur votre fichier post #1 il y a des textes vides "" de la ligne 233 à la ligne 500.

Pour ne pas en tenir compte il suffit d'ajouter un test :
VB: 
Sub csv()
Dim ps$, tablo, i&, x%
ps = Application.PathSeparator
Range("A11:C" & Rows.Count).Sort Columns(1), xlAscending, Header:=xlYes 'tri sur colonne A
tablo = [A11].CurrentRegion.Resize(, 3) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If Trim(tablo(i, 1)) <> "" Then
        If tablo(i, 1) <> tablo(i - 1, 1) Then
            If x Then Close #x
            x = FreeFile
            Open ThisWorkbook.Path & ps & Format(tablo(i, 1), "yyyymmdd") & ".csv" For Output As #x
        End If
        Print #x, tablo(i, 3)
    End If
Next
If x Then Close #x
End Sub
 
Vote positif 0 Vote négatif
Bonjour,

Ah et puis il est vraiment stupide d'avoir des textes vides sous les dates, supprimons-les :
VB: 
Sub csv()
Dim ps$, derlig As Variant, tablo, i&, x%
ps = Application.PathSeparator
Range("A11:C" & Rows.Count).Sort Columns(1), xlAscending, Header:=xlYes 'tri sur colonne A
derlig = Application.Match([9^9], Columns(1))
If IsError(derlig) Then derlig = 11 
Range("A" & derlig + 1 & ":C" & Rows.Count).Delete xlUp 'suppression des textes
tablo = [A11].CurrentRegion.Resize(, 3) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If tablo(i, 1) <> tablo(i - 1, 1) Then
        If x Then Close #x
        x = FreeFile
        Open ThisWorkbook.Path & ps & Format(tablo(i, 1), "yyyymmdd") & ".csv" For Output As #x
    End If
    Print #x, tablo(i, 3)
Next
If x Then Close #x
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
457
gsx-air
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
523
TooFatBoy
H
  • Résolu(e)
XL 2021 Lire un fichier txt
Réponses
6
Affichages
151
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
211
un internaute
U
H
  • Question Question
XL 2021 Creation de fichier txt
Réponses
4
Affichages
128
fanch55
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
422
un internaute
U
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
391
kiki29
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
5 6 7
Réponses
96
Affichages
2 K
patricktoulon
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
308
patricko-13
P
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
319
jurassic pork
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
255
patricktoulon
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
361
netparty
N
C
  • Résolu(e)
XL 2019 Importer fichier csv sans consatener les colonnes
2 3
Réponses
34
Affichages
2 K
laurent950
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
324
sylvanu
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
704
Webperegrino
W
N
  • Question Question
Microsoft 365 Exporter en csv vers un sharepoint
Réponses
0
Affichages
529
Negalo
N
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
794
job75
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
293
CDALE
C
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
346
picc
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…