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

Question

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

Frenchie83 · Answer

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

Frenchie83 · Answer

Dans le même module copier ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub

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

2 réponses

Newsletters