Bonjour,

Un module ne peut pas se compiler à cause d'une incompatibilité de type.

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
26
27
28
29
30
31
Sub Compare()

        Application.ScreenUpdating = False

        Dim i As Byte
        Dim chem As String
        
        Select Case MsgBox("Choisissez le même fichier, mais du mois précédent.")
        Case vbOK
            Set rep = Application.FileDialog(msoFileDialogFilePicker)
        Case vbCancel
            Exit Sub
        End Select
            rep.Show
        If rep.SelectedItems.Count > 0 Then
            chem = rep.SelectedItems(1)
            Nfichier = ""    'Work in progress
        Else
            Exit Sub
        End If
For f = 1 To Sheets.Count
    With Sheets(f)
    For i = 9 To Cells(Columns(1).Rows.Count, 2).End(xlUp).row
        .Cells(i, "H").FormulaR1C1 = "=RC[-5]-'[" _
            & Nfichier & "]" _
            & .Name & "'!RC3"
    Next
    End With
Next f

End Sub
C'est la variable "f" soulignée en gras qui pose problème.
Elle est déclarée de cette façon dans un module à part:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public f As Byte
Ce qui est étrange, c'est que j'utilise "f" dans d'autres modules dans une instruction For...Next et il n'y a pas de problème.

Cordialement