Créer une macro auto à l'ouverture d'un classeur

Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
31 juillet 2019
-
Bonjour,

Je voudrais Créer une macro qui s'exécute automatiquement à l'ouverture d'un classeur
l'action à accomplir est
Lors de l'ouverture du document Excel
Comparer deux cellules Coordonnées Vendeur'!BY2(constante) et 'Coordonnées Vendeur'!BY3 "=AUJOURDHUI() "
si 'Coordonnées Vendeur'!BY3 est égale ou supérieure à 'Coordonnées Vendeur'!BY2
Remplacer "=AUJOURDHUI()" en 'Coordonnées Vendeur'!BY3 par sa valeur afin d'obtenir une constante
Afficher la suite 

2 réponses

Messages postés
2000
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
12 octobre 2019
227
0
Merci
Bonjour,

Si j'ai bien compris, macro à copier dans le module "ThisWorbook"( pour ouvrir VBA, faire ALT + F11, dans la fenêtre de gauche, double-clic sur ThisWorbook" et coller le code ci-dessous dans la fenêtre de droite)
Private Sub Workbook_Open()
    If Sheets("Coordonnées Vendeur").[BY3] > Sheets("Coordonnées Vendeur").[BY2] Then
        Sheets("Coordonnées Vendeur").Range("BY3").Value = Sheets("Coordonnées Vendeur").Range("BY3").Value
    Else
        Sheets("Coordonnées Vendeur").[BY3] = "=TODAY()"
    End If
End Sub
Mr_Guy
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
31 juillet 2019
-
Merci,

ça marche!
Si je voulais que après cette modif ta procedure SAUVEGARDE SANS DEMANDER ?
Que faut-il rajouter à ton code?
Commenter la réponse de Frenchie83
Messages postés
2000
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
12 octobre 2019
227
0
Merci
Dans le même module copier ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub
Mr_Guy
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
31 juillet 2019
-
Un grand merci
Apparemment ça marche.

Merci
Commenter la réponse de Frenchie83