Créer un fichier _.ics simple à partir d'un module vba excel
Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 285 fois - Téléchargée 18 fois
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
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
- Créer un fichier ics à partir d'excel
- Créer fichier ics avec excel - Meilleures réponses
- Créer fichier ics - Meilleures réponses
- Flash : Créer un fichier exe à partir d'un fichier swf et fla - CodeS SourceS - Guide
- Delphi / Pascal : Creer des fichiers avi a partir d 'images - CodeS SourceS - Guide
- C / C++ / C++.NET : Créer un fichier iso à partir d'un répertoire (win32) - Co - Guide
- Visual Basic / VB.NET : Creer un gantt chart a partir d'excel - CodeS SourceS - Guide
- C# / .NET : Créer un fichier ICO à partir d'une image - CodeS SourceS - Guide
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.