Discussion :

[patricktoulon]

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

[mercatog]

regarde du côté des références de ton vba (Outils>Références)
une bibliothèque est certainement signalée MANQUANT
(décoche là)

[patricktoulon]

bonjour mercatog
voila ok en fait apres une attaque d un beau virus j avais ete obligé de formater et en reinstalant le tout office s'installe nature ors j avais modifier certain parametres et voila ca fonctionne

merci a toi