Pb de pièce jointe qui s'ajoute en boucle

Bonjour;

Selon mon fichier en PJ à chaque fois que je clic sur "Passer à la ligne suivante" puis sur "Envoi destinataire" ça ajoute une PJ supplémentaire à chaque envoi :

Au premier envoi j'ai un fichier en PJ ce qui est correct

Au deuxième envoi j 'ai 2 fichiers en PJ (le même)

Au troisième envoi j 'ai 3 fichiers en PJ (le même)

et ainsi de suite

Comment faire pour qu'il envoie a chaque un seul fichier en PJ ?

Merci pour votre aide

Bonjour,

essaie ceci

            With .Item
                While .Attachments.Count > 0
                    .Attachments.Remove 1
                Wend
                .To = Range("C20")
                .CC = Range("I12")
                .BCC = ""
                .Subject = Range("B1")
                .SentOnBehalfOfName = "cmi.gestre@socgen.com"
                .Attachments.Add ("V:\GTPS\GFL\SCG-PCM-IMP\PRO_C\Facturation Token - En construction\3S Key facturation via Perla.pdf")
                .Send
            End With

Il y a sans doute mieux !

Bonjour

Merci pour ta réponse

Dsl je ne connais pas très bien la VBA, quand j applique ton code , voila ce qu'il me met :

Peut être j'ai fait une erreur en recopiant ton code ?

Py

Bon, je n'ai pas le code en entier ... mais il ne le faisais pas auparavant ? avant modif ?

Vérifie, car ce n'est pas ce qui est ajouté qui provoque cette erreur.

Et envoie tout le code.

Vérifie que les with ont bien des end with correspondants un peu plus loin

Je viens de voir l'original, il y a 5 with et 5 end with, cela a l'air ok

Essaie ceci alors ...

Merci beaucoup Steelson

Je viens d'essayer et ca marche nickel !!

Bonne journée

Py

Cool