Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
e37EwbuuFHA.4040@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
e37EwbuuFHA.4040@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
A ) copie la totalité de la feuille source vers la feuille de destination
B ) copie toutes les cellules de la feuille du classeur de destination
devant recevoir les "contrôles" vers la nouvelle feuille.
C ) Ajoute à la nouvelle feuille, tous les commentaires qui se trouvaient
dans la feuille source.
Il ne te reste plus qu'à adapter le nom des objets.
'----------------------------------------------
Sub CopierFeuille()
Dim Wk As Workbook, Dest As Workbook
Dim Sh As Worksheet, C As Comments
Dim cc As Comment, Adr As String
Dim Nom As String, Ind As Integer
Set Wk = ThisWorkbook 'Classeur Source
Set Dest = Workbooks("Classeur2") 'Classeur destination
Application.DisplayAlerts = False
With Wk
With .Worksheets("Feuil2") 'Nom Feuille à déterminer
Set C = .Comments
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
'Nom feuille du classeur destination
'qui contient les données à déterminer
With .Worksheets("Feuil2")
Nom = .Name
Ind = .Index
.Cells.Copy _
Worksheets(Sh.Name).Range("A1")
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
'Copie tous les commentaires de la feuille
'source vers la feuille de destination
For Each cc In C
Adr = cc.Parent.Address
Sh.Range(Adr).ClearComments
Sh.Range(Adr).AddComment cc.Text
Next
'Renomme et replace la nouvelle feuille à l'endroit
'de l'ancienne .
With Sh
.Move before:=Sheets(Ind)
.Name = Nom
End With
Set Wk = Nothing: Set Dest = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
%
Bonjour Michel denis
merci de ton info
Si je comprens bien je copie la feuille dans le classeur destination avec
worsheet.copy destination puis recopie cette feuille avec cells copy
destination
et cela supprimerait mon prob de gonflement...
A ce sujet j'ai remplacé plusieurs fois la feuille qui posait probleme et
ça semble avoir disparu pour le moment cependant, quand je fais
for i...
sheet.shapes(i).name
je découvre qu'il existe dans chaque feuille des commentaires qui
n'existent
pas toutes en réalité !!!
apparemment quand je fais shapes("Commentaire 154").delete, il s'efface...
il faut que je passe toutes les feuilles en revue... bizarre tout ça...
merci a toi
André
"michdenis" a écrit dans le message de news:Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module
standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
A ) copie la totalité de la feuille source vers la feuille de destination
B ) copie toutes les cellules de la feuille du classeur de destination
devant recevoir les "contrôles" vers la nouvelle feuille.
C ) Ajoute à la nouvelle feuille, tous les commentaires qui se trouvaient
dans la feuille source.
Il ne te reste plus qu'à adapter le nom des objets.
'----------------------------------------------
Sub CopierFeuille()
Dim Wk As Workbook, Dest As Workbook
Dim Sh As Worksheet, C As Comments
Dim cc As Comment, Adr As String
Dim Nom As String, Ind As Integer
Set Wk = ThisWorkbook 'Classeur Source
Set Dest = Workbooks("Classeur2") 'Classeur destination
Application.DisplayAlerts = False
With Wk
With .Worksheets("Feuil2") 'Nom Feuille à déterminer
Set C = .Comments
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
'Nom feuille du classeur destination
'qui contient les données à déterminer
With .Worksheets("Feuil2")
Nom = .Name
Ind = .Index
.Cells.Copy _
Worksheets(Sh.Name).Range("A1")
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
'Copie tous les commentaires de la feuille
'source vers la feuille de destination
For Each cc In C
Adr = cc.Parent.Address
Sh.Range(Adr).ClearComments
Sh.Range(Adr).AddComment cc.Text
Next
'Renomme et replace la nouvelle feuille à l'endroit
'de l'ancienne .
With Sh
.Move before:=Sheets(Ind)
.Name = Nom
End With
Set Wk = Nothing: Set Dest = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------------
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
%23K6XiF4uFHA.252@TK2MSFTNGP09.phx.gbl...
Bonjour Michel denis
merci de ton info
Si je comprens bien je copie la feuille dans le classeur destination avec
worsheet.copy destination puis recopie cette feuille avec cells copy
destination
et cela supprimerait mon prob de gonflement...
A ce sujet j'ai remplacé plusieurs fois la feuille qui posait probleme et
ça semble avoir disparu pour le moment cependant, quand je fais
for i...
sheet.shapes(i).name
je découvre qu'il existe dans chaque feuille des commentaires qui
n'existent
pas toutes en réalité !!!
apparemment quand je fais shapes("Commentaire 154").delete, il s'efface...
il faut que je passe toutes les feuilles en revue... bizarre tout ça...
merci a toi
André
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
Oj4JfpuuFHA.3400@TK2MSFTNGP14.phx.gbl...
Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module
standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
e37EwbuuFHA.4040@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
A ) copie la totalité de la feuille source vers la feuille de destination
B ) copie toutes les cellules de la feuille du classeur de destination
devant recevoir les "contrôles" vers la nouvelle feuille.
C ) Ajoute à la nouvelle feuille, tous les commentaires qui se trouvaient
dans la feuille source.
Il ne te reste plus qu'à adapter le nom des objets.
'----------------------------------------------
Sub CopierFeuille()
Dim Wk As Workbook, Dest As Workbook
Dim Sh As Worksheet, C As Comments
Dim cc As Comment, Adr As String
Dim Nom As String, Ind As Integer
Set Wk = ThisWorkbook 'Classeur Source
Set Dest = Workbooks("Classeur2") 'Classeur destination
Application.DisplayAlerts = False
With Wk
With .Worksheets("Feuil2") 'Nom Feuille à déterminer
Set C = .Comments
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
'Nom feuille du classeur destination
'qui contient les données à déterminer
With .Worksheets("Feuil2")
Nom = .Name
Ind = .Index
.Cells.Copy _
Worksheets(Sh.Name).Range("A1")
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
'Copie tous les commentaires de la feuille
'source vers la feuille de destination
For Each cc In C
Adr = cc.Parent.Address
Sh.Range(Adr).ClearComments
Sh.Range(Adr).AddComment cc.Text
Next
'Renomme et replace la nouvelle feuille à l'endroit
'de l'ancienne .
With Sh
.Move before:=Sheets(Ind)
.Name = Nom
End With
Set Wk = Nothing: Set Dest = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
%
Bonjour Michel denis
merci de ton info
Si je comprens bien je copie la feuille dans le classeur destination avec
worsheet.copy destination puis recopie cette feuille avec cells copy
destination
et cela supprimerait mon prob de gonflement...
A ce sujet j'ai remplacé plusieurs fois la feuille qui posait probleme et
ça semble avoir disparu pour le moment cependant, quand je fais
for i...
sheet.shapes(i).name
je découvre qu'il existe dans chaque feuille des commentaires qui
n'existent
pas toutes en réalité !!!
apparemment quand je fais shapes("Commentaire 154").delete, il s'efface...
il faut que je passe toutes les feuilles en revue... bizarre tout ça...
merci a toi
André
"michdenis" a écrit dans le message de news:Bonjour AndréSch,
Essaie ceci :
Le principe...
a ) tu copies la totalité de la feuille vers l'autre classeur
b ) tu copies les données de la feuille de l'autre classeur vers la
feuille que tu viens d'ajouter au classeur.
Tu copies cette procédure dans le classeur source dans un module
standard.
'-----------------------------
Sub CopierFeuille()
Dim Wk As Workbook
Dim Dest As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
Set Dest = Workbooks("Classeur2")
With Wk
With .Worksheets("Feuil1")
.Copy After:Þst.Sheets(Sheets.Count)
Set Sh = ActiveSheet
End With
End With
With Dest
.Worksheets("Feuil2").Cells.Copy _
Worksheets(Sh.Name).Range("A1")
End With
Set Wk = Nothing: Set Dest = Nothing : Set Sh = Nothing
End Sub
'-----------------------------
Salutations!
"AndréSch" a écrit dans le message de news:
Bonjour à tous
je veux copier des objects placés sur une feuille de travail, sur une
autre.dans un autre classeur (sauvegarde, 17 feuilles...)
si les graphiques, par exemple, dépassent la userrange, ils ne sont pas
pris
avec un copier-coller...
je veux eviter le cells.copy > destination car il enmene avec lui la
cause
inconnue du gonflement rapide de mon fichier par une feuiolle que je ne
touche jamais ??? ni le VBA.....
bref..
je fais :
activesheet.shapes.selectall
selection.shaperange.groupe
??????????????
???????????????
là je voudrais relever 2 points X et Y caractéristiques pour placer ma
copie
qui se met n'importe où...
selection.copy
activer l'autre classeur
activeshett.paste
et j'ai trouvé comment placer le groupe sur les X:
selection.shaperange.left = activesheet.colonne"A".left
je n'ai pas encore trouvé pour Top..
et je ne saurai pas utiliser les données de X et Y si je les ai...
merci donc à qui pourra me faire faire le pas final...
Joyeux WE
André
