Discussion :

[NEC14]

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

[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 ?

[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"

[Daniel.C]

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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Activate()
UfBC1.Show
End Sub

[Daniel.C]

Quand tu exécutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.