cellule dans nouveau classeur

JeanMarie

XLDnaute Barbatruc

• 2 Août 2006

• #2

Re : cellule dans nouveau classeur

Bonjour

Essaye ce code

Code:

Sub XPplus()
Dim NumClas As Byte
Dim I As Byte

NumClas = Workbooks.Count + 1
With ActiveWorkbook
   Workbooks.Add
   For I = 1 To [B][COLOR=Red].[/COLOR][/B]Sheets.Count 
[COLOR=Red]'il faut mettre le . pour que le nombre de feuilles à copier soit pris sur le fichier source[/COLOR]
      Workbooks(NumClas).Sheets(1).Cells(I, 1) = .Sheets(I).Range("G10")
   Next I
End With
End Sub

@+Jean-Marie

PS : Merci Didier pour la correction

 

Dernière édition: 2 Août 2006

Vote positif 0 Vote négatif

X

xpxpplus

XLDnaute Junior

• 2 Août 2006

• #3

Re : cellule dans nouveau classeur

je te remercie de l'aide, n'aurais tu rien pour m'aider pour copier des feuilles dans un nouveau classeur, je te joint un ptit ficher si tu peux m'aider ce serait cool, merci d'avance

 

Pièces jointes

• testenregistrementfeuille.xls

  16.5 KB · Affichages: 84

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 3 Août 2006

• #4

Re : cellule dans nouveau classeur

Bonjour

Ci-joint un fichier, les explications sont à l'intérieur.
J'espère qu'il va fonctionner sur ton fichier.

@+Jean-Marie

 

Pièces jointes

• Copie de feuille.zip

  19.5 KB · Affichages: 120

Vote positif 0 Vote négatif

X

xpxpplus

XLDnaute Junior

• 3 Août 2006

• #5

Re : cellule dans nouveau classeur

je te remercie de l'aide , je regarde et en avance merci a toi

xpxpplus

 

Vote positif 0 Vote négatif

X

xpxpplus

XLDnaute Junior

• 3 Août 2006

• #6

Re : cellule dans nouveau classeur

je viens de regarder, et c'est vraiment cela que je recherchai , merci a toi et en plus cerise sur le gateau, il copie les valeurs.
Je crois que je vais bien m'amuser, mille fois merci

xpxpplus

 

Vote positif 0 Vote négatif