Discussion :

[Noobisterie]

Bonjour.

Pour commencer je tenais à m'excuser si mon message n'est pas posté au bon endroit sur ce forum.

J'ai une problématique avec un code VBA (je n'y connaissais encore rien ce matin, excusez mon ignardise).

J'ai un document word ou excel que je veux envoyer à certaines personnes qui doivent me le retourner complété.

J'aimerai pouvoir ajouter à mon document un bouton qui permetterai aux destinataires du doc de ne pas avoir à sauvegarder leurs modifications sur le document et devoir ouvrir un nouveau mail et ajouter une pièce jointe.

Donc : Bouton => sauvegarde => ouverture outlook => nouveau mail avec destinataires / objet / texte pré remplis => ajout du formulaire modifié.

J'ai plus ou moins reussi à bricoler quelque chose en cherchant longuement (visiblement pas assez ) sur les différents forums.

Voici ce que ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Button1_Click()
 
    Dim mailApp As Outlook.Application
    Dim email As Mailitem
 
    Set mailApp = New Outlook.Application
    Set email = mailApp.createitem(olmailitem)
 
    ActiveDocument.SaveAs ("Book1.xlsm")
    With email
        .to = "mailto.mail@mailto.mail"
        .Subject = "Formulaire de visite"
        .body = "Veuillez trouver ci-joint le formulaire de visite"
        .attachments.Add "Book1.xlsm"
        .Display
        '.send
    End With
End Sub

Merci d'avance pour vos réponses.

[Oliv-]

Bonjour,


Je pense que tu as confondu dans ton code les objets WORD et EXCEL.

Tu peux essayer à partir d'EXCEL , comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Button1_Click()
 
    Dim mailApp As Outlook.Application
    Dim email As Mailitem
 
    Set mailApp = New Outlook.Application
    Set email = mailApp.createitem(olmailitem)
 
 Application.DisplayAlerts = False
 'il faut donner le chemin complet ici pour mettre dans le répertoire temporaire
 fichier = Environ("temp") & "\" & "Book1.xlsx"
 
'ici on renvoi un fichier excel sans les macros
     ActiveWorkbook.SaveAs fichier, xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    With email
        .to = "mail@mailto.mail"
        .Subject = "Formulaire de visite"
        .body = "Veuillez trouver ci-joint le formulaire de visite"
        .attachments.Add fichier
        .Display
        '.send
    End With
End Sub

[Noobisterie]

Bonjour et merci de m'apporter une réponse aussi rapidement !

J'essaie de lancer ce bout de code dans excel mais j'ai une erreur qui arrive : Compile error : User-defined type not defined. Le debug me dit que cela viendrai de la premiere ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sub Button1_Click()

[Oliv-]

et comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Button1_Click()
 
    Dim mailApp As Object
    Dim email As object
 
    Set mailApp = createobject(Outlook.Application)
    Set email = mailApp.createitem(0)
 
 Application.DisplayAlerts = False
 'il faut donner le chemin complet ici pour mettre dans le répertoire temporaire
 fichier = Environ("temp") & "\" & "Book1.xlsx"
 
'ici on renvoi un fichier excel sans les macros
     ActiveWorkbook.SaveAs fichier, xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    With email
        .to = "mail@mailto.mail"
        .Subject = "Formulaire de visite"
        .body = "Veuillez trouver ci-joint le formulaire de visite"
        .attachments.Add fichier
        .Display
        '.send
    End With
End Sub

[Noobisterie]

Alors ça va mieux au niveau de la premère ligne.

J'ai du rajouter Microsoft Outlook 14.0 Object Library dans les References.

il me ressort une erreur : Run-time error 429 : ActiveX component can't create object.

le debug me dit que c'est cette ligne ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set mailApp = CreateObject(Outlook.Application)

C'est la meme ligne qui m'avait fait rajouter Microsoft Outlook 14.0 Object Library dans les References.

[Oliv-]

oups
il faut mettre des guillemets

Set mailApp = createobject("Outlook.Application")

[Noobisterie]

Génial !

Merci pour la réactivité, vous me sauvez la vie.

Bonne journée !