Probleme de lancement FICHIER avec Macro

Bonjour,

j'ai fais un fichier Excel avec formulaire enregistrer en .xlsm.

Mon Userform s’exécute au lancement du fichier.

Pour çà tout va bien.

mais j'ai remarqué que une fois sur deux il lance la base de données excel au lieux de l'userform.

pouvez vous me venir en aide.

Bonjour,

Bonne soirée

Bonsoir Ergotamine,

Voici mon fichier.

Voici le fichier sans protection de la base de données

Bonjour,

L'application Excel n'est pas fermée après l'enregistrement. Lors de la réouverture, le même classeur avec la même désignation était lancé dû à ta tempo de 30 secondes ce qui provoquait les messages d'erreurs et le plantage de ta macro dont le load de ton USF.

L'ajout de la procédure suivant devrait résoudre ton problème, en gros shut-down l'application Excel et non pas juste ton classeur :

    Application.Quit

Par contre je n'arrive pas à le placer correctement dans tes codes au vu de la temporisation de tes procédures stop et set timer de 30 secondes, elles mêmes court-circuitées par le code Application.Quit .. Sais-tu quels sont leur rôle ?

Peut être quelqu'un aura-t-il une autre idée. En tout cas avec une tempo à 2 secondes et cette ligne en plus dans le stop timer ça résout le soucis.

Bonne soirée.

Bonsoir Ergotamine

effectivement j'ai mis une tempo d'enregistrement automatique pour resoudre le probleme d'enregistrement en passant que c'etait la solution.

C'est pour çà que j'ai lancé ce post.

Je vais essayer en retirant la tempo

Bonjour,

Il me semble que tu peux désactiver l'enregistrement automatique mais par contre c'est valable pour toute ton application

' A l'ouverture de ton classeur
Application.AutoRecover.Enabled = False
' A la fermeture de ton classeur
Application.AutoRecover.Enabled = True

Bonne journée

Bonjour ERgotamine.

J'ai trouvé ma solution en ajoutant un bouton.

et l'instruction suivante :

Private Sub CommandButton19_Click()
Dim fichier As Workbook
Dim chemin_acces_fichier As String
'identifier le fichier
Set fichier = ActiveWorkbook
fichier.Save
fichier.Close (True)
chemin_acces_fichier = "C:\Users\techn\Desktop\PARC CLIENTS xxxxxx V12.xlsm"
fichier.SaveAs chemin_acces_fichier, FileFormat:=50
Unload Me
End Sub

Merci de ton aide