Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

fusion

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

Johann

2 réponses

Avatar
ru-th
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" a écrit dans le message de
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




Avatar
johann
marche po
ca ouvre x classeur
ouiiinnn

"ru-th" a écrit dans le message de
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" a écrit dans le message de
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