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

[patricktoulon]

bonjour
c'est tout a fait normal puisque tu enregistre ton fichier en text

donc tu essai de modifier la structure du fichier lui meme


une solution
continuer a protéger ton module
y rajouter l'ors de l'enregistrement le unprotect du projet

si tu a mis un mot de passe il va te le demander
ensuite a la fermeture du fichier tu repprotege les macros

finalement tu aura une sorte de mot de passe pour enregistrer
au plaisir

[bedrohung]

Bonjour,

Merci pour ta réponse rapide,

Cependant j'ai essayer de deprotéger le classeur en rajoutant la fonction suivante lors de l'éxecution de la macro :

ActiveWorkbook.Unprotect ("1234")

Mais j'obtiens toujours le même message d'erreur.

[patricktoulon]

dans la ligne unprotect il faut que tu mete le code avec si je me souviens bien
mais javoue que je me souviens plus de la macro
cela dit fait une recherche sur la faq tu devrais la retrouver elle fait exactement ce que tu cherche

au plaisir