Discussion :

[marinef]

Bonjour,

Sur mon fichier Excel j'ai créé un bouton pour envoyer un mail et voici ma macro:

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
'Générer un mail à envoyer
 
        'Déclaration des variables
        Dim Email1 As String, Subj1 As String
        Dim Msg1 As String, URL1 As String
 
        'On active la cellule où se situe le bouton
        Range(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address).Activate
 
        'Sujet du message
        Subj1 = "DT - " & Range("P2").Value & " - Rev. " & Range("Q2").Value
 
        'Creation du mail
        URL1 = "mailto:" & Email1 & "?cc=" & cc & "?subject=" & Subj1
 
        'Execuation du programme, on lance Lotus, Lotus doit être le programme par défault de la messagerie electronique
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
 
        'Fermer le fichier après l'enregistrement
        ActiveWorkbook.Save
        ActiveWorkbook.Close

Cependant lorsque j'exucute j'ai un message d'erreur me disant:

Erreur de compilation:
Sub ou Function non définie

avec "Shellexecute" surligné... qqun connait ce problème??

[Krovax]

Bonjour,
Cette erreur arrive parce que tu n'as pas définie la fonction ShellExecute
(là je me sent super utile )
Pour la définir essaye de mettre ceci en tête de module (pas testé je l'ai trouvé dans une discussion, je teste et j'édite mon message)

Code :

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

1
2
3
4
5
6
7
8
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Edit : ca a l'air bon comme déclaration mais j'ai pas vraiment la possibilité de creuser voici une discussion avec plusieurs lien interessant

[marinef]

Ca me dit:

erreur de compilation
seuls des commentaires peuvent apparaitrent apres End Sub, End Function ou End Property

[Krovax]

Il faut le mettre en toute première ligne d'un module

[marinef]

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
25
26
27
28
29
30
31
32
33
Sub Mail()
 
         'Générer un mail à envoyer
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
        'Déclaration des variables
        Dim Email1 As String, Subj1 As String
        Dim Msg1 As String, URL1 As String
 
        'On active la cellule où se situe le bouton
        Range(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Address).Activate
 
        'Sujet du message
        Subj1 = "DT - " & Range("P2").Value & " - Rev. " & Range("Q2").Value
 
        'Creation du mail
        URL1 = "mailto:" & Email1 & "?cc=" & cc & "?subject=" & Subj1
 
        'Execuation du programme, on lance Lotus, Lotus doit etre le programme par défault de la messagerie electronique
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
 
        'Fermer le fichier après l'enregistrement
        ActiveWorkbook.Save
        ActiveWorkbook.Close
 
End Sub

Ca ne marche pas...

[Krovax]

la premieère ligne dans ton code est

Code :

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

Sub Mail()

Tu doit mettre le code que je t'ai donné avant de commencer ta sub (en première ligne, vraiment la toute première du module
A la rigueur tu peux avoir

Code :

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

Option Explicit

Ou d'autre option avant mais c'est tout