Changer de version pour Macro

Version imprimable

Bonjour à tous, Bonjour le Forum,
Grâce à vous j'ai finalisé un dossier qui fonctionne parfaitement bien sur mon ordinateur personnel.
Ce dossier permet d’envoyer depuis mon tableau Excel, un mail aux personnes concernées, 3 mois avant l’échéance d’un prêt.
Maintenant je souhaiterais le transférer sur mon ordinateur professionnel.
Pas très compliqué me direz-vous et c'est chose faite.
Seulement cette macro a été créée sous Windows 7, Excel 2010, Outlook 2007.
Mon ordinateur professionnel est sous Windows XP, Excel 2003, Outlook 2003 et nous utilisons Microsoft Exchange Server ainsi qu’un VPN.
Tout cela me complique énormément la correction des codes et j’ai beau chercher, je ne trouve pas de solutions.
Auriez-vous l’a gentillesse de m’éclaircir ?
Il était écrit sur mon ordi perso :
Code:

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 34 Private Sub Workbook_Open() Dim ol As New Outlook.Application Dim olmail As MailItem, plage As Range Dim admail As String, cel As Range, j As Long, derlg As Long Dim messmail As String, secours As String, mess As String With Sheets("feuil1") derlg = .Range("A" & .Rows.Count).End(xlUp).Row Set plage = .Range("D2:D" & derlg) For Each cel In plage If cel.Offset(0, 2) = "Vrai" Then mess = MsgBox("la " & .Range("E1").Value & " est au : " & cel.Offset(0, 1).Value & Chr(10) & Chr(10) _ & "Voulez-vous envoyer la relance?", vbOKCancel) If mess = 1 Then admail = InputBox("destinataire", , cel.Offset(0, 3).Value) On Error Resume Next Shell """C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE""" Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) messmail = "XXX," & Chr(10) & Chr(10) & "XXXXXXX " & cel.Offset(0, -1).Value & Chr(9) & cel.Offset(0, -2).Value & ", XXXXXXX " & cel.Offset(0, 1).Value _ & "." & Chr(10) & Chr(10) & "XXXXXXXX" & Chr(10) & Chr(10) & "XXXXXXXXX," _ & Chr(10) & Chr(10) & Chr(10) & "Lucy" With olmail .To = admail .Subject = "Info. Return loan order" .Body = messmail .Send End With On Error GoTo 0 End If Else End If Next cel End With End Sub
Sur mon ordinateur professionnel j'ai changé :

Code:

If cel.Offset(0, 2) = "Vrai" Then

par

Code:

If cel.Offset(0, 2) = "True" Then

Car mon tableau Excel se met automatiquement en anglais puisque c'est une formule!
Ainsi que :

Code:

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

par

Code:

Shell """C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"""

J'espère que vous comprenez ce que je souhaite faire.
je pense que les codes a changer se trouvent ici :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_Open() Dim ol As New Outlook.Application Dim olmail As MailItem, plage As Range Dim admail As String, cel As Range, j As Long, derlg As Long Dim messmail As String, secours As String, mess As String With Sheets("feuil1") derlg = .Range("A" & .Rows.Count).End(xlUp).Row Set plage = .Range("D2:D" & derlg) For Each cel In plage If cel.Offset(0, 2) = "Vrai" Then mess = MsgBox
Faut-il utiser "MAPIFolder ou autre chose.
Comment passer par Microsoft Exchange Server?
Je vous remercie de votre attention et vous souhaite une très bonne soirée.
Cordialement,

10/07/2011, 12h25
AlainTech

Bonjour,

Sans avoir analysé tout le code, tu peux déjà remplacer

Code:

If cel.Offset(0, 2) = "Vrai" Then

par

Code:

If cel.Offset(0, 2) Then

En effet, une cellule contenant une valeur booléenne renvoie True ou False, ce que est interprété directement par le If et ce, quelle que soit la langue.

