Créer un fichier _.ics simple à partir d'un module vba excel
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 360 fois - Téléchargée 16 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
- Creer fichier ics avec excel
- Créer fichier ics - Meilleures réponses
- Créer un fichier ics - Meilleures réponses
- Creer un fichier .bat a partir d'une page web!!! - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Flash : Créer un fichier exe à partir d'un fichier swf et fla - CodeS SourceS - Guide
- Creer un fichier de sauvegarde a partir des données d'une table access - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- 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
Commentaire
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.