Discussion :

[Begood18]

Bonjour à tous,

J'ai fait un tout petit script en Visual Basic (v6.5) sur Excel 2003 qui me permet d'ouvrir un mail avec l'outil de messagerie présent sur la machine et qui positionne l'adresse mail du destinataire, qui positionne un objet spécifique et qui ajoute le fichier Excel de travail en pièce jointe.
Ma fonction est appelée par un boutton qui est présent sur feuillet Excel.

Cette macro fonctionne parfaitement sur Excel 2003. Par contre, j'ai des utilisateurs en Excel 2010. Lorsqu'ils cliquent sur le bouton en question, ils ont un message d'erreur (voir pièce jointe)

Voici mon script :
=========================================================

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
Sub EnvoiMail()
 
 
        vmail = "videoconferencing1.support@orange.com"
        vsubject = "Alstom - Urgent Request - Telepresence to Telepresence - Meeting Request "
 
 
Select Case Application.MailSystem
    Case xlNoMailSystem
        MsgBox "No mail system installed"
 
    Case Else
        Application.Dialogs.Item(xlDialogSendMail).Show arg1:=vmail, arg2:=vsubject, arg3:=True
            'arg1: Recipients
            'arg2: Subject
            'arg3: ReturnReceipt
 
End Select
 
 
End Sub

=======================================================


Merci d'avance pour votre aide.

Bonne journée à tous.

David

[Daniel.C]

Bonjour,

Je viens d'exécuter la macro avec Excel 2013 sans problème. Le "hidden module" me laisse penser qu'une macro complémentaire est impliquée. Est-ce que ton code fait partie d'une telle macro ? Peux-tu l'exécuter ligne à ligne pour voir quelle ligne provoque l'erreur ?

[Begood18]

Bnjour Daniel,

Merci pour ton retour.

Le code que j'ai collé fait partie d'un Module.
Dans les Microsoft Excel Objets, j'ai Feuil1 qui execute la commande suivante :

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    Call EnvoiMail
End Sub

Voir scrennshot

[Daniel.C]

Peux-tu exécuter la macro ligne à ligne sur un Excel 2010 pour voir quelle ligne provoque l'erreur ?

[Begood18]

En pièce jointe "DavidL2.png", le résultat de l'excution de la macro.

Cordialement,

David

[Invité]

Bonjour,
La macro a-t-elle déjà fonctionné ?
Si oui exécutes-tu la macro sur la même machine ?
Si non la machine dispose-t-elle du même OS (XP par exemple)
Si non windows7 64 bits ?
Si oui voire http://www.developpez.net/forums/d13...l/#post7158281