Création d'onglets nommés

ERIC S

XLDnaute Barbatruc

• 30 Mars 2006

• #2

Bonjour

dans un même fichier?

avec un sheets.add je crois puis
sheet.name = range('A1').value

A fouiller

A+

 

Vote positif 0 Vote négatif

D

diabolo

XLDnaute Nouveau

• 30 Mars 2006

• #3

Je vais essayer. Merci

 

Vote positif 0 Vote négatif

D

diabolo

XLDnaute Nouveau

• 30 Mars 2006

• #4

Sheets('Feuil1').Name = '25Mai' Comment remplace-t-on le '25Mai' par la valeur d'une cellule ? Si je mets A1 directement j'ai un erreur.
Merci

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 30 Mars 2006

• #5

re

as-tu essayé
Sheets(\\'Feuil1\\').Name =range('A1').value

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 30 Mars 2006

• #6

re

pour être plus précis:

Sheets('Feuil1').Name =sheets('feuille d'origine').range('A1').value

 

Vote positif 0 Vote négatif

D

diabolo

XLDnaute Nouveau

• 30 Mars 2006

• #7

Oui. Il retourne une erreur d'exécution 1004 en indiquant que la méthode range a échoué.

 

Vote positif 0 Vote négatif

D

diabolo

XLDnaute Nouveau

• 30 Mars 2006

• #8

La dernière ligne d'instruction marche très bien. C'est parfait. Merci beaucoup. Je pense que cela servira à pas mal d'autres.
@+
diabolo

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 30 Mars 2006

• #9

bonjour,
à essayer




'copie la dernière feuille et place cette copie en dernier
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
'nomme avec la date qui est en D1
ActiveSheet.Name = Format(Range('D1'), 'dd mm yy')

à+

 

Vote positif 0 Vote négatif