Créer alerte outlook via excel

tu le publies sur internet (google drive, cjoint.com, ...), et tu partages le lien ici.
explique aussi ce que tu attends qu'il se passe.

@yg_beBonjour, j'ai une feuille excel je voudrai l'intégrer dans ma feuille de calcul pour les alerte de RDV sur 2 colonnes J et O et je voudrais qu'il soit à 30 mn avant l'heure.
ci-joint mon lien feuille excel; https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://docs.google.com/spreadsheets/d/e/2PACX-1vQXwYmyy0ajIetefKOQp-JC28kuwzm2GP5-9oFtwgPmz4GcIf5wEibKomQ1XLfIkOlBIwHyLuoqaE5v/pubhtml?gid%3D1558400539%26single%3Dtrue&followup=https://docs.google.com/spreadsheets/d/e/2PACX-1vQXwYmyy0ajIetefKOQp-JC28kuwzm2GP5-9oFtwgPmz4GcIf5wEibKomQ1XLfIkOlBIwHyLuoqaE5v/pubhtml?gid%3D1558400539%26single%3Dtrue&ltmpl=sheets

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range
'ici on détermine la plage dont les modifications déclencheront la procédure :
Set MaPlage = Range("J2:J100") '***** A ADAPTER ******
'si la cellule modifiée n'est pas dans notre plage on quitte la procédure sans rien faire
If Intersect(MaPlage, Target) Is Nothing Then Exit Sub
'sort également de la procédure si tu effaces le contenu d'une cellule date
If Target.Value = "" Then Exit Sub
'déclaration des variables
Dim strSujet As String, strDescription As String, strLocation As String, datDate As Date, IntDuree As Integer, strCategorie As String
'Attribution des valeurs aux variables
'il est possible de remplacer les valeurs "en dur" par des valeurs contenues dans les cellules
'pour cela, se baser sur Target (= la cellule date modifiée) et faire varier l'Offset pour cibler la bonne cellule
'dans cet exemple, Target est en colonne E.
'Pour cibler la cellule située en colonne A de la même ligne, il convient d'utiliser : Target.Offset(0, -4).Value
'Pour cibler la cellule située en colonne G de la même ligne, il convient d'utiliser : Target.Offset(0, 2).Value
strSujet = Target.Offset(0, -1).Value
strDescription = "....Description...."
strLocation = "Ici même"
datDate = CDate(Target.Offset(0, 1).Value - 7) 'date contenue dans la colonne D moins 7 jours
Do While Not JoursOuvres(datDate) ' on boucle tant que la date trouvée n'est pas un jour ouvré
datDate = CDate(datDate - 1) 'on enlève un jour
Loop
'petit test. Si ta cellule date ne contient pas l'heure, l'heure par défaut sera 08:00:00
'inutile de changer le format de la date, la saisir au format jj/mm/aaaa
If InStr(datDate, ":") = 0 Then datDate = CDate(datDate & " 08:00:00")
IntDuree = 30
strCategorie = "Travail"
'Appel de la procédure
Call RDV_Clients(strSujet, strDescription, strLocation, datDate, IntDuree, strCategorie)
End Sub

Sub RDV_Clients(Sujet As String, Description As String, Locat As String, madate As Date, duree As Integer, Cat As String)
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem

Set Rdv = OkApp.CreateItem(olAppointmentItem)

With Rdv
.MeetingStatus = olMeeting
.Subject = Sujet
.Body = Description
.Location = Locat
.Start = madate
.Duration = duree
.Categories = Cat
.Save
End With

Set OkApp = Nothing
End Sub

Function JoursOuvres(UneDate As Date) As Boolean
Select Case Weekday(UneDate)
Case vbSunday, vbSaturday
JoursOuvres = False
Case Else
'calcul du dimanche de paques :
'cf : https://www.developpez.net/forums/d198031/logiciels/microsoft-office/access/access-2000-calcul-jours-ouvr-s-champ-formulaire/#post1279591
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
Dim f As Integer, g As Integer, h As Integer, i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer, p As Integer, iAn As Integer
Dim Paques As Date, LundiDePaques As Date, feries(12)
iAn = Year(UneDate)
a = Int(iAn Mod 19)
b = Int(iAn \ 100)
c = Int(iAn Mod 100)
d = b \ 4
e = b Mod 4
f = (b + 8) \ 25
g = (b - f + 1) \ 3
h = (19 * a + b - d - g + 15) Mod 30
i = c \ 4
k = c Mod 4
l = (32 + 2 * e + 2 * i - h - k) Mod 7
m = (a + 11 * h + 22 * l) \ 451
n = (h + l - 7 * m + 114) \ 31
p = (h + l - 7 * m + 114) Mod 31
Paques = DateSerial(iAn, n, p + 1) 'dimanche de pâques
LundiDePaques = DateAdd("d", 1, Paques) 'lundi de pâques
feries(0) = DateSerial(iAn, 1, 1) '1er janvier
feries(1) = Paques '==> inutile car dimanche mais...
feries(2) = LundiDePaques
feries(3) = DateSerial(iAn, 5, 1) '1er mai
feries(4) = DateSerial(iAn, 5, 8) 'armistice 39-45
feries(5) = DateAdd("d", 39, Paques) 'ascension
feries(6) = DateAdd("d", 49, Paques) 'dimanche de pentecôte ==> inutile car dimanche mais...
feries(7) = DateAdd("d", 50, Paques) 'lundi de pentecôte
feries(8) = DateSerial(iAn, 7, 14) ' 14 juillet
feries(9) = DateSerial(iAn, 8, 15) '15 aout
feries(10) = DateSerial(iAn, 11, 1) 'toussaint
feries(11) = DateSerial(iAn, 11, 11) 'armistice 14-18
feries(12) = DateSerial(iAn, 12, 25) 'Noël
For j = 0 To 12
If feries(j) = UneDate Then JoursOuvres = False: Exit Function
Next j
JoursOuvres = True
End Select
End Function

@Turan_3006peux-tu publier un fichier excel avec la macro?

@yg_beDésolé mais comment on fait??? je suis sur google sheet et je sélectionne en excel et sa veux pas

@yg_bec'est bon la??

https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://docs.google.com/spreadsheets/d/e/2PACX-1vQXwYmyy0ajIetefKOQp-JC28kuwzm2GP5-9oFtwgPmz4GcIf5wEibKomQ1XLfIkOlBIwHyLuoqaE5v/pub?output%3Dxlsx&followup=https://docs.google.com/spreadsheets/d/e/2PACX-1vQXwYmyy0ajIetefKOQp-JC28kuwzm2GP5-9oFtwgPmz4GcIf5wEibKomQ1XLfIkOlBIwHyLuoqaE5v/pub?output%3Dxlsx&ltmpl=sheets