On Error Resume Next
Worksheets(FEUILLE_importNp1).Select
'si elle n'existe pas, création de la nouvelle feuille
If Err <> 0 Then Worksheets.Add.Name = FEUILLE_importNp1
Sheets(FEUILLE_importNp1).Range('f5:w4000').Select
ActiveWorkbook.Names.Add Name:=NomZone, RefersToR1C1:=Selection.Address
----------------
Le champ H_2006 est bien nommé mais en faisant rérérence à l'adresse suivante
='$F$5:$W$4000'
Cette adresse n'est pas valide..
Comment faire pour obtenir l'adresse suivante :
=import06!$F$5:$W$4000
Un si ton nom de feuil change et que tu as ce champ déjà nommé, l'adresse suit avec le nouveau nom de feuille. Il y as de drole de chose dans ton code. Comme:
Code:
---------------------------
FEUILLE_importNp1 = Range('FeuillNplus1').Value ' =Import06
NomZone = Range('ZoneRecherche').Value '=h_2006
On Error Resume Next
Worksheets(FEUILLE_importNp1).Select
FEUILLE_importNp1 est un nom de feuille que tu prend dans une cellule d'une feuille que tu ne spécifie pas (Range('FeuillNplus1').Value )lors de l'assignation ??
Peut être si tu expliquait un peu plus en détail ce que tu essaie d'accomplir, on aurrait une vision plus clair de ton problème. Parce que présentement ce que tu cherche à faire, la façon dont tu t'y prend semble très bonne.