Salut à toute la communauté des développeurs

J'ai essayé grace aux aux ancien sujets postés sur le forum, de déplacer une feuille de mon classeur vers un autre qui est fermé.
Voilà le code que j'utilise:

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
Option Explicit
Dim obj As Sheets
Dim Valeur As String
 
Private Sub Recherche_OK_Click()
On Error GoTo Gerreur
Début:
If ComboBox1 = "" Then
MsgBox "Faites votre choix !", vbExclamation
ComboBox1.SetFocus
Exit Sub
End If
MsgBox " Êtes-vous sûr de vouloir archiver " & ComboBox1 & " ?", vbCritical + vbYesNoCancel + 256, "Attention"
 If vbYes Then
Dim lerep
lerep = ActiveWorkbook.Path
With Application.FileSearch
        .NewSearch
        .LookIn = lerep
        .Filename = ComboBox1 & ".xls"
        .MatchTextExactly = True
        .Execute
 
End With
 
    Sheets(ComboBox1.Text).Move After:=Workbooks("archive.xls").Sheets(3)
For Each obj In ActiveSheet.Shapes
        obj.Delete
    Next
    ActiveWorkbook.Save
    ActiveSheet.name = Valeur
 
    ActiveWorkbook.Close (True)
 End If
 If vbNo Then
 Unload Me
 Else
 ComboBox1.SetFocus
 End If
 
Exit Sub
Gerreur:
If Err.Number = 9 Then
Beep
                MsgBox "Attention !" & ComboBox1.Text & " n'existe pas!"
                ComboBox1.SetFocus
End If
 
End Sub
Mon code ne fonctionne que si le classeur d'archivage est ouvert.
le chemin d'accès est au classeur d'archivage est : C:\Documents and Settings\kedas\Bureau\Archive.


S'il vous plait quelqu'un aurait une astuce pour mieux adapter ce code ?

Merci d'avance