Discussion :

[bedrohung]

Bonjour,

Je suis confronté à un problème que je n'arrive pas à résoudre seul.
J'en appelle donc à votre aide

Le contexte est le suivant :

Je dois créer une macro qui importe un fichier texte, traite ce fichier sous excel et re-enregistre le fichier sous un fortmat txt.

Cette macro fonctionne très bien lorsque je ne protège pas mon projet.
(cf. Process_EDF_non_protege)


Maintenant je souhaite vérouiller l'acces au code source des macros.
Je protège donc mon projet VBA (Outils -> Propriétés du projet -> Protection -> Vérouiller le projet pour affichage)
Lorsque j'exécute ma macro, celle-ci me renvoit le message d'erreur suivant lors de l'enregistrement du fichier en format txt :

Erreur d'exécution 1004
La méthode 'SaveAs' de l'objet _Workbook a échoué.

Voici un extrait du code lors de l'enregistrement du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim FileName As String
'  Demande fichier de sauvegarde
    FileName = Application.GetSaveAsFilename("", "EDF Files (*.txt), *.txt")
Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs FileName:= _
        FileName, FileFormat:= _
        xlTextPrinter, CreateBackup:=False
 
fin_macro1:
ActiveWorkbook.Saved = True
Application.Quit

Les fichiers excel contenant les macros sont en pièce jointe

Mot de passe pour déverouiller la protection : "1234"

Voila si quelqu'un a une idée pour résoudre mon problème je suis preneur.

Merci par avance