OVH Cloud OVH Cloud

macro d'export et problème

1 réponse
Avatar
rick
bonjour,

cette macro me permet de copier une feuille d'un classeur et créer une
feuille dans un autre classeur en copiant cette feuille.

le probleme est que sur cette feuille j'ai des objets (bouton de commande).
je voudrai aussi qu'il apparaissent dans l'autre classeur.
mais le probleme est quand j'ouvre ce nouveau classeur, il est en lien avec
le classeur ancien. chose que je ne souhaite pas

les liaisons sont du au fait des boutons de commande.collé sur une autre
feuille

comment y remedier?
la macro est :
For Each sh In leClassACopier.Worksheets
If Not FeuilleExiste(leNouvClass, sh.Name) Then
leNouvClass.Worksheets.Add
leNouvClass.ActiveSheet.Name = sh.Name
leClassACopier.Worksheets(sh.Name).Cells.Copy _
leNouvClass.Worksheets(sh.Name).Range("A1")
leNouvClass.Worksheets(sh.Name).Visible = xlSheetVeryHidden
End If

merci d'avance

1 réponse

Avatar
Clément Marcotte
http://groups.google.com/groups?as_ugroup=microsoft.public.fr.excel&as_uauthors=%20or%%20or%%20or%%20or%%20or%&lr=&hl=fr


"rick" a écrit dans le message de
news:
bonjour,

cette macro me permet de copier une feuille d'un classeur et créer
une

feuille dans un autre classeur en copiant cette feuille.

le probleme est que sur cette feuille j'ai des objets (bouton de
commande).

je voudrai aussi qu'il apparaissent dans l'autre classeur.
mais le probleme est quand j'ouvre ce nouveau classeur, il est en
lien avec

le classeur ancien. chose que je ne souhaite pas

les liaisons sont du au fait des boutons de commande.collé sur une
autre

feuille

comment y remedier?
la macro est :
For Each sh In leClassACopier.Worksheets
If Not FeuilleExiste(leNouvClass, sh.Name) Then
leNouvClass.Worksheets.Add
leNouvClass.ActiveSheet.Name = sh.Name
leClassACopier.Worksheets(sh.Name).Cells.Copy _
leNouvClass.Worksheets(sh.Name).Range("A1")
leNouvClass.Worksheets(sh.Name).Visible = xlSheetVeryHidden
End If

merci d'avance