Contenu récent par poipoi59

Bonjour à tous, Après de multiples recherches sur le forum, je ne trouve pas réponse. Je souhaite, à partir d'une macro excel 2003, pouvoir retrouver un mail dans ma boîte de réception (outlook 2003) selon son expéditeur (Ex: "X2000"). Ensuite j'aimerais connaitre la commande permettant...

Re : Envoi plusieurs mails Bonjour Martial, J'ai utilisé le code que tu me proposes, il me renvoie sur Outlook 2003 que les premiers caractères contenus dans ma zone de texte Je te joins le fichier Merci à toi et à tous celles et ceux qui pourront m'apporter une réponse, poipoi59

Re : Envoi plusieurs mails Bonjour ci-joint un fichier... Merci à vous, poipoi59

Re : Envoi plusieurs mails Bonjour à tous, J'utilise le code ci-dessous qui me donne un nouveau problème. En effet, je souhaite copier le contenu d'une zone de texte dans un mail. Le problème est que la copie de la zone de texte se limite à un nombre de caractères (le max disponible dans une...

Bonjour le forum, Je souhaite transmettre plusieurs mails à plusieurs destinataires via Outlook 2003 Je ne peux pas faire un seul mail avec plusieurs destinataires en cci, car l'objet du mail change à chaque destinataire. Les adresses des destinataires et les objets se trouveront dans...

Re : Copie feuilles classeur CA MARCHE !!! MERCI BEAUCOUP A VOUS Bonne journée, poipoi59

Re : Copie feuilles classeur Nickel, MERCI BEAUCOUP A VOUS... Bonne journée, poipoi59

Re : Copie feuilles classeur Bonjour, En fait j'ai du code après If flag = False Then MsgBox "Le fichier n'a pas été trouvé!", vbCritical, "Fichier non ouvert" ... ... .. end sub J'aimerais que le code s'arrête tout de suite si le fichier n'est pas trouvé. Auriez-vous une solution ...

Re : Copie feuilles classeur Bonjour, En fait j'ai du code après If flag = False Then MsgBox "Le fichier n'a pas été trouvé!", vbCritical, "Fichier non ouvert" ... ... .. end sub J'aimerais que le code s'arrête tout de suite si le fichier n'est pas trouvé. Auriez-vous une solution ...

Re : Copie feuilles classeur Bonjour à tous, Si j'enlève le exit for : Dim wbk As Workbook, tWbk As Workbook, ws As Worksheet, flag As Boolean Set tWbk = ThisWorkbook For Each wbk In Workbooks If wbk.Name Like "agenc*" Then flag = True: Next wbk If flag = False Then MsgBox "Le...

Re : Copie feuilles classeur Bonjour à tous, Le code Sub TestTER() ne permet l'extraction que d'un seul fichier dont le nom commence par "agenc". J'aimerais utiliser le code testBIS() de Staple1600 avec une alerte si aucun classeur dont le nom commence par "agenc" est ouvert. J'ai essayé...

Re : Copie feuilles classeur Bonjour Staple 1600, Merci pour ta réponse et désolé pour l'impair... Ton code fonctionne... Par contre, à quel endroit puis-je ajouter ? If Left(ActiveWorkbook.Name, 5) <> "agenc" Then MsgBox ("Le fichier n'a pas été trouvé") Else qui permet de...

Bonjour, J'ai écrit ce début de code : Sub test() Application.ScreenUpdating = False Dim Wbk As Workbook For Each Wbk In Application.Workbooks If Left(Wbk.Name, 5) = "agenc" Then Wbk.Activate Exit For End If Next Wbk If Left(ActiveWorkbook.Name, 5) <> "agenc" Then MsgBox...

Re : Copie feuilles classeur Bonjour, Merci pour vos réponses, J'ai désormais un autre souci, J'ai écrit ce début de code : Sub test() Application.ScreenUpdating = False Dim Wbk As Workbook For Each Wbk In Application.Workbooks If Left(Wbk.Name, 5) = "agenc" Then...

Re : Copie feuilles classeur Bonjour, Merci beaucoup pour la réponse, Si je peux me permettre, il me semble dans le code ci-dessus que le classeur1 a un nom fixe et connu et c'est de là qu'on copie les données. Or, je souhaite copier les feuilles d'un classeur dont le nom commence par...