Bonjour,
Je souhaite importer un fichier dans le dossier courant (la macro fonctionne) sauf lorsque le dossier est en mode protéger et j'aimerais qu'il passe outre cette protection ou qu'il l'enlève. On peux l'enlever à la main, mais je souhaite que la macro le fasse d'elle même.
voici le code de l'importation :
Set f = ActiveWorkbook.Sheets("EXTRACTION TRUST")
chemin = ThisWorkbook.Path & "\"
nomfichier = Dir(chemin & "*.xls")
flag = 0
Do While Len(nomfichier) > 0
For x = 1 To Len(nomfichier)
If Mid(UCase(nomfichier), x, 5) = "TRUST" Then
nf = nomfichier
flag = 1
Exit Do
End If
Next x
nomfichier = Dir
Loop
If flag = 1 Then
Workbooks.Open Filename:=chemin & nf
ActiveSheet.Unprotect Password:=""
Cells.Copy f.Range("A1")
ActiveWorkbook.Close False
Else
MsgBox "Le fichier 'EXTRACTION TRUST' n'est pas dans le dossier courant ou le nom de fichier ne contient pas 'TRUST'", 16
End
End If
ce code fonctionne parfaitement sauf lorsque c'est protéger et le "ActiveSheet.Unprotect Password:=""" se résout pas le problème.
et l'erreur :
Si des gens sont intéresser par le code en lui même, il vient d'ici :
https://forum.excel-pratique.com/post345391.html#p345391