De plus, je ne crois pas que ton Shell d'Outlook soit utile.

Pour la suite, il serait bon de nous dire où tu as des erreurs et lesquelles.
10/07/2011, 17h56
3688marie

Changer de version pour Macro

Bonjour Alain, Bonjour le Forum,
Merci pour ta réponse concernant cette programmation.
Je me suis certainement mal exprimée lors de ma demande précédente aussi je vais essayer d’être plus explicite et peut être de repartir à zéro.
Je reviens vers vous au plus vite car j'ai un problème sur mon Tableau Excel et la fonction MOIS.DECALER en anglais que je cherche à résoudre.
Cordialement,
10/07/2011, 19h56
3688marie

1 pièce(s) jointe(s)

Changer de version pour Macro
Bonsoir Le Forum, Bonsoir Alain,
J’ai modifié mon tableau Excel sur mon ordinateur Professionnel qui est sous Windows XP et Microsoft Office Pro 2003.
J’ai modifié ce qu’Alain m’avait dit lors de son précèdent message, c'est à dire :

Code:

If cel.Offset(0, 2) Then

Je pensais que mon Shell d'Outlook

Code:

Shell """C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE""" / M

me permettait d'appeler Microsoft Outlook pour envoyer les mails. Je l'ai retiré et cela ne change rien.
Par contre j'ai modifié les deux premières lignes de la formule :
Code:

1 2 Dim ol As New Outlook.Application Dim olmail As MailItem, plage As Range
et

Code:

Set ol = New Outlook.Application

par:
Code:

1 2 Dim MonOutlook As Object Dim MonMessage As Object
et

Code:

Set ol = MonOutlook = CreateObject(outlook.Application)

Donc lorsque je lance le dossier tout semble fonctionner :
Sur mon tableau Excel une petite fenêtre m'informe que la date d’échéance arrive et me demande si je veux envoyer une relance. Je clique sur OK et une autre fenêtre m'indique la boite mail du destinataire que je dois informer. Je clique sur OK et là plus rien.
C'est à dire que le mail ne part pas (même si Outlook est ouvert avec Cisco AnnyConnect VPN Client) et donc mon destinataire ne reçoit rien.
Effectivement sur mon ordinateur Pro je passe par un VPN pour envoyer mes mail.
Je travaille à la maison et ce même ordinateur est relié à mon Fournisseur d'accès qui est Numéricâble.
Cette première macro fonctionnait parfaitement bien avec mon ordinateur personnel (Windows7, Microsoft Outlook 2007, excel 2010) seulement je ne peux pas envoyer ces relances avec mon adresse mail perso.
Je pense que je n'appelle pas Microsoft Outlook correctement puisque je passe par VPN!
Merci beaucoup pour votre aide, je joins mon fichier à ce message.
Je vous souhaite une très bonne soirée.,
Cordialement,
10/07/2011, 22h43
SfJ5Rpw8

Bonsoir,

essai d'enlever ton On Error Resume Nextpour avoir peu être un message d'erreur plus parlant... (soit dit en passant utiliser cette instruction sans tester ensuite l'erreur grâce à l'objet Err .. n'est pas c'est un peu comme fermer les yeux et foncer tout droit...)
10/07/2011, 23h34
3688marie

Changer de version pour Macro

Bonsoir,
Merci pour votre réponse, j'ai supprimé:

Code:

On Error Resume Next

Excel me demande si je veux envoyer ma première relance, je clique sur OK et j’obtiens Run-time error '13' Type mismatch. si je comprends bien cette erreur correspond à une incompatibilité de type, mais je vois vraiment pas où ni quel type!
Je vais chercher plus loin et tenter de l’éloigner.
Si vous avez une idée, je vous serais reconnaissante de bien vouloir m’éclairer. Mais il se fait tard et je vais éteindre mes écrans.
Merci et très bonne soirée,
10/07/2011, 23h48
SfJ5Rpw8

