Bonjour à tous,
Voici le code mis dans l'objet WorkBook de mon classeur .xlsm
Je veux qu'à l'enregistrement des modifications de ce classeur, une page htm se mette automatiquement à jour (cette page htm est en fait le classeur au format .htm)
Voyez dans le code les 3 problèmes que je rencontre. Je ne comprends pas l'origine du deuxième et je ne sais comment éviter le troisième ...
Merci pour votre aide !
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 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim FichierDonnees As Workbook Set FichierDonnees = ActiveWorkbook 'Vérification que le répertoire (contenant le fichier) et le fichier à mettre à jour existent bien If FolderExist(CheminFichierAffichage) Then 'Sauvegarde normale d'abord (sinon elle ne se fait pas) ActiveWorkbook.Save Application.DisplayAlerts = False 'Mise à jour du fichier html FichierDonnees.SaveAs Filename:=CheminFichierAffichage & NomFichierAffichage, _ FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False Application.DisplayAlerts = True '1- Pose problème si l'utilisateur répond non à la question "Voulez-vous remplacer le fichier existant" '2- Excel cesse de fonctionner après cette opération lorsque le user accepte le remplacement du fichier existant '3- au redémarrage d'Excel (ou directement si Excel ne cesse pas de fonctionner), le fichier html ' s'ouvre dans Excel - je ne souhaite pas cette ouverture qui ne sert à rien Else MsgBox ("Le répertoire suivant n'a pas été trouvé: " & vbNewLine & CheminFichierAffichage) End If End Sub
Partager