Bonsoir à Tous,

Voilà je débute tout juste sur VBA au travers d'Excel 2003, et je suis complètement bloquée sur un projet depuis 2 jours. Celui-ci consiste à automatiser le zip d'un fichier xls à la fin de son utilisation grâce à une macro.

J'ai trouvé une macro mais je n'arrive à y trouver l'erreur. Après de multiples tentatives, je désespère de ne pas trouver cette erreur qui, j'en suis sûre, ne doit pas être si énorme que ça alors si quelqu'un pouvait m'aider svp à résoudre cette énigme

Ci-dessous vous trouverez la macro que j'ai utilisé, malheureusement celle-ci s'arrête au niveau de : MyBinary = MyBinary & Chr(MyHex(i))
Next[/B]

et m'ouvre une fenêtre avec le message d'erreur suivant : "Erreur d'exécution 70 : Permission Refusée"

Voilà merci beaucoup si vous pouvez m'aider ou alors m'indiquer un autre code.

Bien cordialement,

Sabrina

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub ZipFichier()
 
'
Dim oShell As Object, Fso As Object
Dim i As Long
Dim Fichier As String, MyBinary As String
Dim LeZip As Variant
Dim MyHex As Variant
 
    Fichier = "V:\001-Echange-Centrale\180.Direction_Marketing_et_Communication\07.Marketing_clients\01_Bases_Access\02_Historique\201011\_1110.zip"
    LeZip = "D:\Documents and Settings\JeanNoel.Floquet\Bureau\TEST"
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    MyHex = _
    Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
 
    For i = 0 To UBound(MyHex)
        MyBinary = MyBinary & Chr(MyHex(i))
    Next
 
    With Fso.CreateTextFile(LeZip, True)
        .Write MyBinary
        .Close
    End With
 
    Set oShell = CreateObject("Shell.Application")
    oShell.Namespace(LeZip).CopyHere (Fichier)
 
    Set oShell = Nothing
End Sub