Erreur Code

[TheProdigy]

Bonjour,
Je comprends pas elle où l'erreur dans ce code?

Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre V1 et W1 et W1 est un vendredi
If Sheets("rep").Range("V1").Value <> Sheets("rep").Range("W1").Value And Weekday(Range("W1").Value) = 6 Then
........
Merci

 

[Staple1600]

Re : Erreur Code

Bonjour

Private Sub Workbook_Open()
' a l'ouverture du fichier
Dim f as Worksheet
Set f=Sheets("rep")
'comparaison entre V1 et W1 et W1 est un vendredi
If f.Range("V1").Value <> f.Range("W1").Value And Weekday(f.Range("W1").Value) = 6 Then
........

Est-ce que cela fonctionne ainsi?

 

[Staple1600]

Re : Erreur Code

Re


Après test cela fonctionne

Une petite simplification en passant

Sub test2()
'à adapter à tes convenances
Dim f As Worksheet
Set f = Sheets("Feuil1")
If f.[A1] <> f.[B1] And Weekday(f.[B1]) = 6 Then
MsgBox "test"
End If
End Sub

Je crois que l'erreur était:

Weekday(Range("W1").Value) = 6

Il manquait Sheets("rep")
ainsi ca doit fonctionner non?

Weekday(Sheets("rep").Range("W1").Value) = 6

 

[TheProdigy]

Re : Erreur Code

Je ne comprends pas pourquoi ça ne marche pas 🙁

 

[Staple1600]

Re : Erreur Code

Re

Il manquait Sheets("rep")

Ce n'est pas là la source de non fonctionnement?

 

[Excel_lent]

Re : Erreur Code

Salut à tous,

Qu'as-tu en W1 ? Avec =Jour(6) cela fonctionne chez moi !
@+

 

[TheProdigy]

Re : Erreur Code

Erreur d'execution 13 icompatabilité de code 🙁. En w1 j'ai une date qui est lié à une autre feuille.
Quand je mets le pas à pas détaillé il met en jaune la ligne
Private Sub Workbook_Open()
Merci

 

[Excel_lent]

Re : Erreur Code

Re,

En copiant ton code !
Regarde le fichier et dis nous.
@+

 

[TheProdigy]

Re : Erreur Code

Mais ça marche pas chez moi, incompatibilité de type.
Merci

 

[Excel_lent]

Re : Erreur Code

Re,

J'ai cette erreur avec Dim f As Worksheets au lieu de Dim f As Worksheet !
Contrôle cela.
@+