Discussion :

[Holycat]

Bonjour à tous,

Voilà je bataille depuis un petit moment (je suis débutant) pour faire un export d'une feuille en CSV en inversant le jour et le mois de 2 colonnes.

J'ai un tableau, dans une feuille intitulée "CSV", dont la taille varie uniquement pour les lignes, avec 2 colonnes de dates, que je dois inverser lors de l'exportation pour que google calendar ne m'inverse pas les rdvs ajoutés le 1er juin avec le 6 janvier.
Curieusement il n'y avait pas d'erreurs pour l'importation dans google de la fin de mai.

Dans l'idée, j'ai des codes qui marchent séparément mais je voudrais les regrouper pour traiter chaque partie de la feuille CSV.

Voici le premier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CSV()
'
Dim Range As Object, Line As Object, Cell As Object
Dim TMP As String, Sep As String
 
   Sep = ","
   Set Range = ActiveSheet.UsedRange
 
 Open "Horaires.csv" For Output As #1
 
 For Each Line In Range.Rows
    TMP = ""
    For Each Cell In Line.Cells
       TMP = TMP & CStr _
         (Cell.Text) & Sep
     Next
    Print #1, TMP
  Next
 Close
 End Sub

Celui-ci fonctionne, mais je voudrais rajouter ce bout de code uniquement pour les colonnes 2 et 3, et sans la ligne 1 qui contient les intitulés des 5 colonnes (subject, start date, end date,...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DatC = Mid(oC2, 4, 2) & "/" & Left(oC2, 2) & "/" & Right(oC2, 4)
                        TMP = TMP & DatC & Sep

Donc mes questions sont :

Comment faire pour ne traiter que la ligne 1 avec le premier code ?
Puis rajouter une condition, dans une autre boucle, pour n'inverser que les mois et jours des colonnes 2 et 3 ?

Voilà j'ai joint le fichier d'origine normalement et merci infiniment pour vos contributions à ma recherche!

[Invité]

Bonjour,
Pas besoin d'un traitement bizarre!
DatC = format(oC2, "mm/dd/yyyy") ;

Mais je pense que le format international serait mieux!

DatC = format(oC2, "yyyy-mm-bb")

[Holycat]

Merci rdurupt de m'aider un peu !

Voici le code que j'ai modifié mais il me dit "else sans if" !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CSV_10()
'
Dim Range As Object, Line As Object, Cell As Object
Dim TMP As String, Sep As String
 
   Sep = ","
   Set Range = ActiveSheet.UsedRange
 
 Open "Horaires.csv" For Output As #1
 
 For Each Line In Range.Rows
    TMP = ""
    For Each Cell In Line.Cells
        If IsDate(Cell) = True Then Cell = Format(Cell, "mm-dd-yyyy")
        Else
             TMP = TMP & CStr(Cell.Text) & Sep 'il me dit else sans if !!?"
        End If
     Next
    Print #1, TMP
  Next
 Close
 End SubÏ

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsDate(Cell) = True Then 
              Cell = Format(Cell, "yyyy-mm-mm") 'le format internationale fonctionne comme ça et Pour toutes les langues!
        Else
             TMP = TMP & CStr(Cell.Text) & Sep 'il me dit else sans if !!?"
        End If

[Holycat]

Bon alors autocorrection pour le "else sans if", ça peut servir à tout le monde :
Il faut faire faire un retour à la ligne juste après le "then".

Donc après correction, les colonnes de date ont disparues

[Invité]

Peut être, mais regardes mon code!

[Holycat]

Arf tu me*répondais en même temps que j'avais trouvé pourquoi ça bloquait. Merci encore

Bref, de toutes façons, j'ai essayé "yyyy-mm-dd" ça marche pô.
Il reconnait bien si le contenu de la cellule est une date, et si oui alors il me le supprime lol

[Invité]

C'est pas quelque chose comme ça plutôt?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsDate(Cell) = True Then 
              TMP = TMP & Format(Cell, "yyyy-mm-mm") & Sep  'le format internationale fonctionne comme ça et Pour toutes les langues!
        Else
             TMP = TMP & CStr(Cell.Text) & Sep 'il me dit else sans if !!?"
        End If

[Holycat]

Alors mea culpa, j'avais fait une erreur, c'est bon ça marche !

Mais par contre j'ai pas vraiment compris.
Le résultat est bien comme je voulais "dd-mm-yyyy", à la française quoi, et pourtant j'ai appliqué ta formule "yyyy-mm-dd"...
En fait, d'après ce que je comprends, en faisant comme ça, tu inverses la date avant que VBA ne passe par là et ne l'inverse également ?

Enfin en tout cas merci mille fois maître rdurupt !

[Invité]

Le vrai format des dates sur n'importe quel système d'exploitation est "yyyy-mm-dd" c'est le format international tous les systèmes le voit comme une date valide

Format international