Bonjour
J ai écrit un petit bout de code qui permet d'envoyer une partie d'une liste excel (à savoir les lignes crée le jour ou l'on lance la macro)
De façon assez aléatoire, elle me renvoi l'erreur 91 "Variable objet ou variable de bloc with non definie" à la ligne en gras
Je dis aléatoire, parce que vendredi ca marchait, et ce matin, plouf, ca ne marche plus...
J ai cherché un peu partout mais je sèche... Est ce que quelqu'un aurait une idée?
Je prends toutes les pistes...
Merci beaucoup
J ai écrit un petit bout de code qui permet d'envoyer une partie d'une liste excel (à savoir les lignes crée le jour ou l'on lance la macro)
De façon assez aléatoire, elle me renvoi l'erreur 91 "Variable objet ou variable de bloc with non definie" à la ligne en gras
Je dis aléatoire, parce que vendredi ca marchait, et ce matin, plouf, ca ne marche plus...
J ai cherché un peu partout mais je sèche... Est ce que quelqu'un aurait une idée?
Je prends toutes les pistes...
Merci beaucoup
Private Sub envoi_Click()
Application.ScreenUpdating = False
Dim PremLigne As Long
Dim DernLigne As Long
PremLigne = Columns(1).Find(Date - 1, , , , xlByColumns, xlPrevious).Row + 1 DernLigne = Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("B" & PremLigne & ":H" & DernLigne).Select
ActiveWorkbook.EnvelopeVisible = True
Email = "toto@titi.fr;"
With ActiveSheet.MailEnvelope
' .Introdution = ""
.Item.To = Email
.Item.Subject = "email " & Date
.Item.Send
End With
Application.ScreenUpdating = True
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = False
Dim PremLigne As Long
Dim DernLigne As Long
PremLigne = Columns(1).Find(Date - 1, , , , xlByColumns, xlPrevious).Row + 1 DernLigne = Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("B" & PremLigne & ":H" & DernLigne).Select
ActiveWorkbook.EnvelopeVisible = True
Email = "toto@titi.fr;"
With ActiveSheet.MailEnvelope
' .Introdution = ""
.Item.To = Email
.Item.Subject = "email " & Date
.Item.Send
End With
Application.ScreenUpdating = True
ActiveWorkbook.Save
ActiveWorkbook.Close