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:
Mon code ne fonctionne que si le classeur d'archivage est ouvert.
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
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
Partager