Bonjour à tous,
J'ai un petit soucis d'exécution d'une macro.... (celle ci permet de créer des rdv vers outlook)
Cette macro est fonctionnelle seulement voilà un petit soucis.
Dans mon classeur j'ai 5 onglets, dont le dernier nommé "RECAP" regroupe toutes les données des autres onglets...
Donc dans cet onglet RECAP j'ai tous les rdv à exporter.
En fait, je suis obligé de me mettre sur l'onglet "RECAP" pour que la macro exporte tous les rdv regroupés... En effet si je me mets sur l'onglet 1 par exemple, et que j'exécute ma macro, ça m'exporte que les rdv de l'onglet 1.
Mais je veux uniquement que les rdv du dernier onglet (RECAP) qui soit exportés, peut importe l'onglet sur lequel je me trouve...
J'ai essayé de modifier le code, en vain...
Une petite aide
Merci bien
J'ai un petit soucis d'exécution d'une macro.... (celle ci permet de créer des rdv vers outlook)
Cette macro est fonctionnelle seulement voilà un petit soucis.
Dans mon classeur j'ai 5 onglets, dont le dernier nommé "RECAP" regroupe toutes les données des autres onglets...
Donc dans cet onglet RECAP j'ai tous les rdv à exporter.
En fait, je suis obligé de me mettre sur l'onglet "RECAP" pour que la macro exporte tous les rdv regroupés... En effet si je me mets sur l'onglet 1 par exemple, et que j'exécute ma macro, ça m'exporte que les rdv de l'onglet 1.
Mais je veux uniquement que les rdv du dernier onglet (RECAP) qui soit exportés, peut importe l'onglet sur lequel je me trouve...
J'ai essayé de modifier le code, en vain...
Une petite aide
Merci bien
Code:
Sub supprime()
Dim OutlApp As New Outlook.Application
Dim OutlItems As Outlook.Items
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim Cell As Range
Dim appt As Outlook.AppointmentItem
'plage de donnée
For Each Cell In Range("A2:A" & Range("A6000").End(xlUp).Row)
'fin de plage de donnée
'Crée la sélection du calendrier dans Outlook
Set OutlApp = CreateObject("Outlook.Application")
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Folders("prospection").Items ' Nom du calendrier - Attention calendrier ajouté en dessous du calendrier par default et nom dans un nouveau groupe.
'Set OutlItems = OutlFolder.Items ' Calendrier par default
If OutlItems.Count > 0 Then
OutlItems.Remove OutlItems.Count
DoEvents
End If
Next
ajout
End Sub