vba .folders erreur 440 index de la matrice en dehors des limites

[weyb]

bjr le forum,

je cherche en VBA à déplacer un mail dans une arborescence d'un .pst, et j'ai le mssg "erreur 440 - index de la matrice en dehors des limites"...

ca plante quand j'essaie de sélectionner le folder du .pst à la ligne :
myDestFolder = olSpace.Folders("Dossiers personnels Hebex").Folders("GFAT Team").Folders("z-HNO, déplacts, etc").Folders(SSII).Folders(annee)
(avec 'SSII' et 'annee' qui ont une valeur, bien entendu), car je souhaite déplacer un mail vers "Dossiers personnels Hebex/GFAT Team/z-HNO, déplacts, etc/<SSII>/<annee>"

j'ai essayé aussi :
Set myDestFolder = olSpace.Folders("Dossiers personnels Hebex").Folders("GFAT Team").Folders("z-HNO, déplacts, etc") --> ca fonctionne
mais quand j'ajoute :
myDestFolder = myDestFolder .Folders(SSII).Folders(annee) --> ca plante



avez-vous une idée ?
dois-je copier ici mon code (assez long) ?
d'avance merci !

cordt

 

[gilbert_RGI]

Bonjour,
c'est quoi ces dossiers <SSII> et <annee>
les caractères <et > sont interdits dans le nom des dossiers

 

[weyb]

c'est juste pour signaler que SSII et annee sont des variables
comme vous pouvez le voir, dans le code, il n'y a pas de < ni de >
et dans Outlook non plus
ex :
Alten
2016

 

[gilbert_RGI]

avez vous essayé de mettre en dur pour voir au lieu de mettre une variable
si ça fonctionne c'est que votre variable n'est pas bien renseignée

 

[weyb]

bsr
j'ai effectivement un autre mssg d'erreur :
" variable objet ou variable de bloc With non définie"
???

j'ai vérifié, j'ai bien "Alten"/"2016" sous "z-HNO, déplacts, etc"
???

j'ai essayé la 2e méthode, à savoir faire 2 lignes avec :
Set myDestFolder = olSpace.Folders("Dossiers personnels Hebex").Folders("GFAT Team").Folders("z-HNO, déplacts, etc")
myDestFolder = myDestFolder.Folders("Alten").Folders("2016")
--> ca ne plante plus, mais c'est faux, car qd je teste la variable myDestFolder je trouve :
myDestFolder = "z-HNO, déplacts, etc"

j'y perds mon latin... :-(

surtout qu'après la ligne :
olmail.Move myDestFolder
le répertoire "z-HNO, déplacts, etc" a été renommé en "2016" !!!

Help...