[ VBA EXCEL] Enregistrement Macro

Question

Bonjour,

Pour réaliser la traçabilité de pièces, je réalise un archivage à chaque fois qu'une pièce sort de la ligne d'assemblage.
Pour Réaliser ceci , j'appelle un fichier excel archive avec une macro qui me permet de charger mes données de la pièce puis d'enregistrer un nouveau fichier avec le nom de la piece. ( fonction SaveAs).
Le problème est que la macro est enregistrée avec le nouveau fichier que j'enregistre.
Je ne voudrais pas que cette macro soit enregistrée avec.
Comment faire pour enregistrer mon nouveau fichier Excel avec seulement mon tableau Excel et pas la macro?

Merci à vous.

Mike

mortalino · Answer

Salut,

alors ajoute un nouveau classeur (Application.WorkBooks.Add)
Et copie te feuille vers le nouveau classeur.

Sinon là je l'ai pas sur moi mais demain je te mettrai le code pour supprimer du code (ou / et un module)

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Je vois ta petite feinte mais je peux pas utiliser cette technique.
Je dois avoir un fichier Excel par code commande pour ma tracabilité.
J'attends que tu me mettes le code pour supprimer du code.

Bon aprem.

A+

Mike

mortalino · Answer

Merci & bonne Aprem à toi aussi. Je te met le code demain matin.

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

mortalino · Answer

Salut,

' rajoute la référence suivante :
' Microsoft Visual Basic for Applications 6.0 Extensibility
' (Program Files\Microsoft Visual Studio\VB98\VB6EXT)


'*** 1 ERE POSSIBILITE : SUPPRESSION OBJET ***
Sub EffaceModule()

    Workbooks.Open ("C:\Documents and Settings\Nic\Bureau\Test Suppr.xls") _
On Error GoTo ErrHandle

ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents("Module1")

MsgBox "Le Module a été suprimer"
ActiveWorkbook.Close True
Exit Sub

ErrHandle:
MsgBox "ERREUR dans la suppression du Module", vbOKOnly + vbCritical

End Sub

'*** 2 NDE POSSIBILITE : SUPPRESSION CODE DANS OBJET ***
Sub EffaceCodeObjet()

    Workbooks.Open ("C:\Documents and Settings\Nic\Bureau\Test Suppr.xls") _
On Error GoTo ErrHandle

' l'exemple au dessous c'est pour effacer le code dans Module1 (tu peux faire pareil
'en remplacant 'Module1' par 'UserForm1', 'Class1'.(met les noms que tu as mis))

With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
    .DeleteLines 1, .CountOfLines
End With

MsgBox "Le code du Module a été suprimer"
ActiveWorkbook.Close True
Exit Sub

ErrHandle:
MsgBox "ERREUR dans la suppression du code du Module", vbOKOnly + vbCritical

End Sub

