[Résolu par Efgé] Supprimer le module lors de la sauvegarde

[Lone-wolf]

Bonjour à tous

avec la macro ci-dessous, je n'arrive pas à supprimer le module lors de la sauvegarde(Enregistrer sous).

Sub Enrg_Sous()
Dim WbSource, WbDest As Workbook, chemin As String, nom As String
Application.ScreenUpdating = False
Set WbSource = Workbooks("Tableau.xls")
chemin = "C:\Users\" & Environ("username") & "\Desktop\Macro Test\"
With WbSource
.Sheets("Data").Range("a1:i37").AutoFilter Field:=1, Criteria1:=ActiveCell, Operator:=xlAnd
.Sheets("Data").Range("a2:i37").SpecialCells(xlCellTypeVisible).Copy .Sheets("Report").Range("a65536").End(xlUp)(2)
.Sheets("Report").Range("A:I").Columns.AutoFit
.Sheets("Report").Activate
nom = Activesheet.Range("a2")
ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xls", FileFormat:=xlExcel8

Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Data").Delete
'ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents.Item("Module1")
ActiveWorkbook.Save
Application.Quit
End With
End Sub

Mais, ce qui me surprend le plus, c'est que la feuille "Data" est bien supprimée mais pas le module. J'aimerais y inclure aussi une condition: si le module n'existe pas, ne pas prendre en considération la ligne de suppression.

 

[eddy1975]

Re : Supprimer le module lors de la sauvegarde

Bonjour Lone-Wolf,

C'est très simple tu tapes sur la touche Suppr de ton clavier.

Bonne journée.

Ps : c'est pour le coup du lien avec la ficelle hier.

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Bonjour eddy

No Problemo

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

Bonjour
Sans exemple..... une idée:
Pourquoi faire simple quand on peux faire compliqué.

Sub Enrg_Sous()
Dim WbSource, WbDest As Workbook, chemin As String
Application.ScreenUpdating = False
Set WbSource = Workbooks("Tableau.xls")
chemin = "C:\Users\" & Environ("username") & "\Desktop\Macro Test\"
With WbSource
    .Sheets("Data").Range("a1:i37").AutoFilter Field:=1, Criteria1:=ActiveCell, Operator:=xlAnd
    .Sheets("Data").Range("a2:i37").SpecialCells(xlCellTypeVisible).Copy .Sheets("Report").Range("a65536").End(xlUp)(2)
    .Sheets("Report").Range("A:I").Columns.AutoFit
    .Sheets("Report").Copy
 End With
ActiveWorkbook.SaveAs Filename:=chemin & nom = ActiveSheet.Range("a2") & ".xls", FileFormat:=xlExcel8
Application.ScreenUpdating = True
End With

Cordialement

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Bonjour Efgé

Merci pour la correction. Je vois que c'est mieux quand on fait compliqué.

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Rebonjour

@ Efgé: une correction de la correction de la ligne

ActiveWorkbook.SaveAs Filename:=chemin & nom = ActiveSheet.Range("a2") & ".xls" > Erreur Chemin

Sub Enrg_Sous()
Dim WbSource, WbDest As Workbook, chemin As String
Application.ScreenUpdating = False
Set WbSource = Workbooks("Tableau.xls")
chemin = "C:\Users\" & Environ("username") & "\Desktop\Macro Test\"
With WbSource
    .Sheets("Data").Range("a1:i37").AutoFilter Field:=1, Criteria1:=ActiveCell, Operator:=xlAnd
    .Sheets("Data").Range("a2:i37").SpecialCells(xlCellTypeVisible).Copy .Sheets("Report").Range("a65536").End(xlUp)(2)
    .Sheets("Report").Range("A:I").Columns.AutoFit
    .Sheets("Report").Activate
    ActiveSheet.Copy
    nom = ActiveSheet.Range("a2")
   ActiveSheet.SaveAs Filename:=chemin & nom & ".xls", FileFormat:=xlExcel8
 End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

RE
Bhein oui, erreur d'Efgé:

ActiveWorkbook.SaveAs Filename:=chemin & ActiveSheet.Range("a2") & ".xls"

Cordialement

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Re

Dans le fichier, j'ai deux macros maintentant (Enregistrer-sous et Copier à la suite dans le classeur créé)

Il y a moyens d'en faire qu'une seule à l'aide d'une condition? Exemple:

Si le fichier n'existe pas
Créer le fichier
Sinon
Ouvrir le fichier et copier à la suite.

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

Re
Bon, pourrais tu expliquer ce qu tu veux?
S'agit il de faire un classeur par nom en le créant si il n'éxiste pas et d'ajouter les données si le classeur existe déja ?
(Et ce pour chaque nom)
Cordialement

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Re Efgé

Oui, c'est tout à fait ça. J'ai essaié en faisant comme ceci

Rep = Dir(chemin & nom) If Rep = "" Then etc etc oubien If Rep <> "" then; aucune des conditions n'a marché.

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

RE
Une proposition (Macro a lancer par Alt+F8, comme d'hab quoi )
Cordialement

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Re Efgé,

la macro vas trooooooooooooooop vite! Et il il y a un problème. Comme dans les macros précédentes, il faut que je puisse choisir les noms. Et executer la macro ensuite.

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

RE
Je ne comprends plus

...(Et ce pour chaque nom)...

...Oui, c'est tout à fait ça...

Et si tu supprimais les noms dont tu n'as pas besoin dans le tableau source?

Cordialement

 

[Lone-wolf]

Re : Supprimer le module lors de la sauvegarde

Re Efgé,

Et si tu supprimais les noms dont tu n'as pas besoin dans le tableau source?

Si tu supprime les données en trop, comment ferais-tu par calculer le CA, la vente des produits par catégorie etc. de chaque employé??

Et ce pour chaque nom

Bein oui, c'est bien ce que font mes deux macros.

 

[Efgé]

Re : Supprimer le module lors de la sauvegarde

Re

Si c'est pour chaque nom, c'est pour tous les noms.
Si il faut faire des choix, il faut comprendre comment tu fait le choix.

Si tu peux faire des tris "a la main" tu peux masquer les lignes superflux et on ne prendra en compte que les lignes visibles.

Ou alors, ne prendre que la cellule que tu auras sélectionnée, mais c'est pas très propre....


Cordialement