copier coller+remommer

[David]

Bonjour le forum

Je voudrais avec vba copier un dossier excel tout en le renomment par rapport a un textbox
cela et il possible

merci d'avance
david @+

 

[MichelXld]

bonjour David

peux tu preciser ce que tu veux dire par 'copier un dossier excel'


bon week end
MichelXld

 

[David]

bonjour MichelXld et le forum

J'ai créé un suivi annuel avec les 12 mois
et je l'ai l'intituler par l'année encourt ('CP 2006')
pour le 1er pas de problème

mes le 1 janvier 2007
je voudrais recréer le meme tableau sans les données et intituler ('CP 2007') ect.....
existe il un formule

merci
David @+ :ermm: :huh:

 

[MichelXld]

bonjour David

tu peux tester cette macro pour créer une copie de la feuille active

Dim leNom As Variant

leNom = Application.InputBox('Donnez un nom à la copie', 'Copie de la feuille active')
If VarType(leNom) = vbBoolean Then
MsgBox ' opération annulée'
Exit Sub
End If

ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = leNom


ensuite pour supprimer les données tu peux utiliser la methode ClearContents

par exemple : supprimer les données de la plage A2:C8 dans la feuille active

ActiveSheet.Range('A2:C8').ClearContents



bon apres midi
MichelXld