CSV pour google agenda

[Dav.42]

Bonjour,
J'ai un fichier planning sur excel, auquel j'ai fais une macro permettant d'export en fichier CSV d'une plage de dates sélectionnées, pour importer dans Google agenda.
Quand j’exécute la macro il me crée bien mon CSV mais impossible de l'importer dans l'agenda Google. Les valeurs et l’ordre sont bons car il suffit que j'ouvre se fichier CSV dans excel et simplement fasse enregistrer (en acceptant les boites de dialogues) et je peux importer ce fichier sans rien avoir eu a modifier en valeurs.
Après ouverture du CSV généré, il apparait que quand c'est la macro qui m'enregistre mon CSV, cela me met des guillemets avant chaque lignes.

Voila le bout de macro qui enregistre le csv

USfExport.Show
Workbooks("export.csv").Save
Workbooks("export.csv").Close True

Le csv qui est généré (qui fonctionne pas)

"Subject,Start Date,Start Time,End Date,End Time,All Day Event,Description,Location,Private"
"08:30 - 14:00,06/01/2015,07:45,06/01/2015,14:45,FALSE,,Feurs,TRUE"
"08:30 - 14:00,08/01/2015,07:45,08/01/2015,14:45,FALSE,,Feurs,TRUE"

Le CSV si je l'enregistre manuellement et que je souhaiteari obtenir avec la macro.

Subject,Start Date,Start Time,End Date,End Time,All Day Event,Description,Location,Private
08:30 - 14:00,06/01/2015,07:45,06/01/2015,14:45,FALSE,,Feurs,TRUE
08:30 - 14:00,08/01/2015,07:45,08/01/2015,14:45,FALSE,,Feurs,TRUE

Comment puis-je corriger le problème ?
Merci par avance.

 

[camarchepas]

Re : CSV pour google agenda

BOnjour à tous ,

une autre solution :

ActiveWorkbook.SaveAs Filename:="c:\temp\Test.csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True

 

[Dav.42]

Re : CSV pour google agenda

Hello Dav
En fait un fichier CSV est un bête fichier texte. Donc yaka le générer comme tel avec du code genre :

Sub export_csv()
Dim i As Byte, j As Byte, S As String
    S = ""
    For i = 1 To 3
        For j = 1 To 8
            S = S & Cells(i, j).Text & ","
        Next j
        S = S & Cells(i, 9).Value & vbCrLf
    Next i
    Open ActiveWorkbook.Path & "/xprt.csv" For Output As #1
    Print #1, S
    Close #1
End Sub

ce qui enregistre les données dans un fichier xprt.csv dans le dossier courant
(après yapuka adapter le code pour prendre en compte le nb réel de lignes et colonnes)
Fastoche, non!
tatiak

Merci beaucoup, une fois adapté cela fonctionne parfaitement.

 

[Dav.42]

Re : CSV pour google agenda

BOnjour à tous ,

une autre solution :

ActiveWorkbook.SaveAs Filename:="c:\temp\Test.csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True

Ça donne le même résultat que se que je faisait.

 

[Xave_be]

Bonjour,

suite à cette macro, comment faire pour l'envoyer automatiquement sur google agenda?

Bien à vous,