Procédure pour modifier un userform et un classeur fermé
Fermé
titdebutant
Messages postés
4
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je souhaite injecter une modification d'un userform et des feuilles dans un classeur fermé.
J'ai tenté la procédure avec un fichier ouvert, mais ce n'est pas possible apparemment car lorsque le fichier cible s'ouvre, il ouvre directement un userform par macro et donc je ne peux plus le supprimer.
est ce que c'est possible avec un classeur fermé ?
voici le bout de code que j'utilise :
je souhaite injecter une modification d'un userform et des feuilles dans un classeur fermé.
J'ai tenté la procédure avec un fichier ouvert, mais ce n'est pas possible apparemment car lorsque le fichier cible s'ouvre, il ouvre directement un userform par macro et donc je ne peux plus le supprimer.
est ce que c'est possible avec un classeur fermé ?
voici le bout de code que j'utilise :
Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
With VBComps("Vacances")
Select Case .Type
Case 100
With .CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComps("Vacances")
End Select
End With
ThisWorkbook.VBProject.VBComponents("Vacances").Export _
ThisWorkbook.Path & "\UserForm1.frm"
ActiveWorkbook.VBProject.VBComponents.Import ActiveWorkbook.Path & "\" & "UserForm1.frm"
Kill ThisWorkbook.Path & "\" & "UserForm1.frm"
Kill ThisWorkbook.Path & "\" & "UserForm1.frx"
A voir également:
- Procédure pour modifier un userform et un classeur fermé
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Modifier l'extension d'un fichier - Guide
- Ouvrir un onglet fermé - Guide
- Application se ferme toute seule android - Guide
Merci de poster toutes tes questions sur le même post en cliquant sur le bouton "répondre" en bleu. Ce sera plus simple pour te suivre...
Strumpfette, modératrice.