aide a comprendre une macro

[angoul]

Bonjour

j'ai recuperer se code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 And Target.Offset(, 1).Value <= Date Then Call EnvoiMail
End Sub
si je comprend bien, on parle de la colonne 14 et de la date

j'aimerai modifier la fin a la place de la date mettre si on incrit quelque chose, alors envoi mail

mais comment le mettre en vba

Une autre question, j'ai recuperer une video sur le site de video2brain sur la programmation excel VBA, vous en pensez quoi pour debuter comme moi?

Merci de votre reponse

 

[Pierrot93]

Re : aide a comprendre une macro

Bonjour,

modifie peut être comme suit, si j'ai bien compris :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 And Target.Offset(, 1).Value = "ValeurDansCellule" Then Call EnvoiMail
End Sub

bon après midi
@+

 

[gosselien]

Re : aide a comprendre une macro

Bonjour,

ceci peut être (non testé)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 And Target.Offset(, 1).Value <>"" Then Call EnvoiMail
End Sub

 

[angoul]

Re : aide a comprendre une macro

merci de votre aide, mais helas cela fonctionne pas, avec les 2 proposotions
j'ai une erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 And Target.Offset(, 1).Value <> "" Then Call EnvoiMail
End Sub

voici le code complet que j'ai mis dans thisworkbook merci a JCGL pour le code
Sub EnvoiMail() Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


strbody = "<font size=""3"" face=""Calibri"">" & _
"Bonjour,<br><br>" & _
"La fichier<B> " & Cells(ActiveCell.Row, 3).Value & " </B>à etait révisée." & _
"<br><br>Cliquez sur ce lien pour ouvrir le fichier concerné : " & _
"<A HREF=""file://\\SERVEUR\Services\DCI\Service%20Informatique\Système%20et%20Réseau\Système\Documentation\" _
& """>ici</A>" & "<br><br>Cordialement," & _
"<br><br>merci</font>"


With OutMail
.To = "jcgl@xld.fr"
.CC = ""
.BCC = ""
.Subject = "Modification de fichier"
.HTMLBody = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Pierrot93]

Re : aide a comprendre une macro

Re,

voici le code complet que j'ai mis dans thisworkbook

perso placerais plutôt ce code dans un module standard... sur quelle ligne l'erreur ??

 

[angoul]

Re : aide a comprendre une macro

le code ou il y a l'erreur se trouve en rouge sur la premiere parti

tu me dit de placer le code dans un module standard ????

 

[Dranreb]

Re : aide a comprendre une macro

Bonjour.

Oui, Pierrot93 vous dit de mettre la procédure EnvoiMail dans un module standard.
Je répond à sa place, au cas où il n'aurait pas envie de se répéter.
Parce que déjà, dans un module objet comme ThisWorkbook, par défaut, une procédure est Private.
Et même si elle était précisée Public elle en deviendrait une méthode qui ne pourrait s'invoquer de l'extérieur que par ThisWorkbook.EnvoiMail.
Mais il n'y a pas de raison valable de faire ça.

 

[JCGL]

Re : aide a comprendre une macro

Bonjour à tous,

Merci de voir mon code originel et son placement : ICI

A+ à tous

 

[angoul]

Re : aide a comprendre une macro

Un Grand Grand merci pour votre aide et votre patience.
J'arrive pas a comprendre tous, il faut que je me trouve une formation lol

juste une derniere petite question peut ton inclur dans la formule le nom du fichier et de l'onglet actif?
j'ai vu que l'on peut le faire avec une cellule, mais je me demander si l'on pouvez le faire en direct.

Sub EnvoiMail() Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


strbody = "<font size=""3"" face=""Calibri"">" & _
"Bonjour,<br><br>" & _
"La fichier<B> " & Cells(ActiveCell.Row, 3).Value & " </B>à etait révisée." & Nom du fichier et de l'onglet actif??_
"<br><br>Cliquez sur ce lien pour ouvrir le fichier concerné : " & _
"<A HREF=""file://\\SERVEUR\Services\DCI\Service%20Informatique\Syst ème%20et%20Réseau\Système\Documentation\" _
& """>ici</A>" & "<br><br>Cordialement," & _
"<br><br>merci</font>"

 

[Pierrot93]

Re : aide a comprendre une macro

Bonjour à tous,

regarde ceci, devrait t'aider...

MsgBox ActiveWorkbook.FullName 'nom et chemin complet du fichier
MsgBox ActiveSheet.Name 'nom de l'onglet actif

bonne journée
@+

 

[angoul]

Re : aide a comprendre une macro

Merci de ta proposition, mais c'est pas ce que je recherche vraiment
j'aurait aimer quand dans le corps de mon mail, il renseigne le nom du fichier et le nom de l'onglet

 

[Pierrot93]

Re : aide a comprendre une macro

Re,

bah ... tu remplaces l'instruction concernant la cellule par ceci :

ActiveWorkbook.FullName & "!" & ActiveSheet.Name

 

[angoul]

Re : aide a comprendre une macro

Merci c'est super