Discussion :

[3688marie]

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 :

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
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 :

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

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

par

Code :

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

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

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

Code :

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

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

par

Code :

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

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 :

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

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,

[AlainTech]

Bonjour,

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

Code :

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

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

par

Code :

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

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.

[3688marie]

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,

[3688marie]

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 :

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

If cel.Offset(0, 2) Then

Je pensais que mon Shell d'Outlook

Code :

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

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 :

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

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

et

Code :

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

Set ol = New Outlook.Application

par:

Code :

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

1
2
Dim MonOutlook As Object
Dim MonMessage As Object

et

Code :

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

 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,

[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...)

[3688marie]

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

Code :

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

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,

[SfJ5Rpw8]

sur qu'elle ligne le curseur (jaune) au moment de l'erreur ?

[3688marie]

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

Code :

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

"""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,

[Theze]

Bonjour tout le monde,

Avec :

Set ol = MonOutlook = CreateObject(outlook.Application)

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

Code :

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

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 ?

"""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é.

[3688marie]

Bonjour à tous,
Que j'écrive :

Code :

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

Set ol = CreateObject(outlook.Application)

ou

Code :

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

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 :

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

"""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

[3688marie]

Bonjour à tous,
Que je mette

Code :

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

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 :

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

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

[3688marie]

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

Code :

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

Set MonOutlook = CreateObject("outlook.Application")

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

Code :

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

Set olmail = ol.CreateItem(olMailItem)

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

[Theze]

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 :

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
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é.

[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

[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 :

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

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

Par :

Code :

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

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 :

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

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

Par seulement :

Code :

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

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

[Theze]

Re,

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)

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 :

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

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é.

[3688marie]

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