sur qu'elle ligne le curseur (jaune) au moment de l'erreur ?
11/07/2011, 09h25
3688marie

Bonjour,
le curseur (jaune) se trouve sur la ligne

Code:

"""C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"""

Si je supprime cette ligne, j'obtiens une erreur 91 sur la ligne suivante.
Merci, je continue à regarder.
Bonne journée,
11/07/2011, 15h47
Theze
Bonjour tout le monde,

Avec :

Citation:

Set ol = MonOutlook = CreateObject(outlook.Application)

qui, soit dit en passant, devrait être écrit de cette façon :
Code:

1 2 3 4 5 Set MonOutlook = CreateObject(outlook.Application) 'ou Set ol = CreateObject(outlook.Application) 'selon la variable voulue
tu crée une relation tardive avec Outlook alors pourquoi utiliser ?

Citation:

"""C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"""

Une fois ta relation établie, il te faut utiliser les méthodes et propriétés d'Outlook.

Hervé.
11/07/2011, 18h32
3688marie

Changer de version pour Macro

Bonjour à tous,
Que j'écrive :

Code:

Set ol = CreateObject(outlook.Application)

ou

Code:

Set MonOutlook = CreateObject(outlook.Application)

J'ai l'erreur 424 et le curseur jaune se place face à ces codes.
Je ne comprends pas pourquoi je dois supprimer :

Code:

"""C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"""

.
Je relis calmement et regarde comment procéder sur plusieurs dossiers en ajoutant et supprimant point par point tout ce que vous m'avez dit.
Cordialement,
Marie
13/07/2011, 17h53
3688marie

Changer de version pour Macro
Bonjour à tous,
Que je mette
Code:

1 2 3 4 5 Set MonOutlook = CreateObject(outlook.Application) 'ou Set ol = CreateObject(outlook.Application ou Set ol = MonOutlook = CreateObject(outlook.Application)
Je bloque et n'arrive pas à déboguer...Le curseur jaune est toujours face à ces lignes!
Le fait d'ajouter

Code:

Shell """C:\Program Files\Microsoft Office\Office11\outlook.exe"""

Appelle ma boite Microsoft Outlook, ce qui me semble normale pour envoyer un mail lorsque la colonne F est vraie.
Je souhaiterais que vous puissiez m'aider car je ne vois plus comment faire!
Merci à vous tous.
Cordialement,
Marie
13/07/2011, 18h42
3688marie

Changer de version pour Macro

Bonsoir le forum,
Déjà, j'ai mis des guillemets aux différents codes proposés par Theze

Code:

Set MonOutlook = CreateObject("outlook.Application")

, j'aurais du faire attention.
Ceci m'envoie à la ligne suivante :

Code:

Set olmail = ol.CreateItem(olMailItem)

Il y a réellement une incompatibilité que je vais continuer à chercher...
Bon Week End,

Bonjour,

Je me suis un peu penché sur ton problème et j'ai modifié ton code qui marche très bien chez moi (Office 2007), teste et reviens. Je pars en vacances demain donc connexion à internet plus difficile mais je tâcherai de lire tes réponses :

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub Workbook_Open()
 
    Dim AppOutlook As Object
    Dim MailOutlook As Object
    Dim Plage As Range
    Dim Cel As Range
    Dim Adresse As String
    Dim Corps As String
    Dim Retour As VbMsgBoxResult
    Dim I As Integer
 
    With Sheets("feuil1")
 
        Set Plage = .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
        Set AppOutlook = CreateObject("Outlook.Application")
 
        For Each Cel In Plage
 
            If Cel.Offset(0, 2) = "Vrai" Then
 
                Retour = MsgBox("la " & _
                                .Range("E1").Value & _
                                " est au : " & _
                                Cel.Offset(0, 1).Value & _
                                Chr(10) & _
                                Chr(10) & _
                                "Voulez-vous envoyer la relance?", vbOKCancel)
 
                If Retour = vbOK Then
 
                    Adresse = InputBox("Destinataire", , Cel.Offset(0, 3).Value)
 
                    Set MailOutlook = AppOutlook.CreateItem(0)
                    I = I + 1
                    Corps = "Contenu du corps numéro " & I
 
                    With MailOutlook
                        .Subject = "Info. Return loan order"
                        .To = Adresse
                        .Body = Corps
                        .Send
                    End With
 
                End If
 
            End If
 
        Next Cel
 
    End With
 
    Set AppOutlook = Nothing
    Set MailOutlook = Nothing