'*** 3 EME POSSIBILITE : SUPPRESSION CODE DANS THISWORKBOOK_OPEN ***
Sub EffaceCodeThisWorkBook()
    Dim xlApp As New Excel.Application
    Dim xlBook As Workbook
    
        Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
        Set xlBook = xlApp.Workbooks.Open("C:\Documents and _
Settings\Nic\Bureau\Test Suppr.xls")
    
xlApp.Visible = True
xlBook.Close True
        Set xlBook = Nothing
        Set xlApp = Nothing

'En utilisant cette procédure pour effacer dans ThisWorkbook_Open,
'il faut absolument placer ce code ci-dessous dans ThisWorkbook_Open
'du classeur original, en premier dans la pocédure

'If Application.Visible = False Then
'    With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
'        .DeleteLines 1, .CountOfLines
'    End With
'End If

End Sub


'Voilà, j'y ai passé 2 heures avec les test mais je te remercie, car je n'avais que lit
'ces procédures sans les tester, et ça m'a appris des choses.
'D'ailleurs, je l'ai mis en source.  ;-))

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Merci beaucoup pour cette belle recherche.
J arrive pas a appliquer la troisieme methode.
Ou place tu ce code dans ta macro "ThisWorbook"?
J'ai fait plusieurs essais mais j'y arrive pas. C'est trop la lutte.
Merci

Private Sub Workbook_Open()

-------------
-------------

------------

Fichier = "C:\Temp\Archivage_Chariots" & CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls"


ActiveWorkbook.SaveAs Filename:=Fichier
        
Application.DisplayAlerts = False
Application.Quit

End Sub

Mike

cs_mike42 · Answer

Comment rajouter cette réference aussi s'il te plait?
Comme tu peux le constater , je ne sui spas expert en VBA.
Merci.

a+

Mike

mortalino · Answer

Salut,

dans l'éditeur VB d'Excel, dans le menu Outils, référence.
(c'est par ordre alphabétique)

Ensuite, dans ton fichier 'original', place

If Application.Visible = False Then
    With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
        .DeleteLines 1, .CountOfLines
    End With
End If

Dans ThisWorkBook_Open, en tout premier (avant tes codes)

Le reste : 

    Dim xlApp As New Excel.Application
    Dim xlBook As Workbook
    
        Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
        Set xlBook = xlApp.Workbooks.Open("C:\Documents and _
Settings\Nic\Bureau\Test Suppr.xls")
    
xlApp.Visible = True
xlBook.Close True
        Set xlBook = Nothing
        Set xlApp = Nothing


doit être placé dans ta procédure, juste après avoir enregistré ton fichier par le 'SaveAs' et l'avoir fermé.

En gros, t'enregistre le fichier avec la date du jour, tu fermes ce fichier.
Tu le réouvres avec mon code (donc en invisible) et le code de suppression de la procédure s'execute.

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Ok, impossible d'aller dans outils\References, je ne peux pas selectionner...

Mike

cs_mike42 · Answer

Ah si c bon.
Je test tout ca.
Merci encore.

Mike

mortalino · Answer

De rien.

N'hésite pas si t'as des soucis !

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

mortalino · Answer

De rien.

N'hésite pas si t'as des soucis !

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Je n'y arrive pas.
Mon programme plante méchamment.
Pour la reference je n'ai que la 5.3 de dispo et pas la 6.0

Début de mon prog :

Private Sub Workbook_Open()



If Application.Visible = False Then
    With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
        .DeleteLines 1, .CountOfLines
    End With
End If







Voici la fin de mon pgm: ( ca plante ou a la ligne surlignée en rouge)

Fichier = "C:\Temp\Archivage_Chariots" & CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls"



ActiveWorkbook.SaveAs Filename:=Fichier



 Dim xlApp As New Excel.Application
    Dim xlBook As Workbook
    
        Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False

        Set xlBook = xlApp.Workbooks.Open("C:\Temp\Archivage_Chariots" & CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls")
    
xlApp.Visible = True
xlBook.Close True
        Set xlBook = Nothing
        Set xlApp = Nothing




 



        
Application.DisplayAlerts = False
Application.Quit




 



End Sub



Mike

mortalino · Answer

alors remplace 

Set xlBook = xlApp.Workbooks.Open("C:\Temp\Archivage_Chariots" & CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls")

par

Set xlBook = xlApp.Workbooks.Open(Fichier)

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Quand je fais ca :

Set xlBook = xlApp.Workbooks.Open(CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls")

Ca plante aussi, ca me met une erreur : "Erreur définie par l'application ou par l'objet"

C'est la bonne lutte, je me rends malade

Mike

mortalino · Answer

Je pense que c'est à cause du ReferenceChassis.
Il n'est connu que dans sa procédure initiale.

Dans les déclarations du Module (ou UserForm), 
met Dim ReferenceChassis, tout en haut.

Et supprime la déclaration de cette variable là où tu l'avais mis à l'origine.

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Toujours pas,

J'ai fais comme ca, et j'ai un bon nom de fichier dans   NomFichier

NomFichier = CStr(ReferenceChassis) & " du " & _
Replace(CStr(Format(Date, vbShort)), "/", "_") & ".xls"
Set xlBook = xlApp.Workbooks.Open(NomFichier)

Je ne comprends pas du tout.
Excuse moi de t'embeter autant

Mike

mortalino · Answer

Vérifie les processus Excel !
Par sécurité, enregistre ton fichier et ferme le. Puis Kill tous les processus Excel.

T'en as paut-être qui ne se sont pas fermé.

En attendant je regarde mais je comprends pas vraiment pourquoi.

Pour la version 5.3 de l'extensibility, c'est bon quand même.

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

cs_mike42 · Answer

Toujours la meme erreur.
Je comprends plus la....

A+

Mike

[ VBA EXCEL] Enregistrement Macro

18 réponses

Votre réponse

Discussions similaires