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