Hervé.

Re,

Bien évidemment, tu dois adapter au niveau du corps (modif pour tests)

Hervé.

14/07/2011, 10h42
3688marie

Bonjour,
Je teste de suite et te tiens au courant.
Mon souci est que mon ordinateur professionnel est sous Office Pro 2003.
Merci pour ton aide,
Marie

Re Hervé,
J'ai testé exactement ce que tu m'as envoyé, et là plus rien.
Pas de bug mais pas d'envoi non plus.
Je regarde encore,
Marie
14/07/2011, 12h37
3688marie
Hervé,
Voilà, j'ai enfin trouvé et je voulais sincèrement te remercier.
Dans ce que tu m'as envoyé, j'ai modifié :

Code:

If Cel.Offset(0, 2) = "Vrai" Then

Par :

Code:

If Cel.Offset(0, 2) Then

et tout marche.

Juste une petite question : Pourquoi Outlook me demande :
"A program is trying to automatically send e-mail on your behalf. Do you want to allow this..." Ceci est-il important ou pas?
Enfin encore merci.
Je te souhaite de très bonnes vacances et espère te revoir un jour sur ce super forum...que je remercie aussi!
Cordialement,
Marie

Hervé,
Désolée mais avant de mettre résolu, je voulais te dire que j'avais aussi modifié :
Code:

1 2 I = I + 1 Corps = "Contenu du corps numéro " & I
Par seulement :

Code:

Corps = "Contenu du corps numéro "

en effet ma signature était Marie1 pour me 1er mail, Marie2 pour le 2ème, etc etc...
Je suis réellement ravie, alors encore merci!
Marie

Re,

Citation:

Juste une petite question : Pourquoi Outlook me demande :
"A program is trying to automatically send e-mail on your behalf. Do you want to allow this..." Ceci est-il important ou pas?
Enfin encore merci.

Ce message vient de Windows car comme Outlook n'ai pas visible, il te prévient qu'un programme veut envoyer un message peut être à ton insu, regarde dans les paramètres de Windows (là, je ne sais pas trop où chercher)

Citation:

Désolée mais avant de mettre résolu, je voulais te dire que j'avais aussi modifié :
I = I + 1
Corps = "Contenu du corps numéro " & I

Par seulement :
Corps = "Contenu du corps numéro "

Mon post suivant te disait justement de modifier le corps des messages, j'avais viré toute la construction que tu avais faite :
Code:

1 2 3 4 messmail = "XXX," & Chr(10) & Chr(10) & "XXXXXXX " & cel.Offset(0, -1).Value & Chr(9) & cel.Offset(0, -2).Value & ", XXXXXXX " & cel.Offset(0, 1).Value _ & "." & Chr(10) & Chr(10) & "XXXXXXXX" & Chr(10) & Chr(10) & "XXXXXXXXX," _ & Chr(10) & Chr(10) & Chr(10) & "Lucy"
pour simplifier mais tu peux la remettre

Hervé.

14/07/2011, 13h38
3688marie

Changer de version pour Macro

Re,
Merci, je regarde sous Windows XP et mettrai la réponse sur le Forum.
Sinon pour le reste pas de problème tout fonctionne!
J'ai rajouté des Cc. et Cci.
Et j'ai changé ma signature perso par la pro qui contient un certain nombre d'informations.
Tout va bien, encore merci
Cordialement,
Marie