supprimer les mots de passes de plusieurs fichiers

[Sheldor]

ami excelliens bonjour,

merci de me lire,

je reçois 10 fichiers tous les lundis, les fichiers sont protégés à l'ouverture par un mot de passe, disons toto

je cherche à faire une macro qui supprime ces mots de passe:
un bouton permettrait d'ouvrir une fenêtre pour choisir mes fichiers
je les ouvre, les réenregistre sans mot de passe et les ferme

et forcément ça coince et forcément j'appelle à l'aide:

Application.DisplayAlerts = False

Dim i As Long, Chemin
Chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)

On Error Resume Next
For i = LBound(Chemin) To UBound(Chemin)

Workbooks.Open FileName:=Chemin(i), Password:="toto", IgnoreReadonlyRecommended:=True

Workbooks.SaveAs FileName:=Chemin(i), Password:="", IgnoreReadonlyRecommended:=True
ActiveWorkbook.Close

Next i

Application.DisplayAlerts = True

___
il coince sur Workbooks.SaveAs: membre de méthode ou de données introuvable...


grand merci par avance de votre aide

amicalement
nico

 

[Hulk]

Re : supprimer les mots de passes de plusieurs fichiers

Hello,

Essaie ceci

[B]ActiveWorkbook[/B].SaveAs FileName:=Chemin(i), Password:="", IgnoreReadonlyRecommended:=True

 

[Sheldor]

Re : supprimer les mots de passes de plusieurs fichiers

GENIAL!!!!!!!

ça coince sur
IgnoreReadonlyRecommended:=True
mais je l'ai supprimé

super, GRAND MERCI !!
amicalement
nico