Créer un fichier _.ics simple à partir d'un module vba excel
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 055 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 un fichier ics à partir d'excel - Meilleures réponses
- Créer fichier ics - Meilleures réponses
- Créer fichier ics - Forum - PHP
- Creer à partir d'excel un fichier DXF de points xyz pouvant être dessiné sous Au ✓ - Forum - Visual Basic 6
- Créer un fichier kmz avec excel - Forum - VB.NET
- Importer des fichiers txt dans excel avec une macro vba ✓ - Forum - Visual Basic 6
- Import de fichier texte vers Excel ✓ - Forum - Visual Basic
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.