Modification de macro

Bonjour,

j'ai une macro à modifier.

Celle ci était faite pour 1 fichier que je viens de modifier.

Descrption:

j'ai une fichier excel dont je veux envoyer une partie par mail,

1 feuille Listes en A2, A16

1 feuille ordonnancemment semaine, en A2 je selectionne le fournisseur.

J'ouvre un autre fichier Envoi mails .xls

Quand je selectionne en A2 le fournisseur, cela me selectionne A7, R14 et me renvoi sur le fichier envoi mails, plus qu'a envoyer par mail.

Le destinataire ne voit que la partie qui l'interresse.

Mais comme je viens de modifier mon fichier ordonnancement, je voudrais que j'ai en selection, A7, X16 ou autre suivant le destinataire renseigné A7, A17, A27 etc...

Merci de votre aide.

René

Bonjour,

Dans ton code tu dois juste remplacer :

Range(Range("a" & Lg), Range("r" & Lg2)).Copy

par :

Range(Range("a" & Lg), Range("X" & Lg2)).Copy

Et c'est tout !

Par contre chez moi la macro ne fonctionnait pas car il n'y a pas de nom de fournisseur en A7, A17, A27, etc. Tu as dû les effacer.

La macro cherche justement le nom choisi en A2 (la ligne 2 est d'ailleurs cachée dans le fichier joint !) et doit le retrouver dans A7:A1000.

A+

Bonjour,

merci pour ton aide, ça marche, par contre je n'ai pas la mise forme, couleur des cellules et cadrillage.

Bonne soirée

rené

Bonsoir,

Chez moi ça fonctionnait car ton fichier EnvoiMail était déjà préformaté, il y avait déjà un ancien tableau avec bordures + couleurs + largeur de colonnes.

Mettre ce code à la place de .Range("a5").PasteSpecial Paste:=xlPasteValues

        .Range("a5").PasteSpecial Paste:=xlFormats
            .Range("a5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            .Range("a5").PasteSpecial Paste:=xlPasteColumnWidths

Ca va coller le format (couleur, bordures), les valeurs (sans la formule en Q7) et les formats de nombre et la largeur des colonnes.

A+

Merci à toi,

à plus, si besoin.

Cdt René