cellule dans nouveau classeur

[xpxpplus]

Bonjour, comment prendre toutes les cellules g10 de chaque feuille du fichier et de les retranscrire dans un nouveau fichier mais les un a la suite des autres dans la colonne A

merci de votre aide

xpxpplus

 

[JeanMarie]

Re : cellule dans nouveau classeur

Bonjour

Essaye ce 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

 

[xpxpplus]

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

 

[JeanMarie]

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

 

[xpxpplus]

Re : cellule dans nouveau classeur

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

xpxpplus

 

[xpxpplus]

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