Discussion :

[goninph]

Bonjour,

J'ai un fichier qui ouvre, enregistre et ferme un autre fichier qui a un de ces 2 événements dans ThisWorkbook, mais rien ne se passe.

Auriez-vous une idée du pouquoi ?

Merci et meilleures salutations
Philippe

Code :

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

1
2
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Private Sub Workbook_BeforeClose(Cancel as Boolean)

[mromain]

Bonjour goninph, le forum,

Peut-être que la macro qui ouvre le fichier a désactivé les évènements de l'application avant l'ouverture ?

Code :

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

Application.EnableEvents = False

A+

[goninph]

Bonjour,

Merci, mais ce n'est pas la solution

J'ai ajouté une msgbox dans la macro, elle s'ouvre lors de l'enregistrement.
J'ai également lancé la macro pas à pas avec la touche F8, la macro est lue correctement, les variables sont renseignées et toutes les lignes sont lues (en jaune), y compris

Code :

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

ActiveWorkbook.SaveCopyAs CheminSource & Format(Now(), "YYYY.MM.DD hh-mm-ss ") & NomMajuscule & " " & ThisWorkbook.Name

, mais aucune action n'est réalisée à la lecture de cette ligne, alors que la msgbox de la ligne suivante s'affiche ... très étrange ...

Des idées ?

Merci et meilleures salutations
Philippe

Code :

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

1
2
3
4
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Backup.Backup_Fichier
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
Option Explicit
Sub Backup_Fichier()
Dim CheminSource As String
Dim DossierBackup As String
Dim nom As String
Dim NomMajuscule As String
        'Sauvegarde une copie du fichier nommé: Date & la date, dans un dossier, dans le même dossier du fichier, nommé: Backup & le nom du fichier
        nom = Environ("USERNAME")
        NomMajuscule = UCase(nom) 'UCase = Mise en majuscule - LCase = minuscule - Application.proper = Nom propre
        DossierBackup = "Backup " & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) 'Pour enlever le .xlsm les 5 caractères depuis la droite
        CheminSource = ThisWorkbook.Path & "\" & DossierBackup & "\"
        'Test si le dossier existe déjà
        On Error Resume Next 'N'éxécute pas la ligne qui suit en cas d'erreur
        If Len(Dir(CheminSource, vbDirectory)) = 0 Then MkDir CheminSource
        On Error GoTo 0 'Ressort de l'erreur qui permet de nouvelles erreurs
        'Sauvegarde d'une copie du fichier avec la date
        On Error Resume Next 'Si problème de réseau
        Application.EnableEvents = True
        ActiveWorkbook.SaveCopyAs CheminSource & Format(Now(), "YYYY.MM.DD hh-mm-ss ") & NomMajuscule & " " & ThisWorkbook.Name
        MsgBox "La macro Backup_Fichier vient d'être lue"
End Sub

[Philippe Tulliez]

Bonjour,
Je vois ligne 17 de la dernière procédure affichée l'instruction On Error Resume Next. Il est donc tout à fait normal que la ligne MsgBox s'exécute alors que sans doute la ligne avec la méthode SaveAs est en erreur.

Mettez cette instruction en remarque et ajoutez l'instruction ci-dessous (attention écrite de mémoire) juste avant la ligne précitée

Code :

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

MsgBox ">" & CheminSource & Format(Now(), "YYYY.MM.DD hh-mm-ss ") & NomMajuscule & " " & ThisWorkbook.Name & "<"

cela vous permettra de voir si le Path et le nom sont corrects et ne contiennent pas des caractères non acceptés par Windows.
Même si les points sont acceptés (YYYY.MM.DD) je les éviterais tout de même en les remplaçant par des tirets ou underscore

[goninph]

Bonjour

Modification effectuée, mais toujours pas de sauvegarde.

Pour mémoire si j'enregistre le fichier via la disquette ou le raccourcis Ctrl+S le fichier de sauvegarde est créé.

À en perdre son latin, ce doit être un beug du vba

Meilleures salutations
Philippe

[Thumb down]

Bonjour,
Il faut absolument banire de tes codes les instructions du genre Select, Selection,activate et autre ActiveWorkbook!

D'autres part après le ActiveWorkbook.SaveCopyAs tu peux redonner la main à Windows pour qu'il gère correctement les évènements sous-jacents Doevents !

[Philippe Tulliez]

Bonjour,

Modification effectuée, mais toujours pas de sauvegarde.

Le but de la ligne que j'ai demandé d'ajouter ne servait qu'à effectuer un contrôle sur le nom complet Path + Nom pour comprendre la raison pour laquelle la copie ne s'effectue pas et la mise en commentaire de la ligne On Error Resume Next avait pour but de provoquer l'erreur et savoir son numéro et son message

Pour mémoire si j'enregistre le fichier via la disquette ou le raccourcis Ctrl+S le fichier de sauvegarde est créé.

donc sans doute que le Path n'est pas correct et fait référence à l'unité de la disquette

À en perdre son latin, ce doit être un beug du vba

Cela j'en doute très fort.

[EDIT]
Je voudrais ajouter que placer On Error Resume Next à cet endroit là est un "cache misère" et me laisse penser que c'est vraiment là que ce situe le problème CheminSource fait sans doute référence à un drive physique non présent.
Ce n'est jamais une bonne idée de faire On Error Resume Next si l'on ne vérifie pas s'il y a eu une erreur et laquelle.

Code :

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

1
2
3
    On Error Resume Next 'N'éxécute pas la ligne qui suit en cas d'erreur
        If Len(Dir(CheminSource, vbDirectory)) = 0 Then MkDir CheminSource
        On Error GoTo 0 'Ressort de l'erreur qui permet de nouvelles erreurs

Je ne peux que conseiller la lecture de ce tutoriel La gestion des erreurs dans Excel