erreur de compilation

[Evelynetfrancois]

Bonjour a toutes et tous !
je rencontre un problème suite au changement du système d’exploitation
De Windows 98 à windows 2000 pro par mon entreprise

Cette macro ci dessous qui fonctionnée parfaitement , beuge actuellement sur « Chr » en me notent erreur de compilation ,Projet ou bibliothèque introuvable
Pouvez vous m’aider ou auriez vous La solution à ce désagrément
Merci d’avance
Bonne journée
Evelynetfrancois


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Longueur As Byte
Dim i As Byte
Dim Hit As Byte
Fiche = InputBox("Entrer le NOM de l'agent recherché ," & Chr(13) & "ou" & Chr(13) & _
"ses 3 premières lettres ....", "SÉLECTION D'UN AGENT.", _
" Pour éviter les doublons saisir au moins 3 caractères !")
If Fiche = "" Then Exit Sub
Longueur = Len(Fiche)
For i = 1 To Sheets.Count
If Not Sheets(i).Visible = False Then
If UCase(Left(Sheets(i).Name, Longueur)) = UCase(Fiche) Then
Hit = Hit + 1
ReDim Preserve LesFeuilles(0 To Hit - 1)
LesFeuilles(Hit - 1) = Sheets(i).Name
End If
End If
Next i
Select Case Hit
Case 0: MsgBox "Pas de feuille commençant par: " & Fiche, vbCritical, " Introuvable !"
Case 1: Sheets(LesFeuilles(0)).Activate
Case Is > 1
Doublenom.Show
End Select
End Sub

 

[Ti]

c'est parce que tu as dans ton projet VBA une référence qui n'existe plus dans ton nouvel OS (ou pas sous le même numéro de version). Donc tu vas dans le projet VBA, références, et tu cherches celle qui est inscrite "référence manquante" ou quelque chose du genre, tu la décoches puis tu essaies de la retrouver dans la liste (comme je le disais, probablement sous un autre numéro de version) et ça devrait marcher.

 

[Evelynetfrancois]

bonjour Ti
Waahhoooo !! c'est trop fort
il y avait effectivement:
MANQUANT :calendar version 8
j'ai juste decoché sans rien de plus!
et tout est rentré dans l'ordre
tous à l'air de refonctionner !!!!
merci beaucoup
bonne journée
E et F