Bonjour à tous,

J'ai ce code qui me permet de sauvegarder une feuille dans un répertoire bien précis. Hors, lorsque je clique sur le bouton qui commande cette macro, une erreur arrive, à chaque fois le message "Objet requis" s'affiche et me renvoi à l'UserForm "UfBC1" du fichier principal.
Comment rectifier cette erreur ? Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance

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
 
Private Sub CmbSauv_Click()
Dim Fich As String
Dim c As Range
Dim Fichier
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("BC1") 'copie la feuille BC1
    .Visible = True 'La feuille BC1 est visible
 
    'la feuille devient fichier et est enregistrée sur le K:\
    Fich = "K:\BONS 2013\BC" & " " & .Cells(17, 4).Value & " " & .Cells(15, 14).Value
    Fichier = Application.GetSaveAsFilename(Fich, "Excel Files (*.xls), *.xls")
    If Fichier <> False Then
        Worksheets("BC1").Copy
        With ActiveWorkbook
            .SaveAs Fichier             'Pour Excel 2003 et moins
            .Close
        End With
        For Each c In .Range("B25,G6,H14,N11,N15,N19,B24,A28:A55,N24,I28:K55")
            c.MergeArea.ClearContents
        Next c
        .Visible = False
    End If
End With
Windows("Saisie_engagements.xls").Activate
        Sheets("Accueil").Activate
 
End Sub