Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <johann0169@hotmail.com> a écrit dans le message de
news:c290tf$b82$1@news.tiscali.fr...
slt
comment fusionner toute les feuilles de plusieurs classeurs
sur une seule feuille d un nouveau classeur??
si c est possible
merci
à 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
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
marche po
ca ouvre x classeur
ouiiinnn
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de
news:OpFyzbtAEHA.2484@TK2MSFTNGP12.phx.gbl...
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" <johann0169@hotmail.com> a écrit dans le message de
news:c290tf$b82$1@news.tiscali.fr...
slt
comment fusionner toute les feuilles de plusieurs classeurs
sur une seule feuille d un nouveau classeur??
si c est possible
merci
à 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