Discussion :

[MARC693]

Bonjour à tous,

Je suis débutant en VBA et j'essaie de modifier un code pour arriver à sauvegarder mes messages importants au format suivant :

jour-mois-année_hh-mm_nom,prénom expéditeur, objet de l'email.msg

Le code d'origine est récupéré sur ce forum (je remercie au passage les développeurs qui partagent leurs savoirs) et modifié pour correspondre au format voulu.
Après de nombreux essais, je voulais savoir si la fonction oMail.SaveAS est limitée dans le nombre de caractéres de sname & spath 255 Max.
sName et sPath étant déclarés comme string, je ne comprends pas cette limitation.

Je vous remercie d'avance pour vos réponses.
Bien Cordialement.
Marc.

[Oliv-]

Bonjour,

Il y a effectivement une double limitation

sur le nom du fichier et sur le chemin du dossier

du coup si ton nom de fichier est proche de la limite et que tu le déplaces dans un sous dossier excel risque de ne plus pouvoir l'ouvrir.

il ne faut pas non plus qu'il y ai des caractères interdits

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub testr()
    MsgBox remplaceCaracteresInterdit("123.,;:FINp")
End Sub
Function remplaceCaracteresInterdit(ByVal CheminStr As String)
    Dim objCurrentMessage As Outlook.MailItem
 
    Dim liste As Variant
    Dim L
    liste = Array("\", "/", ":", "*", "?", "<", ">", "|", ".", """", vbTab, Chr(7))
    For L = 0 To UBound(liste)
        CheminStr = Replace(CheminStr, liste(L), "")
    Next L
    remplaceCaracteresInterdit = CheminStr
    'MsgBox CheminStr
End Function

[MARC693]

Bonjour Oliv,
Merci beaucoup pour cette réponse rapide.
Il n'y a donc pas de solution à mon problème, dommage.
Vous faites un travail exceptionnel sur ce forum, merci à tous pour ce partage de connaissances.
Bien cordialement.
Marc

[Oliv-]

il suffit de limiter la longueur de ton nom de fichier en utilisant len() et left() etc...

[MARC693]

Bonjour Oliv,
Je te remercie pour ta réponse, je vais creuser cette piste.
Bien cordialement.
MARC693.

[MARC693]

Bonjour,

Sur les conseills d'Oliv j'ai modifié la macro pour tronquer la chaine de caractères.
Je partage le code,si ça intéresse des lecteurs.
Je remercie Oliv pour ses réponses rapides.

Macro_06052019_V3.txt