exporter un CSV avec inversion jour et mois pour google calendar

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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!

06/06/2015, 19h17
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")

Merci rdurupt de m'aider un peu !

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

Code:

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Ï

Code:

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

06/06/2015, 21h30
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 :roll:
06/06/2015, 21h38
Invité

Peut être, mais regardes mon code!
06/06/2015, 21h39
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

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

Code:

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

06/06/2015, 22h04
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 !
06/06/2015, 22h22
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