et oui je reviens a la charge
j'ai un debut de code qui me permait de selectionner les calandriers que je veus dans les calandrier partager
ca peut dejas aider des personne
il me reste a trouver comment les imprimer individuellement si vous avez une idée
merci d'avance
Private Sub selectcalendrier()
Dim objPane As NavigationPane
Dim objModule As CalendarModule
Dim objGroup As NavigationGroup
Dim objNavFolder As NavigationFolder
Dim i As Integer
Set objPane = Application.ActiveExplorer.NavigationPane
Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar)
With objModule.NavigationGroups
Set objGroup = .GetDefaultNavigationGroup(olPeopleFoldersGroup)
End With
On Error Resume Next
For i = 1 To objGroup.NavigationFolders.Count
Set objNavFolder = objGroup.NavigationFolders.Item(i)
Select Case i
' selectionne les calendriers a ouvrir
Case "*" ' ou case 1, 4, 7 pour selectionner les calendrier 1 4 7
objNavFolder.IsSelected = True
objNavFolder.IsSideBySide = False
Case Else
objNavFolder.IsSelected = False
End Select
Next
End Sub