Discussion :

[cati_78]

Bonjour,

Je me permets de solliciter votre aide sur le point suivant :

Je souhaite copier un onglet (classeur origine) dans un autre classeur (final). Le problème, c'est qu'il y a du code associé à l'onglet (du fichier origine) : sub worksheet_activate(). Quand je copie l'onglet, le code l'est aussi. Je ne sais pas comment faire pour effacer automatiquement la macro associée à cette feuille dans le nouveau classeur.

Dans le cas où je souhaite copier un onglet dont le code fait référence à plusieurs modules notamment, que dois-je faire pour que l'onglet fonctionne correctement dans le nouveau classeur ?

Merci d'avance pour votre aide.

[LeForestier]

Bonjour,
Solution 1. quand tu à copier la feuille aller dans l'éditeur VBA et supprimer le code.
Solution 2. Faire un copier/coller des cellules sur une nouvelle feuille vierge, quitte à renommer cette nouvelle feuille.
A+

[ouisansdoute]

Bonjour,

Quand je copie l'onglet, le code l'est aussi. Je ne sais pas comment faire pour effacer automatiquement la macro associée à cette feuille dans le nouveau classeur.

Le code associé à la feuille peut-il être mis dans un module et non dans l'onglet ?

Dans le cas où je souhaite copier un onglet dont le code fait référence à plusieurs modules notamment, que dois-je faire pour que l'onglet fonctionne correctement dans le nouveau classeur ?

un export/import de modules peut-être
ou alors
enregistrer le fichier d'origine avec un nouveau nom puis supprimer toutes les autres feuilles ?

[Didier Gonard]

Bonjour

Un peu de recherche sur le forum t'aurais donné ce que tu cherches
vois à :

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

plus précisément en IV-D...

cordialement,

Didier

[cati_78]

Bonjour,

J'ai suivi la documentation. Mais la procédure évènementielle liée à la feuille (worksheet_change) est toujours présente dans l'onglet du classeur final.
Je ne comprends pas pourquoi.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sheets ("Liste").copy
with Activeworkbook.vbproject.vbcomponents("Feuil1").codeModule
     .deleteLines 1,.countoflines
end with

Merci d'avance pour votre aide.

[cati_78]

Bonjour,

Même en mettant au début de la procédure, le résultat reste inchangé.

Je souhaite connaître la démarche à suivre pour résoudre ce problème.

Merci d'avance pour votre aide.

[LeForestier]

Bonjour,
Solution 1. quand tu à copier la feuille aller dans l'éditeur VBA et supprimer le code.
Solution 2. Faire un copier/coller des cellules sur une nouvelle feuille vierge, quitte à renommer cette nouvelle feuille.
A+

C'est en effet les solutions les plus réalistes...
La 2 pouvant être faite par macros, c'est à creuser.
A+

[Didier Gonard]

Bonjour,

Voici un code qui fait ce que tu veux, lancé par un bouton sur un USF.
Je crée un nouveau classeur, y copie la feuille Toto en première position, supprime le code vba voulu et enregistre le nouveau classeur dans le même répertoire que celui d'origine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdCopieFeuil_Click()
Dim wbClassCible As Workbook
 
Application.Workbooks.Add
Set wbClassCible = ActiveWorkbook
ThisWorkbook.Activate
Application.EnableEvents = False 'Evite le déclenchement de l'évènementiel non supprimé à ce stade
Worksheets("Toto").Copy Before:=wbClassCible.Sheets(1)
Application.EnableEvents = True
With wbClassCible.VBProject.VBComponents("Feuil" & "" & wbClassCible.Sheets.Count & "").CodeModule 'propriété Sheets et non Worksheets ;)
.DeleteLines 1, .CountOfLines
End With
wbClassCible.SaveAs Filename:=ThisWorkbook.Path & "\ClasseurCible"
End Sub

Ps : Attention les index des feuilles sont indépendants entre le classeur et l'éditeur vba....

Cordialement,