VBA: erreur "la méthode range de l'objet worksheet a échoué"
Bonjour,
Je suis en train de concevoir une macro qui me permet de mettre à jour une feuille d'un classeur Excel à partir de plusieurs autres classeurs, qui seront sélectionnés par l'utilisateur.
J'ai un souci au moment où je lui demande de faire de la recopie de valeur de cellule " If S.Range("H" & cpt2).Value = itm8 Or (S.Range("R" & cpt2).Value = RD And S.Range("Q" & cpt2).Value = Order) Then" j'obtiens le message d'erreur "la méthode range de l'objet worksheet a échoué"
En cherchant sur le forum d'où cela pourrait provenir, il semblerait qu'il faille activer la feuille de travail mais même avec cela, ça ne fonctionne pas.
Pourriez-vous m'aider svp.
Code:
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
| Sub scalog_2016()
Dim FichiersImport
Dim ClasseurCourant As Workbook
Dim IFichier As Integer
Dim ClasseurImport, StockBIM As Workbook
Dim FeuilleImport, SV As Worksheet
Dim Nb_import As Integer
Dim S As Worksheet
Dim cpt, ctp2, itm8 As Long
dateJ = Date
dateYYYY = Right(dateJ, 4)
dateMM = Left(Right(dateJ, 7), 2)
dateDD = Left(dateJ, 2)
dateFic = dateYYYY & dateMM & dateDD
Nb_import = 1
Set ClasseurImport = Workbooks.Open(Filename:="I:\Commun COMI - ITMAF\SCALOG 2016 SEC.xlsx")
Set FeuilleImport = ClasseurImport.Sheets(2)
FichiersImport = Application.GetOpenFilename("Fichiers Excel, *.xls; *.xlsx; *.xlsm", , "Sélectionnez les fichiers SCALOG à importer", , True)
Application.Calculation = xlCalculationManual
For IFichier = LBound(FichiersImport) To UBound(FichiersImport)
Set ClasseurCourant = Application.Workbooks.Open(FichiersImport(IFichier), , True)
ClasseurCourant.Activate
Stop
For Each S In ClasseurCourant.Worksheets
S.Activate
If S.AutoFilterMode = True Then S.AutoFilterMode = False
S.Cells.EntireColumn.Hidden = False
S.Cells.EntireRow.Hidden = False
cpt = 3
Stop
Do
RD = FeuilleImport.Range("Y" & cpt).Value
itm8 = FeuilleImport.Range("O" & cpt).Value
Order = FeuilleImport.Range("X" & cpt).Value
Do
If S.Range("H" & cpt2).Value = itm8 Or (S.Range("R" & cpt2).Value = RD And S.Range("Q" & cpt2).Value = Order) Then
FeuilleImport.Range("AH" & cpt2).Value = S.Range("AA" & cpt2).Value
FeuilleImport.Range("AI" & cpt2).Value = S.Range("AB" & cpt2).Value
FeuilleImport.Range("AJ" & cpt2).Value = S.Range("AC" & cpt2).Value
FeuilleImport.Range("AK" & cpt2).Value = S.Range("AD" & cpt2).Value
FeuilleImport.Range("AL" & cpt2).Value = S.Range("AE" & cpt2).Value
End If
cpt2 = cpt2 + 1
Loop While Inv.Sheets(1).Range("H" & cpt2).Value <> ""
cpt = cpt + 1
Loop While Inv.Sheets(1).Range("H" & cpt).Value <> ""
Next S
ClasseurCourant.Close SaveChanges:=False
Next IFichier |
