Sur une feuille j'ai un tableau qui dépend du contenu de la cellule H1,cette
cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les résutats
des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées
grace à une macro dans la feuille Base de CUMUL.
Ma macro est :
Sub EditionRecopier()
l = Range("H1").Value
s = ActiveSheet.Name
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
Sheets(s).Name = l
'récupérer en valeur les résultats du tableau
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub
1) Comment modifier :
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons par
des valeurs?
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
Daniel
Bonjour. 1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count) 2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value Cordialement. Daniel "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule H1,cette cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les résutats des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées grace à une macro dans la feuille Base de CUMUL. Ma macro est : Sub EditionRecopier() l = Range("H1").Value s = ActiveSheet.Name ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) Sheets(s).Name = l 'récupérer en valeur les résultats du tableau Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A1").Select End Sub
1) Comment modifier : ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons par des valeurs?
à+ j'espère
Bonjour.
1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count)
2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
Cordialement.
Daniel
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 52AEDC58-FC9D-4C92-AC5F-471477F9EC15@microsoft.com...
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule
H1,cette
cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les
résutats
des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées
grace à une macro dans la feuille Base de CUMUL.
Ma macro est :
Sub EditionRecopier()
l = Range("H1").Value
s = ActiveSheet.Name
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
Sheets(s).Name = l
'récupérer en valeur les résultats du tableau
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Range("A1").Select
End Sub
1) Comment modifier :
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons
par
des valeurs?
Bonjour. 1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count) 2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value Cordialement. Daniel "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule H1,cette cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les résutats des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées grace à une macro dans la feuille Base de CUMUL. Ma macro est : Sub EditionRecopier() l = Range("H1").Value s = ActiveSheet.Name ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) Sheets(s).Name = l 'récupérer en valeur les résultats du tableau Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A1").Select End Sub
1) Comment modifier : ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons par des valeurs?
à+ j'espère
Jean-Paul V
Bonsoir Daniel
Merci pour votre réponse, j'ai du modifier votre proposition 1) qui se plantait par : Sheets(s).Copy After:=Workbooks("CUMUL.xls").Sheets((Workbooks("CUMUL.xls").Sheets.Count))
le 2) est impec et plus élégant que ma solution
merci encore et à+
Bonjour. 1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count) 2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value Cordialement. Daniel "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule H1,cette cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les résutats des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées grace à une macro dans la feuille Base de CUMUL. Ma macro est : Sub EditionRecopier() l = Range("H1").Value s = ActiveSheet.Name ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) Sheets(s).Name = l 'récupérer en valeur les résultats du tableau Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A1").Select End Sub
1) Comment modifier : ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons par des valeurs?
à+ j'espère
Bonsoir Daniel
Merci pour votre réponse, j'ai du modifier votre proposition 1) qui se
plantait par :
Sheets(s).Copy
After:=Workbooks("CUMUL.xls").Sheets((Workbooks("CUMUL.xls").Sheets.Count))
le 2) est impec et plus élégant que ma solution
merci encore et à+
Bonjour.
1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count)
2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
Cordialement.
Daniel
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 52AEDC58-FC9D-4C92-AC5F-471477F9EC15@microsoft.com...
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule
H1,cette
cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les
résutats
des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées
grace à une macro dans la feuille Base de CUMUL.
Ma macro est :
Sub EditionRecopier()
l = Range("H1").Value
s = ActiveSheet.Name
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
Sheets(s).Name = l
'récupérer en valeur les résultats du tableau
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Range("A1").Select
End Sub
1) Comment modifier :
ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1)
pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons
par
des valeurs?
Merci pour votre réponse, j'ai du modifier votre proposition 1) qui se plantait par : Sheets(s).Copy After:=Workbooks("CUMUL.xls").Sheets((Workbooks("CUMUL.xls").Sheets.Count))
le 2) est impec et plus élégant que ma solution
merci encore et à+
Bonjour. 1. ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(Sheets.Count) 2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value Cordialement. Daniel "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
Sur une feuille j'ai un tableau qui dépend du contenu de la cellule H1,cette cellule va prendre 5 valeurs,Je veux copier sur un fichier CUMUL les résutats des 5 feuilles sur 5 feuilles, ces 5 feuilles seront ensuite consolidées grace à une macro dans la feuille Base de CUMUL. Ma macro est : Sub EditionRecopier() l = Range("H1").Value s = ActiveSheet.Name ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) Sheets(s).Name = l 'récupérer en valeur les résultats du tableau Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A1").Select End Sub
1) Comment modifier : ActiveSheet.Copy After:=Workbooks("CUMUL.xls").Sheets(1) pour que la copie soit en dernier?
2) y-a-t-il une autre solution pour remplacer les fourmules de liaisons par des valeurs?
