Discussion :

[crashfire]

Bonjour

J'ai un petit problème
j'ai un code qui fonctionne sur un classeur mais pas sur un autre
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Workbook_Open()
*
Dim DateExp As Date
Dim ws As Worksheet
Dim Message As String
*
Set ws = ThisWorkbook.Worksheets(1)
*
DateExp = Now + 15
*
i = 2
While Not IsEmpty(ws.Cells(i, 3))
    If ws.Cells(i, 6) <> "" And ws.Cells(i, 6) > Now And ws.Cells(i, 6) <= DateExp Then
        Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 6) - Now, 0) & _
            " jours (le " & Format(ws.Cells(i, 6), "dd.mm.yyyy") & ")"
    ElseIf ws.Cells(i, 7) <> "" And ws.Cells(i, 7) > Now And ws.Cells(i, 7) <= DateExp Then
        Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 7) - Now, 0) & _
            " jours (le " & Format(ws.Cells(i, 7), "dd.mm.yyyy") & ")"
    End If
i = i + 1
Wend
*
MsgBox Message, vbInformation + vbOKOnly, "Information Dates d'Expiration"
*
End Sub

vba me signale une erreur de compilation projet ou bibliothèque introuvable
et surligne i=2

Pourtant le même code fonctionne très bien sur un autre classeur.
Je n'est aucune idée de se qui peut crée ça.

Merci d'avance de votre aide

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
dim i as variant au debut de ta sub

[aalex_38]

bonjour,

Déja en recopiant ton code et en compilant, j'ai l'erreur sur les *, pour les commentaires on doit avoir '.

Pour l'instant je regarde pas plus ...

Edit : en tout cas en remplacant les astérisques je n'ai pas de plantage.

=> donc j'ai regardé un peu plus.

[crashfire]

merci ca fonctionne
je ne sais pas d'ou sortait les astrerisques