XL 2016 Workbooks.Add et mot de passe

[GeoTrouvePas]

Bonjour tout le monde,

J'utilise la méthode :

Set FileSource = Workbooks.Add(Template:=(Const_Chemin_MDO))

pour récupérer des données depuis un classeur source. Contrairement à la méthode Open, cela me permet d'ouvrir une copie du fichier source qui reste alors disponible pour les autres utilisateurs pendant la durée des opérations.

Mon soucis est que je n'arrive pas à utiliser la méthode Workbooks.Add lorsque le fichier cible est protégé par un mot de passe (que je connais bien évidemment).

Comment pourrais je procéder ?

Je vous remercie par avance de votre aide

 

[Jauster]

Salut,

Et si tu utilisais ce code pour creer une copie du fichier.

Sub CopierFichier()

FileCopy Source:="C:\Projet\FichierSouce.xlsx", Destination:="C:\Projet\FichierCopie.xlsx"

End Sub

Pas besoin de l'ouvrir pour le copier et ensuite tu l'ouvres avec

Workbooks.Open Filename:="C:\Projet\FichierCopie.xlsx", password:="123"

Bonne journée

 

[GeoTrouvePas]

Bonjour Jauster

Merci pour l'idée. J'y avais bien pensé mais ça me parait difficilement réalisable.
Les fichiers font plusieurs Mo et la macro en ouvre plusieurs d'affilé. Le réseau n'étant pas des plus rapides, l'éxécution de la macro serait interminable.
Cela impliquerait également de supprimer le fichier provisoire en sortie de boucle. En cas de plantage, ces fichiers temporaires ne seraient pas supprimés. Il faudrait également prévoir le faire que le nom "FichierCopie" soit déjà utilisé etc...

Bref, bonne idée mais difficile à réaliser dans la pratique.

 

[job75]

Bonjour GeoTrouvePas, Jauster,

Ouvrez le fichier en lecture seule :

Set FileSource = Workbooks.Open(Const_Chemin_MDO, ReadOnly:=True, Password:="123")

en adaptant bien sûr le mot de passe.

A+

 

[ChTi160]

Bonjour a tous et toutes
GeoTrouvePas,
As tu regarde du cote de la methode “Workbook.SaveAs”?
Bonne fin de journee
Jean marie

 

[job75]

Bonsoir ChTi160,

As tu regarde du cote de la methode “Workbook.SaveAs”?

Avant de l'utiliser il faut d'abord ouvrir le fichier, c'est ça le problème posé.

Bonne nuit.