Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

HELP COPIE DE CONTROL DANS USERFORM

  • Initiateur de la discussion stef
  • Date de début
S

stef

Guest
Bonjour,

je souhaite pouvoir copier les controls d'une USezrform vers une autre, le code suivant ne fonctionne pas???

Workbooks.Open Filename:="C:\Mes documents\SAUV.xls"

'SAUV.xls contient une Userform SAUVEGARD
'mais SAUV.xls n'est pas le fichier principal il est voué seulement à
'l'enregistrement

For Each Control In VIERGE.Controls
If Left(Control.Name, 3) <> "Com" Then
Set masq = VIERGE.ActiveControl
VIERGE.Copy
Workbooks("SAUV.xls").Activate
Set masq1 = SAUVEGARDE
With masq1
End With

Workbooks("PCINSTALL.xls").Activate
End If
Next Control


Merci de votre aide

Tomistef
 
S

stef

Guest
Rebonjour

Je me suis apperçu que le code exposé en question est complètement farfelu

Workbooks.Open Filename:="C:\Mes documents\SAUV.xls"

For each control in VIERGE.Controls

VIERGE.Copy
SAUVEGARDE.Paste
next

SAUVEGARDE est une Userforme de SAUV.xls qui n'est pas le programme principal

Merci
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…