Erreur dans la récupération des pièces jointes outlook depuis un fichier excel

hikosejuro · 27 Avril 2007

Bonjour à tous,

(pour info j'utilise excel 2003 sur deux pcs différents tous deux sous XP)

Voici la situation:

J'ai un fichier excel qui ouvre un UserForm, dans cet UserForm, quand je clique sur le bouton de validation, la macro va chercher toutes les pièces jointes de l'utilisateur pour les mettre dans un dossier précis.

Cette macro marche très bien quand je la teste depuis mon ordinateur.

Par contre, quand je met le fichier sur un autre ordinateur (en certifiant les macros au passage) et que je veux utiliser le fichier de la même manière, cela m'indique une fenêtre d'erreur « Impossible d’enregistrer la pièce jointe. Impossible de terminer l’opération. Une ou plusieurs valeurs de paramètres ne sont pas valides. ». Puis quand je clique sur Débeugage, cela me souligne la ligne

Code:

pceJointe.SaveAsFile _

                    "C:\Documents and Settings\" & "Recup\" & x & "_" & pceJointe

Voici pour information le code de la fonction qui me permet la récupération des pièces jointes:

Code:

    Dim olSpace As Outlook.Namespace
    Dim olInbox As Outlook.MAPIFolder
    Dim pceJointe As Outlook.Attachment
    Dim j As Integer, i As Integer, x As Integer
    
    Set outlookApp = CreateObject("Outlook.Application")
    Set olSpace = outlookApp.getNamespace("MAPI")
    Set olInbox = olSpace.getDefaultFolder(olFolderInbox)
    
     'boucle sur tous les messages de la boite de réception
    For j = 1 To olInbox.Items.Count
        If Not olInbox.Items.Item(j).Attachments.Count = 0 Then
            For i = 1 To olInbox.Items.Item(j).Attachments.Count
                
                Set pceJointe = olInbox.Items.Item(j).Attachments(i)
                
                x = x + 1
                pceJointe.SaveAsFile _
                    "C:\Documents and Settings\" & "Recup\" & x & "_" & pceJointe
                
                Set pceJointe = Nothing
            Next i
        End If
    Next j

Est ce que quelqu'un pourrait m'indiquer d'où pourrez venir le problème s'il vous plait.

Merci d'avance pour l'intérêt que vous aurez porté à ce message.

Hiko

MichelXld · 27 Avril 2007

Re : Erreur dans la récupération des pièces jointes outlook depuis un fichier excel

bonsoir

As tu vérifié si le nom du répertoire indiqué est correct sur le deuxième PC?

Code:

"C:\Documents and Settings\Recup\" & x & "_" & pceJointe

Bonne soirée
MichelXld

Erreur dans la récupération des pièces jointes outlook depuis un fichier excel

hikosejuro

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

Discussions similaires