fusion

Le
johann
slt
comment fusionner toute les feuilles de plusieurs classeurs
sur une seule feuille d un nouveau classeur??
si c est possible
merci

Johann
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ru-th
Le #362633
Salut

à vérifier
Sub Macro1()
ligne = 1
Workbooks.Add
With ThisWorkbook
For i = 1 To .Worksheets.Count
.Sheets(i).UsedRange
.Sheets(i).UsedRange.Copy ActiveWorkbook.Sheets(1).Range("a" & ligne)
ligne = ligne + .Sheets(i).UsedRange.Rows.Count
Next
End With
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"johann" news:c290tf$b82$
slt
comment fusionner toute les feuilles de plusieurs classeurs
sur une seule feuille d un nouveau classeur??
si c est possible
merci

Johann




johann
Le #362777
marche po
ca ouvre x classeur
ouiiinnn

"ru-th" news:
Salut

à vérifier
Sub Macro1()
ligne = 1
Workbooks.Add
With ThisWorkbook
For i = 1 To .Worksheets.Count
.Sheets(i).UsedRange
.Sheets(i).UsedRange.Copy ActiveWorkbook.Sheets(1).Range("a" & ligne)
ligne = ligne + .Sheets(i).UsedRange.Rows.Count
Next
End With
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"johann" news:c290tf$b82$
slt
comment fusionner toute les feuilles de plusieurs classeurs
sur une seule feuille d un nouveau classeur??
si c est possible
merci

Johann








Publicité
Poster une réponse
Anonyme