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

weyb

XLDnaute Nouveau
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
 

weyb

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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...
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas