CSV pour google agenda

Dav.42 · 14 Janvier 2015

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

Code:

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

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

Code:

"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.

Code:

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 · 15 Janvier 2015

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 · 15 Janvier 2015

Re : CSV pour google agenda

tatiak à dit:
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 :

Code:

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 · 15 Janvier 2015

Re : CSV pour google agenda

camarchepas à dit:
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 · 4 Octobre 2016

Bonjour,

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

Bien à vous,

CSV pour google agenda

Dav.42

XLDnaute Nouveau

camarchepas

XLDnaute Barbatruc

Dav.42

XLDnaute Nouveau

Dav.42

XLDnaute Nouveau

Xave_be

XLDnaute Nouveau

Discussions similaires