Bonjour a tous,

J'ai un petit problème. Jusqu'à hier le code ci-dessous fonctionnait sans problème. Aujourd'hui j'ai une erreur qui se produit sauf que je ne la trouve pas.

Ce code me permet de remplir le fichier par les données d'un autre fichier.

J'ai remarqué qu'il ne prenait plus de valeur en variable

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
        Set CELLTROUVREPORT = PLAGEBASEREPORT.Find(CELLENG.Value, , xlValues, xlWhole)
Par exemple : CELLENG obtient "VALEUR", par contre la variable CELLTROUVEREPORT obtient "Nothing".


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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
 
 
Dim CLASS As Workbook
Dim CLASSENG As Workbook
Dim CLASSSUIVI As Workbook
Dim CLASSREPORT As Workbook
Dim FEUIL As Worksheet
Dim PLAGESUIVIENG As Range
Dim PLAGEBASEENG As Range
Dim PLAGEBASEREPORT As Range
Dim CELLENG As Range
Dim CELLTROUVREPORT As Range
Dim i As Integer
Dim DERNLIGN As Long
Dim EXISTE As Boolean
Dim ADDRESS As String
Dim NUMSENG As String
 
 
Sub MISEAJOURREPORT()
 
'DESACTIVATION DE LA MISE A JOUR DE L'ECRAN
 
Application.ScreenUpdating = False
 
    'DESACTIVE LE CODE SUR LA CREATION D'UNE NOUVELLE FEUILLE
 
    If ActiveSheet.Name = "FEUILLE EXEMPLE (2)" Then
        Exit Sub
    End If
 
    'DEFINITION DES VARIABLES AVEC OUVERTURE DES CLASSEURS SERVANT DE BASE DE DONNEES
 
    Set CLASSSUIVI = ThisWorkbook
 
'********************************************************************************************************************************************************************
    'RECHERCHE DES VALEURS POUR LES ENGAGEMENTS REPORTES VILLE
'********************************************************************************************************************************************************************
 
        'VERIFICATION QUE LES CLASSEURS NE SONT PAS OUVERTS
 
                Set CLASSREPORT = Workbooks.Open("M:\DGA-TPR\SAR RESSOURCES PARTAGEES\COMPTABLE POLE ORLEANS\1 - SUIVI DES DEPENSES\BASES DE DONNEES\BASE_REPORTS_METROPOLE.xlsx")
 
        'DEFINITION DES VARIABLES DE CE CLASSEUR
 
            Set FEUIL = CLASSSUIVI.ActiveSheet
 
                NUMSENG = "NUMEROMOUV" & CLASSSUIVI.ActiveSheet.Name
 
            With FEUIL:
 
                Set PLAGESUIVIENG = CLASSSUIVI.ActiveSheet.Range(NUMSENG)
 
            End With
 
        'DEFINITION DES VARIABLES POUR LES CLASSEURS DE BASE DE DONNEES
 
            With CLASSREPORT.Worksheets("Liste des mouvements reportés")
 
                Set PLAGEBASEREPORT = .Range(.Cells(10, 4), .Cells(.Rows.Count, 4).End(xlUp))
 
            End With
 
    'COMPARAISON DES VALEUR ENTRE LES DEUX CLASSEURS
 
    For Each CELLENG In PLAGESUIVIENG
 
        Set CELLTROUVREPORT = PLAGEBASEREPORT.Find(CELLENG.Value, , xlValues, xlWhole)
 
        If Not CELLTROUVREPORT Is Nothing Then
 
            ADR = CELLTROUVREPORT.ADDRESS
 
            Do
 
                On Error Resume Next
 
                If CLng(CELLTROUVREPORT.Offset(, 3).Value) = CLng(CELLENG.Offset(, 1).Value) Then
 
                'CODE TIERS
 
                CELLENG.Offset(, 4).Value = CELLTROUVREPORT.Offset(, 9).Value
 
                'NOM TIERS
 
                CELLENG.Offset(, 5).Value = CELLTROUVREPORT.Offset(, 10).Value
 
                'LIBELLE MOUVEMENT
 
                CELLENG.Offset(, 6).Value = CELLTROUVREPORT.Offset(, 3).Value
 
                'NUMERO DU MARCHE
 
                CELLENG.Offset(, 7).Value = CELLTROUVREPORT.Offset(, 11).Value
 
                'MONTANT
 
                If Left(CELLENG.Value, 6) = "18RATD" Then
                CELLENG.Offset(, 9).Value = CELLTROUVREPORT.Offset(, 7).Value * -1
                Else
                CELLENG.Offset(, 9).Value = CELLTROUVREPORT.Offset(, 7).Value
                End If
 
                'AVANCEMENT
 
                CELLENG.Offset(, 10).Value = CELLTROUVREPORT.Offset(, 8).Value
 
                'PREVISIONNEL A ZERO
 
                CELLENG.Offset(, 15).Value = "0"
 
                End If
 
                Set CELLTROUVREPORT = PLAGEBASEREPORT.FindNext(CELLTROUVREPORT)
 
            Loop While CELLTROUVREPORT.ADDRESS <> ADR
 
        End If
 
    Next CELLENG
 
    Application.DisplayAlerts = False
    CLASSREPORT.Close
    Application.DisplayAlerts = True
 
End Sub
Pourriez-vous m'aider, s'il vous plait ?