Perte de données et plus aucune procédure ne s'exécute, sauf la procédure d'ouverture

**Tho69** · 07/08/2013, 13h01

Bonjour,

Je travaille sur la programmation d'un classeur Excel depuis quelque temps.
Aujourd'hui en ouvrant mon classeur je n'avais plus les dernières modifications faite à ce classeur la veille. Pourtant en allant dans les propriétés du documents je me suis aperçu que je l'avais bien enregistrer hier avant d'éteindre mon ordinateur. De plus maintenant quand je l'ouvre, la procédure d'ouverture s'execute mais ensuite plus moyen de lancer les autres procédures.

Si quelqu'un sait d'où peuvent venir ses deux symptômes, je suis tout ouïe.

Merci.

Thomas

**EngueEngue** · 07/08/2013, 13h05

Lecture Seule / Plantage d'excel / Fichier corrupt / Procédure d'ouverture qui fait quelque chose qui bloque.

Peut on voir ta procédure d'ouverture ?

Invité · 07/08/2013, 13h05

Bonjour

De plus maintenant quand je l'ouvre, la procédure d'ouverture s'execute mais ensuite plus moyen de lancer les autres procédures.

Je ne vois pas comment on peut savoir si on a pas le ou les codes qui se déclenchent, s'il y a des message d'erreurs ?

Philippe

**Tho69** · 07/08/2013, 13h10

Voila la procédure d'ouverture, la fonction qu'elle appelle et la fonction que cette fonction appelle.

Aucun message d'erreur.

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
Private Sub Workbook_Open()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Const FileSource As String = "Sport"
 
Dim WkbSrce As Workbook
Dim FoldersSource As Variant
Dim SubFolder As String
Dim i As Integer
Dim x As Integer
Dim y As Integer
 
y = ThisWorkbook.Worksheets.Count
 
