Résultats pour "vba outlook 2010 impression toute pieces jointes"

10'097 résultats pour cette recherche

Bonjour la communauté,

Je viens vers vous car je ne trouve pas de réponse à mon problème sur Internet et le Forum.

Il me faudrait, via VBA, la possibilité d’imprimer la totalité des pièces jointes d'un email :

C'est à dire, des fichiers zipper, des PDF, des Word, des Excel, des PNG etc...

Je pourrais imprimer ces pièces jointes manuellement en les ouvrants une par une, mais il y a une très grande quantité de fichier, et cela rend la tâche fastidieuse.

Merci par avance pour vos retours et pour votre aide

Salut à tous,

Je suis à la recherche d'un codage qui permettrai d'envoyer un message à plusieurs destinataires en ayant des pièces jointes différentes selon les destinataires.

j'ai trouvé ce tableau excel mais il est pas fonctionnel pour des pièces jointes différentes selon destinataire.

Pourriez m'aider?

PS: j'ai ajouter des colonnes avec les chemins des pièces jointes.

Je suis débutant en codage.

Merci d'avance

Bonjour à tous,

Je viens vous exposer mon problème mais je ne suis pas sur que ce soit facilement réalisable.

J'ai un logiciel qui me génère un certains nombre de fichiers spécifiques pour chaque destinataires et je dois leurs transmettre par mail par la suite.

Pour chaque destinataire il va me créer des fichiers différents (et pas forcement le même nombre) et me les déposer dans un dossier spécifique propre à chaque destinataire (Destinataire 1 ==> Dossier 1 ; Destinataire 2 ==> Dossier 2 ; Etc...).

Je cherche donc à automatiser un envoie de mail en créant quelque chose qui vienne d'un coté chercher l'adresse du destinataire dans une liste Excel, et qui en fonction du destinataire de cette liste, envoie ensuite l'ensemble des documents contenus dans le dossier correspondant à ce destinataire.

J'ai trouvé quelques petites choses qui s'approche de mon besoin mais rien qui soit capable de d'envoyer le contenu d'un dossier, peut importe le nombres de fichiers, et de passer au dossier suivant par la suite.

Si quelqu'un à une solution je suis grandement preneur!!

Merci d'avance,

Bonjour,

Dans un dossier j'ai une multitude de fichiers msg qui contiennent une ou plusieurs pièces-jointes qui sont des fichiers Excel.

Est-il possible de créer une macro pour :

(sous excel pas sous Outlook car je n'ai pas la possibilité d'écrire de macro sous Outlook (fonctions non activées sur mon poste)

1) Ouvrir chaque fichier msg sans avoir besoin d'indiquer le nom du fichier à ouvrir

2) Enregistrer la ou les pièces jointes qui se trouvent dans le fichier msg dans un dossier sur mon lecteur C (MESPIECES)

