Création alerte si modification d'un fichier

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #2

Re : Création alerte si modification d'un fichier

Bonjour,

Je viens de récupérer un code similaire pour un projet. Essaye d'adapter ce code à ton cas et place le dans la procédure de fermeture de ton classeur :

Code:

Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = [COLOR="red"]Adresse smtp de ton serveur mail sortant[/COLOR]
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

        Set iMsg = CreateObject("CDO.Message")
        
        With iMsg
            Set .Configuration = iConf
            .To = [COLOR="Red"]Adresse du destinataire[/COLOR]
            .From = [COLOR="red"]Adresse de l'expéditeur[/COLOR]
            .Subject = [COLOR="red"]Sujet du mail[/COLOR]
            .TextBody = [COLOR="red"]Le message que tu veux transmettre[/COLOR]
            .Send
        End With
        
        Set iMsg = Nothing

Bonne journée

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #3

Re : Création alerte si modification d'un fichier

Merci pour ta réponse, je vais essayer tout cela....

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #4

Re : Création alerte si modification d'un fichier

De rien !
Hésite pas à me demander si tu as un problème.

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #5

Re : Création alerte si modification d'un fichier

Justement alors je ne vais pas hésiter...

J'utilise Outlook, saurais tu ou trouver l'info pour
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ???

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #6

Re : Création alerte si modification d'un fichier

je pense avoir trouvé....par contre hihi nouvelle question :

Lorsque je rentre mon adresse mail celle-ci reste en rouge, sais tu pk ? stp


With iMsg
Set .Configuration = iConf
.To = moceks@hager.fr

....

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #7

Re : Création alerte si modification d'un fichier

1) Pour l'adresse STMP : Tu dois avoir ça dans la configuration de ton compte de messagerie.

2) Vba traite l'adresse comme du texte donc place la entre guillemets ("").

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #8

Re : Création alerte si modification d'un fichier

2 ) Oui entre temps j'ai allumé mon cerveau...
Const MailTo As String = "Moceks@hager.fr"

1 ) je suis sur un réseau d'entreprise exchange...et je ne trouve pas

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #9

Re : Création alerte si modification d'un fichier

1 ) .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = OBESMSX01.fra.hager.corp

J'ai cela dans ma messagerie mais cela ne fonctionne pas

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #10

Re : Création alerte si modification d'un fichier

A tout hasard, essaye de remplacer ça par :

Code:

serveur-smtp-exchange

Trouvé sur le net en 2sec alors pas vraiment sur du résultat.

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #11

Re : Création alerte si modification d'un fichier

Cela a l'air de fonctionner ....
Le code est bloqué à :

.Send

Une idée ?
Je cherche de mon cote également

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #12

Re : Création alerte si modification d'un fichier

Ci-joint le fichier avec le code insérer à la fermeture du classeur...
Par contre rien ne se passe...chez moi

 

Pièces jointes

• Classeur1.xls

  22.5 KB · Affichages: 271
• Classeur1.xls

  22.5 KB · Affichages: 305
• Classeur1.xls

  22.5 KB · Affichages: 299

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #13

Re : Création alerte si modification d'un fichier

Une seule idée :

Demander à ton administrateur quelle est l'adresse à utiliser pour les mails sortants. 😛

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 6 Juillet 2010

• #14

Re : Création alerte si modification d'un fichier

Cela va etre assez compliqué, l'informatique est assez fermée chez nous...

Aurais tu une autre idée afin de réaliser la fonction ?

Exemple:
Nous sommes plusieurs corps de métier à travailler sur un document unique et le but c'est d'informer tous les corps de métier qu'une modification à été effectuée sur le document....

Si tu as une idée je suis open ....

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 6 Juillet 2010

• #15

Re : Création alerte si modification d'un fichier

Si tu es sur que, quand un corps de métier modifie une ligne de ton tableau, toutes les personnes de ce même corps sont au courant, il peut y avoir une solution relativement simple :

1) Tu fais un tableau avec le "Login" et le "Corps de métier" de chaque personne.

2) Dès que ton tableau est modifié, tu renseignes une cellule "cachée" avec le corps de métier de la personne qui vient de faire la modif.

3) Tu fais une macro qui se lance à l'ouverture du classeur et qui dit :
Si "Corps de métier" de la personne qui vient d'ouvrir le classeur est différent du "Corps de métier" saisi dans cette fameuse cellule alors Msgbox "Attention, ces andouilles de "Corps de métier" ont modifié le fichier depuis votre dernier passage".

Edit : Le "Andouilles" n'est pas obligatoire 😛

 

Dernière édition: 6 Juillet 2010

Vote positif 0 Vote négatif