pastespecial

[adeline]

bonjour à tous,

je seche sur pastespecial qui bug

'je copie mon modele
Worksheets('Modèle').Range('A1:V66').Copy
'je nomme la feuille créée
NomFeuille = Prénom & ' ' & Nom
Worksheets.Add.Name = NomFeuille
'je colle
Worksheets(NomFeuille).Paste Destination:=Worksheets(NomFeuille).Range('A1')

mais je ne garde pas les largeurs colonnes, ni format
j'essai

Worksheets(NomFeuille).PasteSpecial Destination:=Worksheets(NomFeuille).Range('A1')

mais j'ai une erreur


??? qui peut me trouver une piste de solution ?

 

[br44]

re: Bonjour Adeline ,le forum

j'ai lu t'as demande et je me pose une petite question .

Que veux-tu copier ?

Des valeures ,le format où l'ensemble .

si tu répondre ca me sera plus facile de transmetre une solution proche à t'es souhaits

à bientôt sur se fil
BR44

 

[br44]

re: Bonjour Adeline ,le forum

j'ai lu t'as demande et je me pose une petite question .

Que veux-tu copier ?

Des valeures ,le format où l'ensemble .

si tu répondre ca me sera plus facile de transmetre une solution proche à t'es souhaits

à bientôt sur se fil
BR44

 

[JYLL]

Bonjour Adeline, br44 et le forum

Je pense qu'une fois que tu as créer ta feuille et copié celle que tu veux tu mets ces lignes ;

Sheets('pomme').Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False

Tu recopies ta feuille et tous les formats.

Bontest

Amicalement

JYLL

 

[michel_m]

bonjour à tous,

pour recopier la largeur de colonnes (avec l'enregistreur de macro):

a adapter

Range('C5:H13').Select
Selection.Copy
Sheets('Feuil2').Select
Range('B3').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlColumnWidths

 

[adeline]

merci à tous de vos lumières

le 'paste=xlAll' m'arrange mais il ne me garde pas la largeur de colonnes ça bug qd j'enchaine sur 'Paste:=xlColumnWidths'

je ne comprends pas ?


part contre j'ai essayé

Worksheets('Modèle').cells.Copy
Worksheets.Add.Name = NomFeuille
Sheets(NomFeuille).Paste

... et ca marche !