Problème code de la fonction Rechercher et Remplacer
Bonjour tlm
j'ai un probleme lors de l'execution du code cidessous,il ne reconnait pas les valeurs a rechercher et les valeurs a remplacer.
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
| Sub Actualisation()
Windows("Ref_File.xls").Activate
Rday = Worksheets("Ref").Cells(1, 1).Value
RMonth = Worksheets("Ref").Cells(1, 2).Value
RYear = Worksheets("Ref").Cells(1, 3).Value
Rday2 = Worksheets("Ref").Cells(2, 1).Value
RMonth2 = Worksheets("Ref").Cells(2, 2).Value
RYear2 = Worksheets("Ref").Cells(2, 3).Value
mm = rday & " - " & RMonth & " - " & RYear
pp = rday2 & " - " & RMonth2 & " - " & RYear2
Windows("AAA.xls").Activate
Range("A3").Select
Selection.End(xlDown).Select
T = ActiveCell.Row
Rows(T & ":" & T + 1).Select
Selection.FillDown
Rows(T + 1 & ":" & T + 1).Select
Selection.Replace What:=pp, Replacement:=mm, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub |
Merci de votre aide precieuse
