Discussion :

[Ben_SG]

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.

[LeForestier]

Recommencer
Je ne crois pas qu'il y ai une solution à moins de le retrouver dans la corbeille.
A+

[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...

[ucfoutu]

Si tu ne touches plus à tien et que tu cherches parmi les fichiers temporaires d'Excel, tu as peut-être encore une chance ...

[LeForestier]

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

Tu sûr de ce que tu dit ?

[fred65200]

bonsoir

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

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
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

[LeForestier]

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

A+

Cordialement

[fred65200]

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

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".