Problème avec un code de sauvegarde

Version imprimable

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:

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

25/03/2013, 15h19
Daniel.C

Bonjour,

Qu'est-ce que tu appelles "fichier principal" ? Quels sont les classeurs ouverts ? Où se trouve le bouton déclenchant la macro. Y a-t-il une ligne en surbrillance ?
25/03/2013, 15h42
NEC14

Le fichier principal se nomme "Saisie-engagements.xls". Normalement les 2 classeurs doivent être ouverts; le classeur contenant la copie et le fichier principal. Le bouton se trouve dans le fichier principal.

La ligne en surbrillance se trouve dans le fichier principal au niveau de l'UserForm UfBC1. "UfBC1.Show"
25/03/2013, 16h35
Daniel.C

Citation:

La ligne en surbrillance se trouve dans le fichier principal au niveau de l'UserForm UfBC1. "UfBC1.Show"

Est-ce que tu peux publier le code avec la ligne en anomalie ?
25/03/2013, 16h44
NEC14
Voici le code en question. Il est dans la feuille "BC1" du fichier principal. Cette même feuille qui est copiée puis sauvegardée.
J'ai commis une erreur dans mon message précédent, il ne sagit pas de l'UF mais bien de la feuille BC1
Code:

1 2 3 4 Private Sub Worksheet_Activate() UfBC1.Show End Sub
25/03/2013, 17h16
Daniel.C

Quand tu exécutes :

Code:

Worksheets("BC1").Copy

La feuille se copie dans un nouveau classeur et déclenche l'évènement "Worksheet_Activate()" qui cherche à afficher l'userform. Celui-ci ne se trouve pas dans le nouveau classeur, d'où l'erreur.
25/03/2013, 17h44
NEC14

Merci pour ton aide. Comment dois-je procéder pour résoudre ce problème ?

Code:

1
2
3
4
5
6
7
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add(1)
    Wbk.Sheets(1).Name = "LeNom"
    With ThisWorkbook.Sheets("Feuil1")
        .Cells.Copy
        Wbk.Sheets(1).[A1].PasteSpecial xlPasteAll
    End With

Note que la hauteur des lignes ne sera prise en considération.

26/03/2013, 08h57
NEC14

Bonjour,

Où dois-je mettre ce code ? Désolé mais je ne vois pas.
Merci
26/03/2013, 11h07
Daniel.C

A la place de la ligne :

Code:

Worksheets("BC1").Copy
26/03/2013, 12h45
NEC14

Merci beaucoup Daniel, ça fonctionne très bien.

Super sympa :ccool: