Création d'onglets nommés

[diabolo]

J'ai beau chercher je ne trouve pas de message qui indique comment copier automatiquement les données d'un onglet dans un autre onglet en attribuant à ce dernier le contenu d'une cellule du premier onglet (la date par exemple)
Merci d'avance
diabolo

 

[ERIC S]

Bonjour

dans un même fichier?

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

A fouiller

A+

 

[diabolo]

Je vais essayer. Merci

 

[diabolo]

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

 

[ERIC S]

re

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

A+

 

[ERIC S]

re

pour être plus précis:

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

 

[diabolo]

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

 

[diabolo]

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

 

[ccpapy]

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')

à+