[Macro] Envoi de feuilles différentes par mail

Bonjour à tous,

Ayant fait une recherche sur le forum, je n'ai pas trouvé exactement ce que je souhaitais, c'est pourquoi j'espérait qu'en expliquant mon souci, vous pourriez m'aider.

Ci joint un exemple extremement simplifié de mon cas réel.

Dans l'onglet "Base", vous avez ce que je souhaite voir dans le contenu des différents mails, c'est à dire objet, texte et destinataire + (et c'est là où ca me pose un probléme) l'envoi de la feuille "Pays" correspondant aux destinataires (et non du classeur entier).

Merci énormement par avance.

Corsicanes

Rebonjour,

J'ai également oublier de préciser que je souhaiterai que le fichier joint qui sera envoyer porte le même nom de l'onglet.

Merci aux âmes charitables qui pourront m'aider.

Corsicanes

-- 27 Juil 2010, 23:42 --

quelqu'un pour m'aider?

Merci énormement

Bonjour,

Je ne réponds pas aux MP non sollicités,

merci de rester sur le fil du forum,

Ajoute sur ton fichier joint les macros déjà commencées.

avec les commentaires en français S.T.P

Amicalement

Claude

Bonjour à tous,

Au lieu de vous refaire tout un fichier, je vais tenter d'expliquer mon souci au niveau du code. Je ne sais pas si je suis loin du compte mais j'ai l'impression d'être assez prêt du but. C'est pourquoi je vous sollicite pour tenter de comprendre mon erreur. Concernant les commentaires en anglais, peu importe ce sont des notes perso, donc je les ai enlevé car ca n'apporte rien au code.

Voici le code:

Sub Sendmail ()
Sheets("feuille1").Select 
    Sheets("feuille1").Copy '
    Range("H6").Select
    Selection.Copy 
    Application.CutCopyMode = False

    ChDir "N:\CENTRES\SN\WI\CG\DAFI\_2010\RM\06-June\5. Conso - Specific & checks\Amending accounts"
    ActiveWorkbook.SaveAs Filename:= _
        "N:\CENTRES\SN\WI\CG\DAFI\_2010\RM\06-June\5. Conso - Specific & checks\Amending accounts\feuille1.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False 'You need to change the dir and the name

ActiveWorkbook.SendMail ("xxx@xxx") 

Sheets("Feuille2").Select 
    Sheets("Feuille2").Copy 
    Range("H6").Select
    Selection.Copy 'this copy the sheet
    Application.CutCopyMode = False

    ChDir "N:\CENTRES\SN\WI\CG\DAFI\_2010\RM\06-June\5. Conso - Specific & checks\Amending accounts"
    ActiveWorkbook.SaveAs Filename:= _
        "N:\CENTRES\SN\WI\CG\DAFI\_2010\RM\06-June\5. Conso - Specific & checks\Amending accounts\Feuille2.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False 'You need to change the dir and the name

ActiveWorkbook.SendMail ("xxxx@xxxx") 
End Sub

Mon souci est que je n'arrive pas à les enchainer. Le premier (Feuille 1 s'enregistre bien dans un nouveau classeur enregistrer sous le nom de l'onglet (donc Feuille 1) et l'email est bien envoyer.

Par contre arrivé au deuxiéme, il me dit que l'indice n'appartient pas à la selection et il arrete la macro.

Quelqu'un aurait il une idée pour enchainer les deux enregistrements dans des classeurs différents et ensuite les envoyer aux destinataires mentionés.

Merci!!!

Bonjour corsicanes

je ne suis pas spécialiste dans ce domaine mais je pense qu'il faut réactiver le classeur d'origine

en début de macro

Dim Nom As String

Nom = ActiveWorkbook.Name

pour déclarer le nom du classeur actif

puis après la première routine

Workbooks(Nom).Activate

Cordialement

Bob

Merci c etait exactement ca merci!