VBA - ERROR 400 chez un autre mais pas chez moi

**Accessifiante** · 29/11/2013, 00h19

Bonjour tout le monde,

Pour aider un copain, je lui ai travaillé son fichier Excel de suivi des clients. Moi j'ai la version 2010, lui la 2007.

Dans son fichier, j'ai ajouté deux codes qui envoient des mails à deux occasions différentes. J'ai aussi ajouté une macro de tri selon les données de certaines cellules.

Problème constaté : chez moi, tout va bien. Ouvre, ferme, modifie, ajoute des données, envoie les courriels, hop ! ça gaze.

Chez lui : le fichier à fonctionné 2 jours. Le 3ème, fichier corrompu. J'ai renvoyé le fichier original, avec un autre nom. Ça marche deux jours, et maintenant ça ne marche plus du tout, il a "ERROR 400" chaque fois qu'il lance la macro pour envoyer un mail. J'ai envoyé un troisième fichier, il bug dès la première utilisation (et ne cherche même plus à fonctionner au moins une journée).

C'est son Excel ou c'est mon fichier qui a la jaunisse chez lui ?

Voici le code utilisé pour les mails (ils sont exactement pareils, il n'y a que l'objet et le texte qui changent - Le second s'appelle RenouvellementTest()) :

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
Sub AnniversaireTest()
' Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour," & _
              "<br><br>Texte de bon anniversaire !<br>" & _
              "<br>Blablalbalbalba" & _
              "<br><br>Avec mes meilleures salutations."
 
 
    On Error Resume Next
 
    With OutMail
        .Display
        .To = Cells(ActiveCell.Row, 26)
        '.CC = ""
        '.BCC = ""
        .Subject = "Une journée spéciale"
        .HTMLBody = "<HTML><BODY>" & strbody & "</BODY></HTML>" & "<br>" & .HTMLBody
        .Display
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Et voici le code de tri :

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
Sub Tri_OrangeTest()
'
' Affiche les lignes de couleur orange dans le haut du tableau
'
 
'
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add(Range( _
        "V7:V750"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 153, 51)
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("V7:V750"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
 
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
 
Sub Tri_BleuTest()
'
' Affiche les lignes bleues dans le haut du tableau
'
 
'
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add(Range( _
        "F7:F750"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(149, 179, 215)
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("F7:F750"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
 
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

avec dans la Feuil1, l'appel des macros de tris sur changement de valeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
 
   Tri_OrangeTest
 End If
 
 If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
 
   Tri_BleuTest
 End If
 
End Sub

Je précise que je ne suis pas programmeuse (ça doit se voir du reste !

) : je bidouille des codes glanés à droite et à gauche et je demande de l'aide sur ce forum quand ça coince. Par contre, j'aime comprendre ce que je fais alors si j'ai bidouillé un monstre, j'aimerais le savoir.

Je joins un fichier test, si des fois...

Merci !

**clementmarcotte** · 29/11/2013, 02h01

Bonjour,

J'ai téléchargé l'exemple, mais, j'ai Excel 2010. Je vais quand même essayer d'y jeter un oeil un peu plus tard, d'un coup...

Ceci dit, j'ai interrogé le moteur de recherche de MSDN. Il a bravement, théoriquement du moins, craché presque 4300 réponses:

http://social.msdn.microsoft.com/sea...0&addenglish=1

Invité · 29/11/2013, 13h20

dans vb outils->références regarde si il n'y a pas de librairies manquantes.

**parmi** · 29/11/2013, 15h07

.HTMLBody = "<HTML><BODY>" & strbody & "</BODY></HTML>" & "<br>" & .HTMLBody

Petite question en passant... pourquoi ajouter ceci ?

Code :

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

& "<br>" & .HTMLBody

**Accessifiante** · 29/11/2013, 18h22

Bonjour Clément, rdurupt et parmi,

Merci à tous les trois de vous pencher sur mon souci.

Clément, je vais éplucher le résultat des recherches et j'attends de vos nouvelles si des fois vous avez le temps de regarder mon exemple.

rdurupt : oui, toutes les librairies nécessaires sont activées.

Parmi : ce code vient du site de Ron de Bruin (http://www.rondebruin.nl/win/s1/outlook/signature.htm). Je ne suis pas très familière avec la mise en forme HTML alors j'ai recopié intégralement. L'avantage de ce code, c'est qu'il inclut la signature. À l'origine, le code était :

Code :

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

.HTMLBody = strbody & "<br>" & .HTMLBody

Cependant, j'avais des problèmes de taille de police dans le message Outlook : c'était du 8,5, par défaut, sans me demander mon avis. J'ai fait des recherches et j'ai juste ajouté les balises de format et j'ai pu obtenir un message avec une police 10 ou 11.

C'est bancal ?

Je précise pour vous trois que j'ai essayé de mettre un Errorhandler. De mon côté comme du sien, une fois la macro d'envoi du message exécutée, il y a une petite fenêtre dans Excel avec "0" et "OK".... ??

**parmi** · 29/11/2013, 21h59

Effectivement, cette partie ajoute bien la signature... merci...
Par contre, tu mets 2 .Display
Je ne pense pas que le 2e soit nécessaire et cause peut-être une erreur (?).

Lorsque je ne sais pas d'où provient une erreur j'utilise souvent ceci, mais ça ne fonctionnera pas pour les erreurs non traçables... Mais c'est souvent pratique quand il n'y a pas de possibilité de déboguer l'erreur...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MaSub
   On Error Goto Erreur
   .... code
 
   Exit Sub
Erreur:
   Msgbox Err.number & vbcrlf & err.Description
   Stop        'ici le code arrête et tu fais F8
   Resume   'un autre F8 et tu vas remonter à ta ligne d'erreur
End Sub

Et je mets les 2 dernières lignes en commentaire quand le code fonctionne bien

VBA - ERROR 400 chez un autre mais pas chez moi [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager