Perdu Projet VBA

Version imprimable

18/12/2007, 18h34
Ben_SG

Perdu Projet VBA

Bonjour à tous,
Apres avoir parcouru quelques discussions du forum (pas toutes je l'avoue) et n'ayant rien trouvé en rapport avec mon problème je poste donc ce message.
Voila pour faire simple, j'ai monté un ptit projet VBA contenant des userforms et du code. Tout allait plutot bien jusqu'a ce que je perde l'integralité de mon projet sauf des données inscrites sur les feuilles liées. Le fichier est passé de 500Ko à 30Ko... Je ne comprend absolument rien... J'ai essayé de le trimballé entre plusieurs versions d'excel et rien à faire... Quelqu'un peut il m'aider s'il vous plait? Je vous en serai très reconnaissant.
Merci d'avance.
Benoit.
18/12/2007, 18h37
LeForestier

:pleure::pleure::pleure: Recommencer :?
Je ne crois pas qu'il y ai une solution à moins de le retrouver dans la corbeille.
A+
18/12/2007, 18h47
Ben_SG

Oui c'est bien ce qu'il me fait peur... Je n'ai pourtant absolument rien fait de spécial, pas d'erreur de sauvegarde ou quoique ce soit du genre... enfin je pense...
Merci quand meme...
18/12/2007, 19h51
ucfoutu

Si tu ne touches plus à tien et que tu cherches parmi les fichiers temporaires d'Excel, tu as peut-être encore une chance ...
19/12/2007, 00h23
LeForestier

Citation:

J'ai essayé de le trimballé entre plusieurs versions d'excel et rien à faire...

Tu sûr de ce que tu dit ?

code sauvegarde macro

bonsoir

pour les prochaines fois, un code qui enregistre les macros du classeur actif dans un dossier .

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Option Explicit
Sub SauvegardeMacros()
Dim AWbk As Workbook
Dim DateEtHeure As String
Dim NomSansExt As String
Dim DossierSauvegarde As String
 
Set AWbk = ActiveWorkbook
 
' Activation de la référence
' "Microsoft Visual Basic for Applications Extensibility"
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid _
    GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=0, Minor:=0
On Error GoTo 0
 
DateEtHeure = "-" & Format(Now, "dd-mm-yy hh-mm-ss")
NomSansExt = Mid(AWbk.Name, 1, InStr(1, AWbk.Name, ".") - 1)
DossierSauvegarde = AWbk.Path & Application.PathSeparator & "Code " & NomSansExt & DateEtHeure
 
'Exportation des modules
ExportAllVBA AWbk.Name, DossierSauvegarde
 
If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
  Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & DossierSauvegarde, vbNormalFocus
End Sub
Sub ExportAllVBA(Quoi, Destination)
'macro d'origine de Chip pearson
'http://www.cpearson.com/excel/vbe.aspx
Dim VBComp As VBIDE.VBComponent
Dim Ext As String
Dim DossierSauvegarde As String
Dim Wbk As Workbook
Dim Dest As String
 
'Création des dossiers de destination
DossierSauvegarde = Destination
MkDir DossierSauvegarde
MkDir DossierSauvegarde & Application.PathSeparator & "Modules de feuille"
 
'export des codes
Set Wbk = Workbooks(Quoi)
 
For Each VBComp In Wbk.VBProject.VBComponents
   Select Case VBComp.Type
        Case vbext_ct_ClassModule
           Ext = ".cls": Dest = Destination
        Case vbext_ct_MSForm
           Ext = ".frm": Dest = Destination
        Case vbext_ct_StdModule
           Ext = ".bas": Dest = Destination
        Case vbext_ct_Document
           Ext = ".cls": Dest = Destination & Application.PathSeparator & "Modules de feuille"
        Case Else
           Ext = ""
    End Select
    If Ext <> "" Then
       VBComp.Export _
          Filename:=Dest & Application.PathSeparator & VBComp.Name & Ext
       Dest = ""
    End If
Next VBComp
End Sub

cordialement

19/12/2007, 15h53
LeForestier

erreur de manip

Bonjour Fred, :king:
Tu devrais mettre ce code dans un tuto.
Peut-être ajouté une fonction 'Import'
:king:
A+

Cordialement
20/12/2007, 04h15
fred65200

Sauvegarde de macros et importation

Citation:

Envoyé par LeForestier

Bonjour Fred, :king:
Tu devrais mettre ce code dans un tuto.
Peut-être ajouté une fonction 'Import'
:king:
A+

Bonsoir LeForestier,

on pourra dire que tu m'as bien fait travailler ce soir.

Une petite modification dans le code de sauvegarde, et quelques macros pour l'importation.

Je ne sais pas si ça mérite un tutoriel, à défaut, j'ai posté sur "Contribuer".