2 Private Sub Workbook_Open()..."non ambigu détecté".

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour ce cas de figure (suis nul en VBA)

"non ambigu détecté".
je voudrais faire cohabiter ces deux macros...

Private Sub Workbook_Open()

If IsEmpty(Sheets("SAISIE ETIQUETTES").Range("C1")) Then Sheets("SAISIE ETIQUETTES").Range("D2") = Date
End Sub

Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub

Merci pour votre aide.

Cordialement,
Christian

 

[JCGL]

Re : 2 Private Sub Workbook_Open()..."non ambigu détecté".

Bonjour à tous,
salut Christian 🙂,

Regroupe les deux codes dans une seule instance _Open :

Private Sub Workbook_Open()
If IsEmpty(Sheets("SAISIE ETIQUETTES").Range("C1")) Then Sheets("SAISIE ETIQUETTES").Range("D2") = Date
Application.OnTime TimeValue("17:00:00"), "Ferme1"
End Sub

A++ l'ami
A+ à tous

 

[Christian0258]

Re : 2 Private Sub Workbook_Open()..."non ambigu détecté".

Re, le forum, JCGL,

Salut l'ami Jean-Claude.

Merci pour ton intervention, j'ai appris quelque chose...Lol


à+

cHRISTIAN