3) si la pièce jointe est un "doublon" d'un fichier excel déjà enregistré alors l'enregistrer tout de même mais avec la mention "Doublon x" (x étant le numéro du fichier doublon, par exemple s'il n'y a qu'un fichier doublon alors x serait égal à 1, par contre s'il y en a 4 on aurait Doublon 1, Doublon 2, Doublon 3, Doublon 4

Vous me rendriez un service énorme si c'était possible car j'ai plusieurs milliers de fichiers dans lesquels je dois récupérer toutes les pièces jointes.

Merci beaucoup.

Bonjour, avant tous les Meilleurs Vœux à tous.

J'ai presque fini mes codes userform pour plusieurs listes de diffusion avec un mailing avec une ou plusieurs pièces jointes.

Tous se passe dans l'UserForm6 qui récupère les infos de l'Userform(i) ouvert

Private Sub CommandButton3_Click()
    Dim MaMessagerie As Outlook.Application
    Dim MonMessage As Object
    Dim fichier As Variant
    Dim Sujet As String, LeDestinataire As String, msg As String, Réponse As String
    On Error Resume Next
    'vérification si Outlook est ouvert
    Set MaMessagerie = GetObject(, "Outlook.Application")
    If (Err.Number <> 0) Then    'si Outlook n'est pas ouvert, une instance est ouverte
        Err.Clear
        Set MaMessagerie = CreateObject("Outlook.Application")
    Else    'si Outlook est ouvert, l'instance existante est utilisée
        Set MaMessagerie = GetObject("Outlook.Application")
        MaMessagerie.Visible = True
    End If
    Set MaMessagerie = New Outlook.Application
    Set MonMessage = MaMessagerie.CreateItem(0)
    Set MonMessage = MaMessagerie.CreateItem(olMailItem)
    Réponse = MsgBox("Vous êtes sur le point d'envoyer un Email" & Chr(10) & _
                     "Voulez-vous continuer?", vbYesNo + vbExclamation, "Email")
    If Réponse = vbYes Then
        fichier = ThisWorkbook.Path & "\" & ThisWorkbook.Name   ' en attendant avant de le changer
        ' Extraction des données
        Sujet = TextBox4.Value     ' Objet
        LeDestinataire = TextBox3.Value    ' Destinataire référentiel
        ' Composition du message
        msg = TextBox5.Value & vbLf & vbLf        ' Corps du message
        msg = msg & TextBox6.Value & vbLf & vbLf        ' Formule de droit
        msg = msg & "Fait à " & TextBox7.Value & vbLf & ", le " & TextBox8.Value & vbLf & vbLf        ' Lieu et Date
        msg = msg & "Veuillez agréer, " & TextBox9.Value & ",  l'expression de mes sentiments respectueux." & vbLf & vbLf
        msg = msg & TextBox10.Value
        ' Création de l'élément de courrier et envoi
        fichier = UserForm6.LabelPieceJointe.Caption   ' Pièce Jointe
        If TextBox3.Value = "" Or TextBox4.Value = "" Then
            MsgBox "Vous devez choisir un nom et saisir un titre !"
            Exit Sub
            TextBox3.SetFocus
        End If
        On Error GoTo Erreur
        With MonMessage
            If LabelPieceJointe.Caption = "" Then
                .To = LeDestinataire    '  Destinataire
                .CC = Me.TextBox3.Value    '  Adresse Mail
                .Subject = Sujet     ' Objet
                .Body = msg    ' Corps du message
                .OriginatorDeliveryReportRequested = False    '  Recevoir un rapport de remise
                .ReadReceiptRequested = True    ' Confirmation de lecture
                Application.Wait Now + TimeValue("00:00:03")    ' Pause de 3 seçonde
                .Display    ' Aperçu du Mail avant envoi
                DoEvents
                .Send    ': SendKeys "^{ENTER}"
            Else
                .To = LeDestinataire    ' Destinataire
                .CC = Me.TextBox3.Value    ' Liste des adresse Mail
                .Subject = Sujet     ' Objet
                .Body = msg    ' Corps du message
                .Attachments.Add fichier   ' Pièce Jointe
                .OriginatorDeliveryReportRequested = False    ' Recevoir un rapport de remise
                .ReadReceiptRequested = True    ' Confirmation de lecture
                Application.Wait Now + TimeValue("00:00:03")    ' Pause de 3 seçonde
                .Display    ' Aperçu du Mail avant envoi
                DoEvents
                .Send    ': SendKeys "^{ENTER}"
            End If
            ThisWorkbook.Save
Erreur:
            Set MaMessagerie = Nothing
            Set MonMessage = Nothing
            On Error GoTo 0
            Err.Clear
        End With
        MsgBox "Message envoyé", vbInformation, "MESSAGE NOTIFICATION"
        If Réponse = vbNo Then Exit Sub
    End If
    Unload UserForm6
End Sub
'**** Correspond au programme du CommandButton4 "Pièce Jointe"  ****
Private Sub CommandButton4_Click()
    LabelPieceJointe.Caption = Application.GetOpenFilename("Tous,*.*", , "Fichiers ..., MultiSelect:=True")

Voici les dernières étapes où je peine à trouver

1 - Inserer et récuper la ou les pièces jointes dans le mail ( Je n'arrive pas à comprendre pour un envoi de plusieurs PJ)

2 - Vérifier si la pièce jointe est présente dans le mail sinon: msgbox "Attention il n'y a pas de pièce jointe" , vbYesNo + vbQuestion, "Voulez vous continuer?"

3 - Vérifier qu'un dossier "Archives des mails envoyés" est crée sinon le créer et y insérer toutes les pièces jointes envoyées

4 - Réviser tout le classeur afin de repérer les incohérences et les érreurs

Cordialement

Bonjours Mes très cher

Je voudrais avoir votre aide au sujet suivant : FAIRE UN MAILING AVEC PLUSIEURS PIECES JOINTES DE TOUS TYPES;

J'ai réalisé pour une pièce jointe mais je bloque en voulant réalisé sur plusieurs

Merci pour votre aide

Le fichier est en PJ

Bonjour,

Voici une macro qui permet d’envoyer un mail avec des pièces jointes.

Je veux mettre des destinataires en destinataire en CC (Copie Carbone) et Cci (Copie Carbone invisible). Cela ne fonctionne pas, tous sont en destinataires principales. Je ne vois pas ou peuvent se situer mes erreurs ?

D’une autre part, je voudrai ajouter des pièces jointes quel que soit l’extension du nom du fichier qui se trouve dans un dossier. Où faut-il que je modifie dans la macro ?

Merci de votre aide.

88mailpj.zip (15.48 Ko)

Bonjour,

malgré de multiple recherches, je n'arrive pas à trouver de solution à mon problème.

Je suis amené à envoyer un mails à 700 destinataires différents avec en pièce jointe, un fichier PDF propre à chaque destinataire.

Cette manipulation me prenant une journée, je souhaiterais automatiser cela.

Le lien entre les différents destinataire et leur fichier propre, est fait.

actuellement, j'ai les adresses mail en colonne A, et les liens vers les pièces jointes en colonne B.

Pouvez-vous, s'il vous plait, m'indiquer la marche à suivre ?

D'avance, merci.

Bonjour,

Je voudrais un code VBA permettant d'envoyer d'excel vers OUTLOOK un mail à plusieurs destinataires avec des pièces jointes différentes.

Pour ce faire sur une feuille :

colonne A les adresses mails

colonne B les pièces jointes en lien hypertexte

En recherchant sur le web j'ai trouvé ce code qui ne fonctionne pas, mais qui m'a l'air un bon début

Dim OlApp As Outlook.Application

Dim OlItem As Outlook.Application

Sub envoi()

Dim cel As Range, fc As String, admail As String

Dim responsable As String, messmail As String

responsable = "Toto"

'ci-dessous une feuille "adresses"

For Each cel In Sheets("adresses").Range("A2:a33") 'si les données (adresses mail et fichier à envoyer) sont en A et B

admail = cel.Value

fc = cel(1, 2).Value 'attention mettre chemin complet du fichier à envoyer

messmail = "Bonjour" & Chr(10) & "Ci-joint, le fichier" & Chr(10) & Chr(10) & responsable

'ci-dessous vérifier le chemin d'outlook

Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"""

Set ol = New Outlook.Application

Set olmail = ol.CreateItem(olMailItem)

With olmail

.To = admail

.Subject = "CHALETS A JOUR" 'Sujet

.Body = messmail 'Corps du mail

.Attachments.Add fc

.Display '.Send 'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)

End With

End sub

Il semble avoir problème de déclaration

Quelqu'un peut-il m'aider ?

Merci d'avance

Amicalement

Edit : en réfléchissant est-il aussi possible d'avoir un code qui permet de lister sur une feuille excel les liens hypertexte des fichiers contenus dans un répertoire. Ce qui m'aiderait à récupérer les liens et les affecter aux adresses mail correspondantes

bonjour.

Etant complément ignorant de l'encodage vba, j ai fini par trouver ce code permetant d'intégrer l'envoi de mailsur excel.

problème j arrive à envoyer un mail mais comment ajouter une pièce jointe et si possible le classeur sur lequel j ai inseré le bouton de macro.

merci pour votre aide

Sub SEND()
Const username = "nom@gmail.com"
Const password = "pass"

Dim objEmail, objConfig
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "nom@gmail.com"
objEmail.To = InputBox("destinataire")
objEmail.Subject = "subject"
objEmail.cc = "nom@gmail.com"

Do While Len(objEmail.TextBody) = 0
objEmail.TextBody = InputBox("Enter message:")
Loop

Set objConfig = objEmail.Configuration

objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = username
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
objConfig.Fields.Update

objEmail.SEND

Set objEmail = Nothing
Set objConfig = Nothing
End Sub

Bonjour tout le monde!

Je me suis lancé dans les macros excel il y a quelques semaines, je ne suis donc pas encore un pro des macros, c'est pourquoi j'aurais besoin de vos aides prècieuses pour m'aiguiller.

Voici ce que je veux faire et mon problème:

Je voudrais envoyer un mail automatiquement a plusieurs distinatiares en prenants les adresses mails dans un tableau (ca, ca marche sans soucis ) le problème vient quand je veux ajouter une piècces jointes. PLus prècisement, je voudrais ajouter une seule feuille d'un classeur... J'ai le code qui permet de faire ca, mais je n'arrive pas l'adapter dans mon code qui marche deja pour l'envoie aplusieurs personnes..

Si quelqu'un à une idée de comment faire je suis preneur.

Voici mon code qui envoie à plusieurs destinataires:

Sub test()

Dim OutApp As Object

Dim OutMail As Object

Dim cell As Range, x As Integer

Dim mesdestinataires As String

Application.ScreenUpdating = False

Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup

For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)

If cell.Value Like "?*@?*.?*" And _

LCase(Cells(cell.Row, "F").Value) = "oui" Then mesdestinataires = cell.Value & "; " & mesdestinataires

Next cell

x = Len(mesdestinataires) - 2

nbritem = Left(mesdestinataires, x)

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = mesdestinataires

.Subject = "Envoyer mail plusieurs destinataires"

.Body = "Test test test"

.Display

End With

On Error GoTo 0

Set OutMail = Nothing

cleanup:

Set OutApp = Nothing

Application.ScreenUpdating = True

End Sub

Macro pour envoyer une seul feuille:

Sub envoiMailEtFeuilleActive()

For sh = 1 To Sheets.Count

Sheets(sh).Select

ActiveSheet.Copy ' crée une copie de la feuille active

ActiveWorkbook.SendMail Recipients:=ActiveSheet.Range("a12").Value 'envoi Mail

Application.DisplayAlerts = False

ActiveWorkbook.Close ' supprime le classeur créé après l'envoi

Application.DisplayAlerts = True

Next

End Sub

Merci d'avance pour vos reponses

bonjour à tous,

J'ai un problème sur une macro j'ai besoin d'aide !!!

Je voudrais joindre une feuille de calcul (feuil2) à un mail et quelle apparaissent dans pièces jointes, est-ce possible?

Je vous join un fichier avec mon code et mes explications un peu plus détaillés.

Merci de votre aide !!!!

-- 06 Avr 2011, 20:49 --

Je vous aurez pausé une colle????

48joindre-page.zip (18.06 Ko)

Bonjour à tous les membres,

Je suis nouveau sur le forum, et je me permets également de m’adresser à vous en sollicitant vos compétences liées aux macros et au Visual Basic sous Excel.

En effet, travaillant quotidiennement et maitrisant un grand nombre des fonctionnalités d’Excel, la seule ombre au tableau se porte sur les macros et le Visual basic.

C’est pourquoi j’aimerai beaucoup apprendre et progresser dans ces derniers domaines en tentant de développer un petit script permettant d’assouvir ma curiosité, de compléter mes connaissances mais aussi de me faciliter la tâche au quotidien.

J’ai créé un tableau sous Excel que je nourri chaque jour afin de suivre et répertorier les devis que je rédige.

Mon objectif (s’il est réalisable) serait de :

  • Générer à partir des données contenues dans mon tableau un mail type sur Outlook du genre : Veuillez trouver ci-joint notre devis « numéro du devis » du « date du devis » … bonne réception etc. etc.
  • Insérer le devis au format PDF en pièce jointe dans le mail généré automatiquement
  • Pouvoir sélectionner dans Excel les devis à envoyer (par l’intermédiaire d’une case à cocher par exemple)
  • Et enfin nourrir les cellules « date d’envoi » automatique après envoi du mail.

Dans un premier temps sauriez-vous me dire si mon projet n’est pas trop « utopique » et, si celui-ci est réalisable par un débutant pourriez-vous m’accorder un peu de votre temps en m’orientant vers la marche à suivre ?

Je remercie d’avance les membres qui s’intéresseront à ma problématique.

Salutations

Bonjour le forum

Je sollicite vote aide pour une opération que j'aimerai réaliser.

En fait je reçois par mail chaque jour un rapport au format xls . Je souhaiterai a partir d'un code dans un autre fichier excel récupérer le fichier joint envoyé à la date du jour et l'enregistrer dans un répertoire précis sur le disque dur.

le rapport vient toujours de la même adresse

le rapport est nommée comme suit : rapport_21_06_2019

Merci d'avance pour votre aide.

Bonjour à tous,

dans le cadre de mon travail je dois coller une formule de la deuxième cellule de ma colonne à la 198'000 cellule de la même colonne. Je sais le faire en tirant la cellule ou en copiant dans toute la colonne. Mais je ne connais pas l'astuce pour la copier rapidement de la première cellule à la 198'000.

Est-ce que quelqu'un pourrait m'aider s'il vous plait?

merci beaucoup

Sylvie

Bonjour,

quelle est la taille maxi pour les pièces jointes?

Merci

Bonjour a tous

Je viens pour une premiere pub demander votre aide pour automatiser l'envoi d'un mail via outlook a partir d'excel.

J'aimerais, en cliquant sur un bouton envoyer un mail, a plusieurs personne avec 2 pieces jointe dispo sur mon disque dur et un corps de message.

En esperant avoir une proposition je vous souhaite bonne année 2019.

Bonjour,

Je viens vous demander de l'aide car je suis vraiment dans un cul de sac

J'ai fais (avec toute l'aide de nos amis des forums du net ) une macro qui lorsque je suis sur Excel, et suite à un clique sur un bouton, ouvre Outlook, colle une partie de mes cellules en image dans le corps du mail et rajoute aussi cette image en pièce jointe.

Je précise que j'ai tout fais sur Excel 2016. Hors lorsque je vais sur le PC de mon collègue, l'image qui devrait être en pièce jointe ne se met pas mais en plus se colle en dessous la première dans le corps du mail.

AIDEZ MOI SVP !!

Sub ENVOIDEMAIL()

If Worksheets("TOUS LES CLIENTS").[S13] = ("1") Or Worksheets("TOUS LES CLIENTS").[S13] = ("2") Then

Dim sh As Worksheet

Dim rng As Range

Dim chartobj As ChartObject

Dim output As String

Dim zoom_coef As Double

' référence sur la feuille qui contient la plage à exporter

Set sh = Worksheets("TOUS LES CLIENTS")

' le fichier image

output = "C:\Windows\Temp\" & "Flash info.jpg"

' el zoom

zoom_coef = 100 / sh.Parent.Windows(1).Zoom

' sélectionner la plage à exporter

Set rng = sh.Range("A1:M42").Cells

' copier dans le presse-papier

rng.CopyPicture xlPrinter

Set chartobj = sh.ChartObjects.Add(0, 0, rng.Width * zoom_coef, rng.Height * zoom_coef)

chartobj.Activate

chartobj.Chart.Paste

' exporter l'image

chartobj.Chart.Export output

' supprimer

chartobj.Delete

End If

If Worksheets("TOUS LES CLIENTS").[S13] = ("2") Then

Dim sh2 As Worksheet

Dim rng2 As Range

Dim chartobj2 As ChartObject

Dim output2 As String

Dim zoom_coef2 As Double

' référence sur la feuille qui contient la plage à exporter

Set sh2 = Worksheets("TOUS LES CLIENTS")

' le fichier image

output2 = "C:\Windows\Temp\" & "Flash info2.jpg"

' el zoom

zoom_coef2 = 100 / sh2.Parent.Windows(1).Zoom

' sélectionner la plage à exporter

Set rng2 = sh2.Range("A44:M85").Cells

' copier dans le presse-papier

rng2.CopyPicture xlPrinter

Set chartobj2 = sh2.ChartObjects.Add(0, 0, rng2.Width * zoom_coef2, rng2.Height * zoom_coef2)

chartobj2.Activate

chartobj2.Chart.Paste

' exporter l'image

chartobj2.Chart.Export output2

' supprimer

chartobj2.Delete

End If

If Worksheets("TOUS LES CLIENTS").[R11] = "Tous les clients" Then Worksheets("ADRESSES MAIL").[G2].AutoFilter field:=7, Criteria1:=Array("IMPAIRE", "PAIRE", "HEBDOMADAIRE"), Operator:=xlFilterValues Else If Worksheets("TOUS LES CLIENTS").[R11] = "Clients impaire" Then Worksheets("ADRESSES MAIL").[G2].AutoFilter field:=7, Criteria1:=Array("IMPAIRE"), Operator:=xlFilterValues Else If Worksheets("TOUS LES CLIENTS").[R11] = "Clients paire" Then Worksheets("ADRESSES MAIL").[G2].AutoFilter field:=7, Criteria1:=Array("PAIRE"), Operator:=xlFilterValues Else If Worksheets("TOUS LES CLIENTS").[R11] = "Clients mixte" Then Worksheets("ADRESSES MAIL").[G2].AutoFilter field:=7, Criteria1:=Array("HEBDOMADAIRE"), Operator:=xlFilterValues Else If Worksheets("TOUS LES CLIENTS").[R11] = "Interne" Then Worksheets("ADRESSES MAIL").[G2].AutoFilter field:=1, Criteria1:=Array("1"), Operator:=xlFilterValues

Dim Adresse As String

Dim i As Integer

Sheets("ADRESSES MAIL").Select

Columns("F:F").Select

Selection.Replace What:="xxx@gmail.com", Replacement:="", _

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _

False, ReplaceFormat:=False

Worksheets("ADRESSES MAIL").Activate

'Vérification du contenu de la cellule

Adresse = ""

For i = 2 To 2000

If Range("F" & i).Value <> "" And Not Range("F" & i).Rows.Hidden Then

Adresse = Adresse & Range("F" & i) & ";"

End If

Next i

'copie le résultat dans une autre feuille

Worksheets("TOUS LES CLIENTS").Activate

Cells(15, 23) = Adresse

If Worksheets("TOUS LES CLIENTS").[S13] = ("1") Or Worksheets("TOUS LES CLIENTS").[S13] = ("2") Then

Dim Img As String, Plage As Range, PathTmp As String

PathTmp = Environ$("temp") & "\"

Img = "Image.jpg"

Set Plage = Range("A1:M42")

'Création d'un fichier image dans le répertoire temporaire

Plage.CopyPicture

With ActiveSheet.ChartObjects.Add(0, 0, Plage.Width, Plage.Height)

.Activate

.Chart.Paste

.Chart.Export PathTmp & Img, "JPG"

End With

ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Delete

End If

If Worksheets("TOUS LES CLIENTS").[S13] = ("2") Then

Dim Img2 As String, Plage2 As Range, PathTmp2 As String

PathTmp2 = Environ$("temp") & "\"

Img2 = "Image2.jpg"

Set Plage2 = Range("A44:M85")

'Création d'un fichier image dans le répertoire temporaire

Plage2.CopyPicture

With ActiveSheet.ChartObjects.Add(0, 0, Plage2.Width, Plage2.Height)

.Activate

.Chart.Paste

.Chart.Export PathTmp2 & Img2, "JPG"

End With

ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Delete

End If

Set OutApp = CreateObject("outlook.application")

Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail

.To = Sheets("TOUS LES CLIENTS").[W15] & Sheets("TOUS LES CLIENTS").[W28]

'.CC =

'.BCC =

.Subject = "Flash info" & " " & Worksheets("TOUS LES CLIENTS").Range("S9")

If ActiveSheet.[S13] = 1 Then .Attachments.Add ("F:\1 - COMMERCIAL\FLASH INFO DEVIC\ENREGISTREMENTS\DEFINITIFS\" & Worksheets("TOUS LES CLIENTS").Range("S9") & ".jpg") Else If ActiveSheet.[S13] = 1 Or ActiveSheet.[S13] = 2 Then .Attachments.Add ("F:\1 - COMMERCIAL\FLASH INFO DEVIC\ENREGISTREMENTS\DEFINITIFS\" & Worksheets("TOUS LES CLIENTS").Range("S9") & ".jpg") And ("F:\1 - COMMERCIAL\FLASH INFO DEVIC\ENREGISTREMENTS\DEFINITIFS\" & Worksheets("TOUS LES CLIENTS").Range("S9") & " 2" & ".jpg")

If ActiveSheet.[S13] = 1 Then .Attachments.Add PathTmp & Img, olByValue, 0 Else If ActiveSheet.[S13] = 1 Or ActiveSheet.[S13] = 2 Then .Attachments.Add PathTmp & Img, olByValue, 0 And PathTmp2 & Img2, olByValue, 0

.HTMLBody = "<span LANG=FR><p class=style2>" _

& "<font FACE=Calibri SIZE=3>Bonjour,<br><br>" _

& "Veuillez trouver ci-dessous un flash info." _

& Format(JourJ, "dd/mm/yyyy") & "<br><br>" _

& "Salutations<br><br>" _

& "<img src='cid:" & Img & "'</font></span>" _

& "<img src='cid:" & Img2 & "'</font></span>"

.Display

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

Bonjour,

Tout d'abord merci de m'accueillir ici, Excel pour moi est un outil génial, mais, comme je pense une grosse partie des utilisateurs, je ne sais faire que le minimum "vital" de cet appli dingue.

Je vous expose mon problème:

Je travaille en support, nous préparons les révisions de nos clients, chaque machine possède une référence de kit de révision, utilisée une ou plusieurs fois selon la taille de la machine.

J'ai mis en place un tableau ou apparait pour chaque client les machines qu'il possède.

Je peux déjà ainsi savoir combien de kits je vais devoir commander globalement.

Maintenant j'aimerai pouvoir définir, sur une seconde feuille, pour chaque client, les références nécessaires de kits et leurs nombre, afin de pouvoir dispatcher au mieux chaque kit, et faciliter la vie de mes techniciens.

Vous trouverez un exemple plus parlant en bas de ce message.

Merci à vous pour votre aide!

Bonjour à tous

Je cherche a gerer mon stock de pieces détachées automobiles (filtres, plaquettes de ftreins) 1 cinquentaine de référence maximum, a l aide des codes barres apposé sur la boite du constructeur, y a t il une ame charitable qui serait pret a me donner un gros coup de main sur le sujet.

Dans l 'attente , merci

Recherches récentes

copier vide apparaissesuite tabulationtarget address plageformulaire ordre tabulation6068congecalcul conge payegraphesclassement tableauclassementremplacer passage ligneuserformsap guifiltre multicriterefiltre multicritere vbasalairesusfformulaire salairescondition datesomme date ligne