Bonjour à tous,
J'ai une erreur que je n'arrive pas à résoudre. J'ai une macro qui fonctionne à merveille lorsque je l'affecte à un bouton dans un onglet du classeur (elle copie les lignes filtrées de l'onglet1 pour les coller dans l'onglet2). Je souhaiterais maintenant qu'elle s'exécute automatiquement à l'ouverture du classeur.
Je mets donc le code suivant dans ThisWorkbook :
Et là, ça ne marche plus ! Excel renvoie une erreur "424 objet requis" à la ligne
J'ai essayé plein de bidouillages mais rien n'a fonctionné...
Merci d'avance pour votre aide.
J'ai une erreur que je n'arrive pas à résoudre. J'ai une macro qui fonctionne à merveille lorsque je l'affecte à un bouton dans un onglet du classeur (elle copie les lignes filtrées de l'onglet1 pour les coller dans l'onglet2). Je souhaiterais maintenant qu'elle s'exécute automatiquement à l'ouverture du classeur.
Je mets donc le code suivant dans ThisWorkbook :
Code:
Private Sub Workbook_Open()
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Set F_1 = Sheets("Onglet1")
Set F_2 = Sheets("Onglet2")
'Mise à zéro ============================================
F_2.Range("A5:M50").Clear
'Copiage ================================================
F_1.AutoFilterMode = False
F_1.Activate
Range("A4:M50").AutoFilter Field:=7, Criteria1:="ž"
AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
'Collage ================================================
F_2.[A4].PasteSpecial (xlPasteValues)
F_2.[A4].PasteSpecial (xlPasteFormats)
End Sub
Et là, ça ne marche plus ! Excel renvoie une erreur "424 objet requis" à la ligne
Code:
AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
J'ai essayé plein de bidouillages mais rien n'a fonctionné...
Merci d'avance pour votre aide.