Discussion :

[DOMI71]

Bonjour

je suis pas un pro du developpement excel, mais j'ai reussi à mettre en place un petit macro relativement simple sous excel 2010 pour envoyer des mails via outlook en mettant dans le mail une copie d'un tableau excel.
Le code ci dessous fonctionne correctement sous XP par contre certains postes de l'entreprise sont passés sous windows 7 et la le code bloque sur ActiveWorkbook.EnvelopeVisible = True avec le message suivant :

Erreur d'executoin 1004 apparait avec le message : La méthode ‘EnvelopeVisible’ de l’objet ‘_Workbook’ a échoué

j'ai cherché sur le net une retour d'expérience mais sans succès

Si vous pouviez m'aider cela serait très sympa

merci de votre aide
DOMI71

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
Sheets("MAILCUR").Select
        ActiveSheet.Range("A1:N1").Select
        ActiveSheet.Range("A" & ligdeb & ":N" & ligfin & "").Select ' la plage de cellules à envoyer
        ActiveWorkbook.EnvelopeVisible = True
 
 
        With ActiveSheet.MailEnvelope
            .Introduction = "Bonjour" & Chr$(13) & Chr$(13) & _
            text2 & Chr$(13) & Chr$(13) & _
            text3 & Chr$(13) & Chr$(13) & _
            text4 & Chr$(13) & Chr$(13) & _
            text5 & Chr$(13) & Chr$(13) & _
            text6 & Chr$(13) & Chr$(13) & "Cordialement"
            .Item.To = Adresse1
            .Item.Subject = text1
            .Item.Send
        End With
        ActiveWorkbook.Save 'sauvegarde du fichier pour éviter le cumul de pièces attachées sur un même mail

[pgz]

Bonsoir.

Juste une idée : sur ces postes, Outlook est bien le gestionnaire de messagerie par défaut ?

Cordialement,

PGZ

[DOMI71]

Bonsoir
tous les postes sont par défaut avec Outlook

Par contre j'ai trouvé cette réponse sur un autre forum cela serait du à un passage XP à 32 bits à Win7 à 64 bits ?

est ce cela vous semble possible ?

en complément d'information les versions d'excel 2010 sont bien en 32 bits sur XP et Win7 seul Win7 est en 64 bits

donc le pb viendrait d'ailleurs ....

en mode débuggage la valeur affichée sur la variable ActiveWorkbook.EnvelopeVisible est lisible et reste bloqué à FALSE et ne passe pas à TRUE

merci de votre aide

Domi71

[DOMI71]

Finalement j'ai supprimer la ligne ActiveWorkbook.EnvelopeVisible = True, le fait de visualiser sur excel la struture du mail n'est pas nécessaire

le changement fonctionne sous XP mais toujours pas sous Win7

sous Win 7 le programme bloque à la ligne with activesheet.active enveloppe

avec le même type de message La méthode ‘MailEnvelope de l’objet’_Worksheet a échoué

merci de votre aide
Domi71

[DOMI71]

Bonjour

finaliement j'ai changé de fonction sur la génération de mail, je suis passé par outmail proposé sur ce lien http://www.rondebruin.nl/win/s1/outlook/bmail2.htm

est cela fonctionne très bien sous Win 7

Faute d'avoir corrigé ce bug j'ai trouvé une solution de contournement

merci à PGZ de m'avoir répondu

à Bientot

Domi71