Créer un fichier _.ics simple à partir d'un module vba excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 054 fois - Téléchargée 16 fois

Commenter

Contenu du snippet

Je n'ai sans doute pas une façon optimisée de coder en tant qu'amateur.
Mais ça marche très bien.

Dans mon cas, je récupère la valeur d'une cellule pour le nom du fichier ics créé.
j'ai créé le contenu du fichier ics grâce à ça:
http://abcdrfc.free.fr/rfc-vf/rfc2445.html#rfc2445-RFC-2045

Source / Exemple : 


Sub rvgen()
nomdufichier = Sheets("parametres").Range("b1").Text
'Dans mon cas je récupère l'info dans une cellule

chemin = "c:\DDPAX\"
echs = Sheets("groupes").Range("al1000").End(xlUp).Offset(0, 0).Value
echs = Format(echs, "yyyymmdd")

Open chemin & nomdufichier & ".ics" For Output As #1

Print #1, "BEGIN:VCALENDAR"
Print #1, "BEGIN:VEVENT"
Print #1, "ORGANIZER;CN=DDPAX:MAILTO:contact@email.com"
Print #1, "DTSTART:" & echs
Print #1, "DTEND:" & echs
Print #1, "SUMMARY:Relance " & Sheets("groupes").Range("d1000").End(xlUp).Offset(0, 0).Text & _
" | " & Sheets("groupes").Range("am1000").End(xlUp).Offset(0, 0).Text & _
" | " & Sheets("groupes").Range("an1000").End(xlUp).Offset(0, 0).Text & " €ttc" & _
" | " & Sheets("groupes").Range("al1000").End(xlUp).Offset(0, 0).Text
Print #1, "CATEGORIES:RELANCE FACTURE"
Print #1, "LOCATION:C:\DDPAX\FACTURES GROUPES.xltm"
Print #1, "DESCRIPTION:Ce rappel vous demande de relancer: .\nLe client:      " & _
Sheets("groupes").Range("d1000").End(xlUp).Offset(0, 0).Text & _
".\nLa Facture:     " & _
Sheets("groupes").Range("am1000").End(xlUp).Offset(0, 0).Text & _
".\nLe Montant:     " & _
Sheets("groupes").Range("an1000").End(xlUp).Offset(0, 0).Text & " €ttc" & _
".\nL'échéance:     " & _
Sheets("groupes").Range("al1000").End(xlUp).Offset(0, 0).Text & _
".\nfile:///C:/DDPAX/FACTURES GROUPES.xlsm"
Print #1, "BEGIN:VALARM"
Print #1, "ACTION:DISPLAY"
Print #1, "TRIGGER:-PT15M"
Print #1, "REPEAT:4"
Print #1, "DURATION:PT8H"
Print #1, "END:VALARM"
Print #1, "END:VEVENT"
Print #1, "END:VCALENDAR"
Close #1
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.