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

Fermé

Mr_Guy Messages postés 13 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 7 août 2023 - Modifié le 9 juin 2019 à 11:10
Mr_Guy Messages postés 13 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 7 août 2023 - 9 juin 2019 à 16:36

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

A voir également:

Créer une macro auto à l'ouverture d'un classeur
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide
Créer une liste déroulante excel - Guide

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 juin 2019 à 12:23

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 13 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 7 août 2023
9 juin 2019 à 14:34

Merci,

ça marche!
Si je voulais que après cette modif ta procedure SAUVEGARDE SANS DEMANDER ?
Que faut-il rajouter à ton code?

Réponse 2 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 juin 2019 à 14:54

Dans le même module copier ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub

Mr_Guy Messages postés 13 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 7 août 2023
9 juin 2019 à 16:36

Un grand merci
Apparemment ça marche.

Merci

Discussions similaires

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters