Nommé une cellule

[anthony]

bonjour,
Je souhaiterais définir une zone "Début - Fin" dans une feuille de calcul
1 - J'ai commencé avec les lignes suivantes mais je n'arrive pas à nommer ma cellule "Fin" ??
2 - Je souhaiterais fermer le même fichier sans apporter les modification de la macro ??

Voilà... et on ne rigole pas !!!!!!!

Do While Len(Sheets("Base").Cells(i, j).Value) > 0
w = ThisWorkbook.Sheets("Base").Cells(i, j).Value
Workbooks.Open (Repertoire & w & " FORMATION REALISE 2004 MAI-DEC" & ".xls")
Sheets("REALISE 2004").Select
'copie DATA
'Definition de la zone a copier "Debut - Fin"
'Définition de la cellule Debut
Range("A25").Select
ActiveWorkbook.Names.Add Name:="debut", RefersToR1C1:= _
"='REALISE 2004'!R25C1"
'Derniere cellule de la colonne
ActiveCell.End(xlDown)(2).Select
'Derniere cellule de la ligne
ActiveCell.Offset(-1, 13).Select
'Définition de la cellule fin
????????????????????
???????????????????

'ActiveWorkbook.Names.Add Name:="fin", RefersToR1C1:= _
"='REALISE 2004'!R200C14"

Range("debut:fin").Select
Selection.Copy
.........
ActiveWorkbook.Names("debut").Delete
ActiveWorkbook.Names("Fin").Delete
'Fermeture du fichier
????????????????????
Workbooks(w & " FORMATION REALISE 2004 MAI-DEC" & ".xls").Close
i = i + 1
loop

Merci de votre aide
Anthony

 

[Dan]

Bonjour,

Je réponds à ton pt 2.
Dans VBA place cette macro dans Thisworbook qui à la fermeture (via la croix de la fenetre ou en faisant fichier Fermer ou Excel quitter) de ton fichier n'enregistrera pas les modifications que tu as effectuées.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Instructions effectuées avant la fermeture du fichier
ThisWorkbook.Close SaveChanges:=False
End Sub

Si pb n'hésite pas.

@+ Dan

 

[anthony]

Merci pour ton aide...
J'ai finalement trouvé une autre solution pour délimiter ma zone !!

A+
Anthony