For x = 2 To y
 
    SubFolder = ThisWorkbook.Worksheets(x).Name
 
    If SubFolder Like "STR####" Then
        FoldersSource = Array("C:\Users\105063782\Desktop\Réseau test\TDSK\TV\", "C:\Users\105063782\Desktop\Réseau test\TDSA\TV\")
    ElseIf SubFolder Like "SCR####" Then
        FoldersSource = Array("C:\Users\105063782\Desktop\Réseau test\TDSK\CC\", "C:\Users\105063782\Desktop\Réseau test\TDSA\CC\")
    Else
        Exit Sub
    End If
 
    For i = 0 To UBound(FoldersSource)
        If Importer(FoldersSource(i), SubFolder, FileSource & ".xlsx") Then
            Exit For 'fichier trouvé
        End If
    Next i
 
Next x
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub

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
Private Function Importer(ByVal Dossier As String, ByVal SousDossier As String, ByVal Fichier As String) As Boolean
 
Dim FichTrouve As String, SubFolder As String
Dim WkbSrce As Workbook
 
Application.ScreenUpdating = False
 
SubFolder = FindSubFolder(Dossier, SousDossier) 'Appelle la fonction FindSubFolder
 
If SubFolder <> "" Then
    FichTrouve = Dir(SubFolder & "\" & Fichier)
 
    If FichTrouve <> "" Then
        Importer = True
        Do While FichTrouve <> ""
            Set WkbSrce = Application.Workbooks.Open(SubFolder & "\" & Fichier)
            WkbSrce.Worksheets(1).Copy After:=ThisWorkbook.Worksheets(SousDossier)
 
            Application.DisplayAlerts = False
            ThisWorkbook.Worksheets(SousDossier).Delete
            Application.DisplayAlerts = True
 
            ThisWorkbook.Worksheets("Affaire").Name = SousDossier
 
            Application.ScreenUpdating = True
 
            WkbSrce.Close False
            Set WkbSrce = Nothing
            FichTrouve = Dir()
 
            Application.ScreenUpdating = True
 
        Loop
    End If
End If
 
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function FindSubFolder(ByVal Folder As String, Numéro_affaire As String) As String 'Cherche le sous répertoire
 
Dim Tmp As String
 
ChDrive "C:\"
ChDir Folder
Tmp = Dir("*" & Numéro_affaire & "*", vbDirectory)
If Tmp <> "" Then FindSubFolder = Folder & Tmp
 
End Function

**EngueEngue** · 07/08/2013, 13h13

Vire les displayalerts = False et relance, puis tu nous dis quelle erreur t'affiche-t-il

**Tho69** · 07/08/2013, 13h19

Merci à vous,

Sans les displayalerts = False, toujours aucune erreur.

Et voici une des procédures qui ne se lance pas quand j'insère une feuille:

Code :

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

1
2
3
4
5
Private Sub Workbook_NewSheet(ByVal Sh As Object)
 
UserForm2.Show
 
End Sub

Et oui, j'ai une UserForm2

Et oui, cette procédure est dans ThisWorkbook

**EngueEngue** · 07/08/2013, 13h21

Et si tu la lances manuellement ?

**Tho69** · 07/08/2013, 13h23

Ca m'ouvre une petite fenêtre "Macros" qui me demande le nom de la macro que je veux lancer.

**EngueEngue** · 07/08/2013, 13h34

Et bien... Mystère! Redémarre ton ordi, réinstalle excel...

Euh tu veux dire que ce n'est pas ton USERFORM
Dans un module mets

Code :

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

1
2
3
Sub Usffff()
UserForm2.show
End sub

Et lance la

**Tho69** · 07/08/2013, 13h50

Re,

Bon, redémarrage de mon ordi sans amélioration.

C'est le genre de trucs qui m'arrive tooouuut le temps sur tooouuut les logiciels Microsoft office quand je touche Visual alors que ne fais rien de particulier dedans. Par exemple sur Word des fois après trop de VB le fichier ne voulait plus s'enregistrer pour une soit disante: "taille du disque trop petite" alors qu'il me restait bien quelques centaines de tera sous le coude, qu'aucune de mes macros ne fesait autre chose que copiercoller, ouvrir des UserForms ou supprimer des texte. J'ai changé de version Word, j'ai tout recopier, tranquile 2 mois, et puis PAREIL. Là j'ai même un autre ordi et ça me fait des trucs étonnant. J'aimerais bien savoir ce que je fais de mal dans VB pour que j'arrête d'avoir des erreurs insolites comme celles-ci. Si quelqu'un a des idées je suis à l'écoute.

Oui manuellement ça ouvre la UF

**EngueEngue** · 07/08/2013, 13h51

Si ton fichier n'est pas confidentiel; envoi le nous

**Tho69** · 07/08/2013, 15h13

Re,

Ok compris CHECK-LIST SUIVI AFFAIRE - Copie.zip

**nibledispo** · 07/08/2013, 15h39

bonjour,

pour information: quelle version d'Excel utilises-tu ?

Sur la version 2010, j'ai rencontré un temps des problèmes bizarres d'un autre ordre qui n'apparaissent plus aujourd'hui. Sans doute suite aux mises à jour !

Ceci pour dire qu'il serait peut-être intéressant de voir si le problème subsistent avec une version différente d'Excel et peut-être aussi d'effectuer les mises à jour de ta version si ce n'est déjà fait.

cordialement

**Tho69** · 07/08/2013, 16h05

Bonjour et merci nibledispo,

Ma version est la 2010.
En ce qui concerne les mises à jour je vais voir (si c'est fait, quand. Et sinon comment on fait). Mais c'est étonnant que ça fonctionnait très bien jusqu'à hier et que d'un coup Excel ne veut plus rien entendre, non? Des maj où une réinstallation pourrait régler ça?
Je continu à croire que j'ai dû faire une mauvaise manipulation.
Sinon vous arriver à ouvrir la pièce jointe? Moi non, elle m'envoi vers des fichiers comme si je n'avais pas le logiciel pour lire les zip.
Je précise au passage que mon ordinateur est un ordinateur portable de mon entreprise.

Alors ma version est: Microsoft office professional plus 2010.
Et mon ordi a fait une "Security Update for Microsoft Excel 2010 (KB2597126) 32-Bit Edition le 16/07/2013.

**EngueEngue** · 07/08/2013, 16h08

Non ton zip ne marche pas

ça ne vient pas de ton ordinateur ni de ta version excel.

**Tho69** · 07/08/2013, 16h11

Arrrg, comment on fait

?

J'ai essayé d'enregistrer sous et de choisir le .zip, il n'y était pas donc j'ai simplement renommer le fichier en mettant .zip à la place de .xlsm

**EngueEngue** · 07/08/2013, 16h16

Bon... envoi le en xls on se débrouillera

**Tho69** · 07/08/2013, 16h20

Voici: CHECK-LIST SUIVI AFFAIRE - Copie.xls

**nibledispo** · 07/08/2013, 16h23

re....,

En cas de problème, je préfère ne pas jouer les apprentis sorciers. Je fais appel à un ami qui a fait un stage Microsoft; effectue la réinstallation si nécessaire ou effectue les mises à jour du logiciel. Sur ce dernier point, je sais seulement qu'il va quelque part sur le net rechercher des mises à jour éventuelles.

Non, je ne parviens pas à lire le ZIP.

Bon courage.