Erreur 91:

Fermé

RichardKas - 19 août 2019 à 13:59
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 19 août 2019 à 17:26

Bonjour,

Je vous joins un bout de code, j'ai toujours l'erreur 91 qui revient, j'ignore pourquoi:

Sub Macro1()
'Updated on 25/07/2018

Dim xMailBody As String
Dim obj As String
Dim c As Long
Dim xOutApp As Object
Dim xOutMail As Object
Dim car As Long

c = ActiveCell.Column
lign_selec = ActiveCell.Row
'If cells(1, c).Value <> "Subject of correspondance" Then
'MsgBox ("Veuillez selectionner la cellule contenant le référence complète")

With xOutMail
car = .cells(lign_selec, c - 13)
End With

Configuration: Windows / Chrome 76.0.3809.100

A voir également:

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
19 août 2019 à 14:54

Bonjour Richard, bonjour le forum,

Quand on a un message d'erreur il est bon de préciser sur quelle ligne il apparaît. Ça nous permet de mieux situer et comprendre l'erreur...

La variable lign_select n'est pas déclarée mais cela n'engendre pas de bug, c'est juste une remarque.
Je pense que le problème vient du point devant cells dans car = .cells(lign_select, C - 13) car on ne sait pas ce qu'est xOutMail
ou bien la variable c a une valeur inférieure ou égale à 13 et c'est c - 13 qui provoque l'erreur...

RichardKas
19 août 2019 à 15:53

l'erreur se trouve sur cette ligne: ==> sender = .cells(lign_selec, c - 13).Value

le code permet de générer un mail à partir d'un modèle de mail prédéfini. J'ai tout tenté mais je ne parviens pas à résoudre le pb.

Voici le code en entier:

Sub Creationmail()

Dim obj As String
Dim xMailBody As String
Dim c As Long
Dim sender As Long
Dim otlAppnewnew As Object
Dim otlNewMailnewnewnewnew As Object

c = ActiveCell.Column
lign_selec = ActiveCell.Row
If cells(1, c).Value <> "Subject of correspondance" Then
MsgBox ("Veuillez selectionner la cellule contenant le référence complète")

With otlAppnewnew
==> sender = .cells(lign_selec, c - 13).Value
End With
Else

On Error Resume Next
Set otlAppnewnew = CreateObject("Outlook.Application")

If sender = "Civil Works" Then
Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Civil works.oft")

If sender = "Mechanical Works" Then
Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Mechanical works.oft")

If sender = "Electrical Works" Then
Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Electrical works.oft")
If sender = "Engineering Multidiscipline Works" Then
Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Engineering Multidiscilpline works.oft")

End If
End If
'xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
obj = "AZ-OEP-COE-" & ActiveSheet.cells(lign_selec, c - 1).Value

With otlNewMailnewnewnewnew
.Bcc = vEmailsFromSpreadsheet '(set earlier on)
.Display
.Subject = obj
' .Body = xMailBody
.Display 'or use .Send

End With
End If
'otlAppnewnew.Quit
Set otlNewMailnewnewnewnew = Nothing
Set otlAppnewnew = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
19 août 2019 à 17:26

Re,

Plusieurs erreurs dans ton code. Comme je t'avais dit dans mon premier post, le point devant Cells dans

    With otlAppnewnew
        sender = .Cells(lign_selec, c - 13).Value
    End With

n'était acceptable que si la variable otlAppnewnew était on objet Worksheet et ce n'est pas le cas. Donc supprime le point.

Ensuite tu utilises With otlAppnewnew avant d'avoir défini cette variable ! Ça plante forcément. J'ai déplacé la ligne :

    Set otlAppnewnew = CreateObject("Outlook.Application")

au dessus du With...

J'ai repéré pas mal de If sans End If. Soit Le If... Then se trouvent sur la même ligne. Soit i faut utiliser des If...ElseIf...ElseIf...End If, soit un Select Case.

Tu as deux fois On Error Resume Next sans aucune gestion des erreurs!?... Ne t'étonne pas si le résultat est incongru.

Le code corrigé :

Sub Creationmail()

Dim obj As String
Dim xMailBody As String
Dim c As Long
Dim sender As Long
Dim otlAppnewnew As Object
Dim otlNewMailnewnewnewnew As Object

c = ActiveCell.Column
lign_selec = ActiveCell.Row
If Cells(1, c).Value <> "Subject of correspondance" Then
MsgBox ("Veuillez selectionner la cellule contenant le référence complète")
Set otlAppnewnew = CreateObject("Outlook.Application")
With otlAppnewnew
    sender = Cells(lign_selec, c - 13).Value
End With
Else
    On Error Resume Next
    If sender = "Civil Works" Then
        Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Civil works.oft")
        Select Case sender
            Case "Mechanical Works"
                Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Mechanical works.oft")
            Case "Electrical Works"
                Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Electrical works.oft")
            Case "Engineering Multidiscipline Works"
                Set otlNewMailnewnewnewnew = otlAppnewnew.CreateItemFromTemplate("\\atlas.edf.fr\CO\dpit-cit\200-Ligne-International.200\001-Commun.001\AZITO IV\10.0 LNTP NTP\2_LEVEL 2 Communications\4_Modèle de mails\ Communication between OEP_COE_Engineering Multidiscilpline works.oft")
        End Select
    'xMailBody = "Body content" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2"
    On Error Resume Next
    obj = "AZ-OEP-COE-" & ActiveSheet.Cells(lign_selec, c - 1).Value
    With otlNewMailnewnewnewnew
        .Bcc = vEmailsFromSpreadsheet '(set earlier on)
        .Display
        .Subject = obj
        ' .Body = xMailBody
        .Display 'or use .Send
    End With
End If
'otlAppnewnew.Quit
Set otlNewMailnewnewnewnew = Nothing
Set otlAppnewnew = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters