bonjour a tous


j'ai un gros probleme

mon classeur ne fonctionne plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub NOUVEAUDEVIS(control As IRibbonControl)
 
dim sa date
 
Sheets("devis").Select
If Sheets("devis").Range("A1").Value = 1 Then
Exit Sub
Else
Sheets("devis").Range("A1").Value = 1
 
Sheets("devis").Range("b1").Value = Sheets("devis").Range("b1").Value + 1
Range("b11") = Range("b1")
Range("f2").Value = Date
 Range("F2:G2").NumberFormat = "m/d/yyyy"

et voila ce qui me dis

erreur de compilation:
projet ou biblioteque introuvable

ce que je ne comprend pas c'est que je n ai rien changer sur le classeur

il ne reconnais plus l'expression date ou format enfin toute les macro plantent

au secour une explication svp!!!

il me dis toujour la meme chose

je comprend pas du tout pourquoi l me dis que le projet ou la biblioteque est introuvable