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

Mr_Guy Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
Mr_Guy Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
0
Mr_Guy Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Merci,

ça marche!
Si je voulais que après cette modif ta procedure SAUVEGARDE SANS DEMANDER ?
Que faut-il rajouter à ton code?
0
Réponse 2 / 2
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Dans le même module copier ceci 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub
0
Mr_Guy Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Un grand merci
Apparemment ça marche.

Merci
0