Lire plusieures feuilles D'un meme classeur

Staple1600

XLDnaute Barbatruc

• 21 Novembre 2010

• #2

Re : Lire plusieures feuilles D'un meme classeur

Bonjour



Pour conserver les macros, il faut que tu enregistres avec ces extensions
1) xlsm
2) ou xls

Mais si tu enregistres ton fichier en xlsx, les macros ne sont pas conservées.

Pour ta macro, essaie ainsi

Code:

Dim Ws As Worksheet 
For Each Ws In ThisWorkbook.Worksheets 
If Ws.Name <> "SYNTHESE" Then
Sheets("SYNTHESE").Range("A65536").End(xlUp).Resize(,2)(2)=Ws.[A1:B1]
End If 
Next Ws

Non testé (car pas d'Excel sous le coude)

 

Dernière édition: 21 Novembre 2010

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 21 Novembre 2010

• #3

Re : Lire plusieures feuilles D'un meme classeur

ok merci voici mon nouveau classeur

 

Pièces jointes

• essais.zip

  7.9 KB · Affichages: 41
• essais.zip

  7.9 KB · Affichages: 37
• essais.zip

  7.9 KB · Affichages: 38

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Novembre 2010

• #4

Re : Lire plusieures feuilles D'un meme classeur

Re


Ton classeur est a nouveau en xlsx
(donc sans macros)

Il faut spécifier le type de fichier quand tu enregistres ton classeur


(merci à l'auteur du blog pour cette copie d'écran)

 

Dernière édition: 21 Novembre 2010

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 21 Novembre 2010

• #5

Re : Lire plusieures feuilles D'un meme classeur

j'ai essayé comme ca mais les donnees s'affichent que dans la colonne ("A1")

Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "SYNTHESE" Then
Sheets("SYNTHESE").Range("A65536").End(xlUp).=Ws.range("D1")
End If
Next Ws

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Novembre 2010

• #6

Re : Lire plusieures feuilles D'un meme classeur

Re


Tu as essayé le code présent dans ma réponse de 11h34 ?

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 21 Novembre 2010

• #7

Re : Lire plusieures feuilles D'un meme classeur

merci Staple

problème résolu
ca marche nickel
j'ai procédé ainsi :

Dim Ws As Worksheet
dim li as integer
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "SYNTHESE" Then
with Sheets("SYNTHESE")
li=.Range("A65536").End(xlUp).row+1
.Cells(li,1).value=Ws.range("D1")
End If
Next Ws


BON DIMANCHE à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Novembre 2010

• #8

Re : Lire plusieures feuilles D'un meme classeur

Re

J'ai du mal à croire que le code tel qu'il apparait dans ton message soit fonctionnel

Il manque un End With (pour le moins)


Bon dimanche à toi également.

PS: Le code que j'ai fourni, il fonctionne ou pas, tel quel ?

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 21 Novembre 2010

• #9

Re : Lire plusieures feuilles D'un meme classeur

OUPS

effectivement j'ai oublié de mettre de end with
je travaille le code sur un autre ordi, problème de recopiage

Lol

pour ton code, non il ne fonctionnait pas tel quel
de plus je ne connais pas la fonction resize

cordialement

Jammy
un passionné d'excel en cours d'evolution

 

Vote positif 0 Vote négatif