Discussion :

[Ptikir]

Re-bonjour (je crois qu'on va me voir souvent sur ce forum... )

Je cherche à enregistrer une pièce jointe dans le file système (par exemple D:\Test) et j'ai un message d'erreur "Impossible d'enregistrer la pièce jointe. vous ne disposez pas des autorisations nécessaires pour effectuer cette opération." Et pourtant j'ai le droit d'écriture sur le disque.

Voici le code raccourci...

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
16
17
18
19
20
21
22
23
24
25
26
 
Dim pieceJointe As String
Dim repertoirePJ As String
 
piecejointe = "toto.txt"   'par exemple
repertoirePJ = "D:\Test"
 
Set monApply = Outlook.Application  'Application outlook
Set monNSpace = monApply.GetNamespace("MAPI")   'Banque MAPI
Set fldDossier = monNSpace.GetDefaultFolder(olFolderInbox)
 
For j = 1 To fldDossier.Items.Count
...
Set monMail = fldDossier.Items(j)
...
If monMail.Attachments.Count >= 1 Then
     For k = 1 To monMail.Attachments.Count
            'on recherche que le nom de pièce jointe recherché est trouvé
            If Trim(monMail.Attachments.Item(k).FileName) = pieceJointe Then                                    
'modifier la colonne H du fichier excel en mettant la valeur 'O'
                                    sheetExcel.Range("H" & i).Value = "O"
                                    monMail.Attachments.Item(k).SaveAsFile repertoirePJ
            End If
     Next k
End If          
Next j

Bref l'erreur vient uniquement de la ligne

Code :

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

monMail.Attachments.Item(k).SaveAsFile repertoirePJ

Car le reste du code fonctionnait très bien sans cette *#!? ligne

Merci d'avance pour vos réponses

[Oliv-]

salut,
faut lui donner un nom à ta pj