Discussion :

[BenoitL77]

Bonjour le forum
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Worksheets("Selection").Copy                'copier l'onglet selection dans un nv fichier
ActiveWorkbook.Application.Dialogs(xlDialogSaveAs).Show nouveau_fichier 'enregistrer-sous ce fichier, avec boite de dialogue Excel
                                                                        'nouveau_fichier = chemin+nomfichier+.xlsx
 
'supprimer le code de la feuille
With ActiveWorkbook.VBProject.VBComponents _
            (ActiveWorkbook.Sheets("Selection").CodeName).CodeModule
            .DeleteLines 1, .CountOfLines
            .CodePane.Window.Close
        End With
 
'purger la feuille des cellules en trop
'...
'....
 
 
        'enregistrer le fichier
        ActiveWorkbook.Save

Je copie la feuille d'un fichier existant dans un fichier tout neuf. La feuille d'origine porte un code (Worksheet_change, worksheet_selectionchange...).
Bien que j'enregistre mon nouveau fichier en .xlsx (donc sans macro??) ma nouvelle feuille porte encore son code. Qui me bloque pour la suite.
J'ai essayé plusieurs méthodes pour supprimer ce code, dont celle ci dessus, mais à chaque fois ça bloque, avec messages d'erreur divers et variés.

Quelqu'un aurait une piste?

Nota : je tiens à passer par la fenêtre de dialogue "enregistrement" pour pouvoir gérer le nom du fichier, le chemin, au cas où celui donner par la macro ne convienne pas à l'utilisateur.

Merci d'avance
Benoit

[Invité]

Bien que j'enregistre mon nouveau fichier en .xlsx (donc sans macro??) ma nouvelle feuille porte encore son code. Qui me bloque pour la suite.

Bonjour,

Même en le fermant et en le rouvrant, et en le sauvegardant dans le bon format ?

[BenoitL77]

Bonjour Eric, merci pour ce retour rapide

Effectivement, je ferme, je réouvre et le code à disparu.
J'en déduit qu'il faut ajouter un "close" et un "open" à mon code?

Est ce qu'il y aurai une méthode pour copier en excluant le code?

Merci
Benoit

[BenoitL77]

Je viens d'ajouter un Application.EnableEvents = False à la place du With. Et un Application.EnableEvents = True à la fin
ça empêche le code de bloquer la 'purge'.
A la fin, le code est toujours présent. Mais si je ferme/ouvre, il n'est plus là.

Et ça me va bien comme ça !

Je trouve ça bizarre quand même...pourquoi ça marche comme ça?

Merci et bonne soirée
Benoit

[Invité]

A tester. J'ai mis le format du fichier en paramètre, à voir si cela fonctionne chez toi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub TestSauvegarde()
 
'Dim nouveau_fichier As String
 
 
      ' nouveau_fichier = ActiveWorkbook.Path & "\MonFichier.xlsx"
 
        'copier l'onglet selection dans un nv fichier
        Worksheets("Selection").Copy
        With ActiveWorkbook.Application.Dialogs(xlDialogSaveAs)
 
            .Show nouveau_fichier, xlOpenXMLWorkbook 'enregistrer-sous ce fichier, avec boite de dialogue Excel
                                                                        'nouveau_fichier = chemin+nomfichier+.xlsx
        End With
        'supprimer le code de la feuille
        With ActiveWorkbook.VBProject.VBComponents _
                    (ActiveWorkbook.Sheets("Selection").CodeName).CodeModule
                    .DeleteLines 1, .CountOfLines
                    .CodePane.Window.Close
        End With
 
        'purger la feuille des cellules en trop
        '...
        '....
 
 
        'enregistrer le fichier
        ActiveWorkbook.Save
 
End Sub

[Philippe Tulliez]

Bonjour,
Personnellement, je n'aime pas faire écrire ou supprimer des codes VBA par lui-même surtout si ce code doit fonctionner sur d'autres PC

Une solution qui fonctionne avec une procédure à placer dans un moduie standard (shtData est le CodeName de la feuille que l'on copie)
La feuille est copiée dans un nouveau classeur que l'on sauve en classeur sans macro (xlsx) et on le ferme

Code :

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

1
2
3
4
5
6
7
Sub CopySheet()
  shtData.Copy   
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=Format(Date, "yymmdd") & "- Test", FileFormat:=xlOpenXMLWorkbook
  Application.DisplayAlerts = True
  ActiveWorkbook.Close
End Sub

Si ce sont des procédures événementielles de type WorkSheet, une autre solution est d'utiliser les procédures événementielles préfixées Workbook_Sheet dans ThisWorkbook

[BenoitL77]

Merci Messieurs pour ces retours.
Encore une fois je cherche des trucs qui s'avèrent compliqués...

Je vais donc resté sur la solution du applications.enableEvents décrite dans mon précédent post.
Même si je travaille un peu dans ce nouveau fichier avant de l'avoir fermé/ouvert, le code résistant ne peut plus me gêner une fois la purge faite.
Il ne gêne que pour faire la purge.

@Eric
J'ai testé ton code et ça plante toujours en ligne 17-18, avec le message "L'accès par programme au projet Visual Basic n'est pas fiable"...
Comme quoi, même Excel est d'accord avec Philippe sur ce point ! !
A ta dispo pour tester autre chose si ta curiosité t'y pousse.

Pour ma part, sujet clos

Encore merci
Benoit