Déplacer une feuille vers un classeur fermé

  • Initiateur de la discussion Initiateur de la discussion kedas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kedas

XLDnaute Nouveau
Salut à toute la communauté XLD

J'ai essayé grâce 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:
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.


Merci de bien vouloir m'aider à adapter ce code
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
169
Réponses
3
Affichages
665
Réponses
2
Affichages
153
Retour