Bonjour le forum !
Comment faire pour nommer un champ de cellules sur une feuille dont le nom est variable ?
Voici ma macro :
---------------------------
FEUILLE_importNp1 = Range('FeuillNplus1').Value ' =Import06
NomZone = Range('ZoneRecherche').Value '=h_2006
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
Merci d'avance de vos conseils !
Comment faire pour nommer un champ de cellules sur une feuille dont le nom est variable ?
Voici ma macro :
---------------------------
FEUILLE_importNp1 = Range('FeuillNplus1').Value ' =Import06
NomZone = Range('ZoneRecherche').Value '=h_2006
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
Merci d'avance de vos conseils !