Discussion :

[Drost]

Bonjour,

J'ai un fichier avec un masque qui doit incrémenter une base ( gestion de notes de frais). Afin que les employés n'est pas access à cette base, j'ai ajouté un mot de passe à l'ouverture ( via l'option enregistrer sous). Toutefois lorsque des notes de frais sont saisie dans la template,les frais doivent alimenter la Base,et à l'ouverture du fichier Excel demande le mot de passe.
Comment puis je dans ma macro d'integration, ouvrir le fichier avec le mot de passe saisie automatiquement ?

Merci d'avance,

Drost

[cafeine]

Hello,

ouvre le en activant l'enregistreur de macro et regarde le code généré ...

[Drost]

Re^^

C'est ce que j'ai fais au départ et il n'enregistre que l'ouverture du fichier pas la saisie du mot de passe :s

Merci quand meme

[ippo_master]

Peut être que ce code permet de zapper la phase de saisie du mot de passe

Code :

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

1
2
3
4
5
6
Dim oExcel As Excel.Application
Dim oWk As Workbook
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False 'Masque l'application excel (valeur par défaut)
On Error Resume Next 'Pour éviter les erreur si classeur n'existe pas
Set oWk = oExcel.Workbooks.Open("Chemin du fichier"),,,,"MotdePasse"

Pour info : Ouvre un classeur.

Syntaxe
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU)

[Drost]

J'essaye de suite
Merci beaucoup

[cafeine]

Ok, alors voici les arguments :

Function Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru], [Local], [CorruptLoad]) As Workbook