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
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
