sirshogun | Bonjour à tous !
J'ai un gros souci dans un code !
Je souhaiterai, à partir d'une macro via Excel,lire,ecrire et enregistrer dans un fichier Excel fermé et protégé.
Est ce possible ?
J'ai trouvé un code qui me permet de le lire un fichier fermé n'etant pas protèger. Mais des que je protège mon fichier basta, n'arrive pas :
VOici le code qui me permet le lire :
Code :
- Option Explicit :
- Dim P As String, F As String, S As String, A As String
- Dim Arg As String
- Sub Liredonnees()
- P = "C:/Monrepertoire"
- F = "monfichier.xls"
- S = "DONNEES"
- A = "A1"
- Sheets(1).Range("A1" ).Value = GetValue(P, F, S, A)
- End Sub
- Private Function GetValue(Path, File, Sheet, Ref)
- If Right(Path, 1) <> "\" Then Path = Path & "\"
- If Dir(Path & File) = "" Then
- GetValue = "File Not Found"
- Exit Function
- End If
- Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1" ).Address(, , xlR1C1)
- GetValue = ExecuteExcel4Macro(Arg)
- End Function
|
Doc pour resumer :
-lire un fichier fermé non proteger ki
-lire un fichier fermé protégé : pas oki
-lire, ecrire et enregistré un fichier fermé protèger : "même pas en rêve" Qui aurrait un peu temps pour m'aider sur ce problème !
SVP Help !
Sir Message édité par sirshogun le 22-10-2004 à 08:41:07
|