Discussion :

[dlight]

Bonjour à tous.

Est-il possible qu'avec un code VBA je puisse envoyer deux fichiers Excel dans un dossier compressé.

Fichier A.xls qui a le code VBA
Fichier B.xls (fichier non ouvert)

À partir du code VBA du fichier A, les deux fichiers A et B vers un dossier compressé

Merci à l'avance pour vos réponses et conseils

Dlight

[Invité]

Bonjour

As-tu fait des recherches sur la FAQ Office ? http://office.developpez.com/faq/ind...on&r6=on&r7=on

Philippe

[kiki29]

Salut,voir http://excel.developpez.com/sources/...#ZipperDossier

[Godzestla]

Bonjour,

Attention à bien lire la remarque en haut du lien donné par kiki29 au vu de ceci

Fichier A.xls qui a le code VBA

.

Bonne journée à tous.

[dlight]

Merci à vous tous et désolé d'avoir pris un peu de temps à donner suite...

J'ai modifié un peu ma demande pour "zipper" qu'un fichier. J'ai donc utilisé le code KiKi29 mais j'ai une erreur 5 à la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Fso = CreateObject("Scripting.FileSystemObject")

Voici le code :

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
32
33
34
35
36
37
38
39
40
41
42
Sub ZipFichier()
    '
    'Source
    'http://www.codecomments.com/archive299-2006-2-295877.html
    '
    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
    Dim LeNom As String, RepertoireDuFinancier As String, RépertoireBackup As String
    Dim today As Date, NomDuFichierBackup As String
 
 
    RepertoireDuFinancier = [RépertoireFinancier]
    RépertoireBackup = [RépertoireSauvegarde]
    NomDuFichierBackup = [NomFinancier]
 
    today = Now
    LeNom = "FML Backup " & today
 
    Fichier = RepertoireDuFinancier & NomDuFichierBackup
    LeZip = RépertoireBackup & LeNom
 
    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

Quelqu'un peux-til m'aider sur cette erreur ?

Merci

Dlight

[dlight]

Le nom du fichier .zip était en cause dans mon problème.

Merci à tous

Dlight