Bonjour,
J'ai beau chercher je n'arrive pas à trouver pourquoi mon programme m'affiche une erreur 1004.
J'ai vérifié et le problème semble venir de "Fin" car quand je remplace "Fin" par A100 par exemple la macro s’exécute correctement
Je vous remercie d'avance pour m'aider dans cette tache
J'ai beau chercher je n'arrive pas à trouver pourquoi mon programme m'affiche une erreur 1004.
Code:
Sub Secteur()
'
' Secteur Macro
' Macro enregistrée le 03/01/2013 par
'
Fin = Range("A65536").End(xlUp)
ThisWorkbook.Sheets("liste des secteurs").Select
Range("A3").Select
ActiveSheet.ShowDataForm 'Ajouter ou supprimer une zone dans la base de données
Worksheets("liste des secteurs").Activate
ActiveWorkbook.Names.Add "Zone", Range(Range("A2"), Range("Fin")) 'Definition du champs "Zone"
ThisWorkbook.Sheets("Evaluation du risque").Select
End Sub
J'ai vérifié et le problème semble venir de "Fin" car quand je remplace "Fin" par A100 par exemple la macro s’exécute correctement
Je vous remercie d'avance pour m'aider dans cette tache