Bonjour!
Tout d'abord, je voudrais dire un gros merci à tous ceux qui font vivre ce forum qui m'a permis de développer des fichiers Excel très pratiques en adaptant des bouts de codes glanés ici et là et en suivant vos conseils...
J'ai une macro attaché à un bouton sur une feuille qui envoie une copie d'un onglet par courriel. Je voudrais mettre une condition dans la macro pour que si certains noms apparaissent dans la case I1, le courriel est envoyé à une personne, sinon, ça s'en va à une autre adresse.
Voici mon code:
Lorsque j'exécute la macro, il me retourne un message d'erreur de compilation: "Bloc If sans End If" en surlignant "End Sub"... J'avoue que j'y perds mon VBA...
Est-ce que quelqu'un saurait me dire où j'ai faussé? Merci!!!
Je vous souhaite un très joyeux temps des fêtes, pleins d'amour, de sucreries et de sourires!
Tout d'abord, je voudrais dire un gros merci à tous ceux qui font vivre ce forum qui m'a permis de développer des fichiers Excel très pratiques en adaptant des bouts de codes glanés ici et là et en suivant vos conseils...
J'ai une macro attaché à un bouton sur une feuille qui envoie une copie d'un onglet par courriel. Je voudrais mettre une condition dans la macro pour que si certains noms apparaissent dans la case I1, le courriel est envoyé à une personne, sinon, ça s'en va à une autre adresse.
Voici mon code:
HTML:
Private Sub CommandButton3_Click()
ThisWorkbook.Sheets("Permis d'absence").Copy
ActiveWorkbook.SaveAs "\\quebec3\formation\SERVICE DE FORMATION\RESS. HUMAINES\Feuille de temps.xls"
If Range("I1") = "Froehlich" Or "Perreault" Or "Prévost" Or "Wells" Then
ActiveWorkbook.SendMail "isousa@caaquebec.com"
Else
If Range("I1") = other Then
ActiveWorkbook.SendMail "mbrousseau@caaquebec.com"
End If
MsgBox "Le message est envoyé"
ActiveWorkbook.Close False
Kill "\\quebec3\formation\SERVICE DE FORMATION\RESS. HUMAINES\Feuille de temps.xls"
End Sub
Lorsque j'exécute la macro, il me retourne un message d'erreur de compilation: "Bloc If sans End If" en surlignant "End Sub"... J'avoue que j'y perds mon VBA...
Est-ce que quelqu'un saurait me dire où j'ai faussé? Merci!!!
Je vous souhaite un très joyeux temps des fêtes, pleins d'amour, de sucreries et de sourires!