Bonjour,

J'ai fait une petite macro avec 2 if imbriqués dans une boucle For next. La macro fonctionne bien pour le 1er if énoncé mais s'arrête ensuite. Il doit y avoir une bête faute de syntaxe, mais je ne la vois pas....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub PSTFiles()
Dim f As MAPIFolder
Dim nom As String
	For Each f In Session.Folders
		nom = f.Name
		If f.Name = "ArchivesAntérieures" Then RemovePST (nom)
		If f.Name = "archive" Then RemovePST (nom)
	Next f
End Sub