Contenu récent par Ben78

Bonjour, un grand merci à tous, vous trouverez ci-dessous le code définitif avec l'ajout de "Set olApp = CreateObject("outlook.application")", ainsi la macro fonctionne . Encore une fois merci de vous être penché, et d'avoir solutionné, ce sujet qui m'a bien fait transpirer. Cordialement...

Bonsoir, Pour résumer : j'ai les destinataires en colonne A, les mails en colonne B, et l'objet du mail en C2, mais si cela est plus simple je peux avoir le mail en colonne C et faire un titre de mail individualisé... mais là ça devient un peu luxe :)

La partie C "Objet du mail" est fixe, elle se situe en C2 et est toujours la même.

Je pense que le problème provient de l'emplacement du "Next i" en effet en le positionnant après le send ça me fait le premier mail ok par contre la macro plante au deuxieme destinataire en indiquant sur ".Body = Corps" l'élément a été déplacé ou supprimé... La solution ne semble pas loin ...

Il faudrait que: - A2 reçoive le texte B2, - A3 reçoive le corps B3, - A4 reçoive le corps B4, et ainsi de suite. Merci :)

Oups... j'aurai du commencer par cela... désolé. Mon souhait est d'envoyer des emails individualisés à une liste de destinataires. Le destinataire se trouvent en colonne A, le corps du mail correspondant est en colonne B et l'objet est fixe en cellule C2. La première adresse mail est en A2...

Merci pour la variable, mais cela induit un résultat étrange au lieu de renvoyer le contenu d'une seule cellule la macro renvoie toutes les lignes dans le corps du mail, cela ne proviendrait pas du "End(xlDown).Row"? Cordialement Benoit Sub SendEmail() Dim olApp As Outlook.Application Set...

Bonjour xUpsilon je vous remercie de votre aide, qui me permet d'avancer sur la boucle malheureusement elle semble descendre tout en bas et ne prendre que le dernier texte, ne faudrait t'il pas juste descendre d'une ligne ? et surtout comment? Cordialement Benoit Sub SendEmail() Dim olApp As...

Bonjour, je suis en train de travailler sur une macro permettant l'envoi d'email personnalisé à une liste de destinataires (en cellule A2 à A143), le texte de chaque mail étant en colonne B; la macro tourne bien mais je bloque sur la création de la boucle du texte "personnalisé" .body qui...

Re : Compilation de fichier sur tous les onglets Arfff toutes mes excuses c'est moi qui avait modifié les référence d'une plage et pas d'une autre... Un grand merci pour votre aide. Cordialement Benoit

Re : Compilation de fichier sur tous les onglets Bonjour et toutes mes excuses pour ne pas avoir vu le point, cela fonctionne si ce n'est que les deux traitements se superposent en effet les données d’entête sont rapatriées dans le fichier de destination (en laissant une vingtaine de lignes...

Re : Compilation de fichier sur tous les onglets Bonsoir, et merci pour ces explications, malheureusement en ajoutant la ligne Excel s’arrête en recherchant un objet... aussi pour être le plus clair possible je me suis permis d'ajouter une petite PJ en zip avec 2 fichiers sources, et le...

Re : Compilation de fichier sur tous les onglets Un grand Merci Dranreb le fichier s’exécute bien Le code final est donc Sub Compilation() Dim PlgDest As Range, NomFic As String, Clas As Workbook, Feui As Worksheet, NbL As Long Application.ScreenUpdating = False 'bloque l'affichage Set...

Re : Compilation de fichier sur tous les onglets Bonjour, et merci de votre intérêt pour ma question, par contre il semble que la boucle tourne sans fin, pourtant une fin de boucle semble bien présente ??? Cordialement Benoit

Bonjour, Je me permets de vous solliciter car je rencontre une difficulté dans l’établissement d’une macro ; en effet je me rend compte que sans pratique on oublie vite…. Ma cible est la suivante : J'ai 250 fichiers Excel dans un répertoire contenant un nombre variable d’onglets (jusqu’à...