[XL-2010] transforme fichier excel en format ics

transforme fichier excel en format ics

Bonjour,
Je suis à la recherche d'une macro vba excel qui permettrait de transformer le contenu d'une feuille excel en code ICS. J'ai recherché les différents outils sur internet mais il ne permette pas de pouvoir gérer toutes les options décrites sous https://en.wikipedia.org/wiki/ICalendar

En vous remerciant par avance pour vos idées et vous souhaitant de bonnes fêtes de fin d'année

Bonjour
J'ignore ce que pourrait être un "code ICS".
De quoi veux-tu parler ?
1) du format des fichiers ICS (et il te faudra alors décrire ce format, si tu le connais, de manière détaillée)
ou
2) de l'encodage des caractères de leur contenu (apparemment UFT8)
Ce sont là deux choses totalement distinctes !

Salut, une recherche donne ceci ? Peut-être un point de départ. Ton lien in French

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Dim CalendarData As Range
Dim N_rows As Integer
 
' Add a reference to "Microsoft Scripting Runtime"
Dim CurrentFileSystemObject As New FileSystemObject
Dim CurrentTextFile As TextStream
 
Dim PathString As String
Dim Filename As String
Dim FullPath As String
 
Dim DataString As String
Dim BeginString As String
Dim EndString As String
Dim SummaryString As String
Dim LocationString As String
Dim DateStartString As String
Dim DateEndString As String
Dim CurrentDate As Date
 
 
    ' It is a assumed the data is arranged in 3 adjacent columns
    ' and uses a named rage "CalendarData"
    '  Column 1: The date of the event
    '  Column 2: The event title string
    '  Column 3: The event location string
 
    Set CalendarData = Range("CalendarData")
    N_rows = CalendarData.Rows.Count
 
    Filename = "calendar.ics"
    PathString = "C:\"
    FullPath = PathString + Filename
 
    BeginString = "BEGIN:VEVENT"
    EndString = "END:VEVENT"
 
    ' Create the file
    Set CurrentTextFile = CurrentFileSystemObject.CreateTextFile(FullPath)
 
    ' Write header information
    DataString = "BEGIN:VCALENDAR"
    CurrentTextFile.WriteLine (DataString)
 
    DataString = "VERSION:2.0"
    CurrentTextFile.WriteLine (DataString)
 
    ' Write the individual events
    For i = 1 To N_rows
 
        CurrentTextFile.WriteLine (BeginString)
 
        CurrentDate = CalendarData(i, 1)
        SummaryString = "SUMMARY:" + CalendarData(i, 2)
        LocationString = "LOCATION:" + CalendarData(i, 3)
 
 
        DateStartString = "DTSTART;VALUE=DATE:" + Format(CurrentDate, "yyyymmdd")
        DateEndString = "DTEND;VALUE=DATE:" + Format(CurrentDate, "yyyymmdd")
 
        CurrentTextFile.WriteLine (SummaryString)
        CurrentTextFile.WriteLine (LocationString)
 
        CurrentTextFile.WriteLine (DateStartString)
        CurrentTextFile.WriteLine (DateEndString)
 
        CurrentTextFile.WriteLine (EndString)
    Next i
 
    ' Write the closing information and close the file
    DataString = "END:VCALENDAR"
    CurrentTextFile.WriteLine (DataString)
 
    CurrentTextFile.Close
 
End Sub

Bonjour Kiki29 et unparia
Merci à vous 2.
C'est bien pour créer un format ics pour les gestionnaires d'agenda
Vous me donnez de bonnes pistes
Je vais y travailler.
Si vous avez d'autres exemples existants en macro vba, je suis encore intéressé.
Bonnes fêtes:)