Discussion :

[boux2]

Bonjour à toutes, bonjours à tous,

Je vous expose mon problème :

C:\ClasseurZippé.rar: Impossible d'ouvrir C:\Documents
Le fichier spécifié est introuvable.
C:\ClasseurZippé.rar: Impossible d'ouvrir and
Le fichier spécifié est introuvable.
C:\ClasseurZippé.rar: Impossible d'ouvrir Settings\Boux2\Bureau\doc.pdf
Le chemin d'accès spécifié est introuvable.

après l'execution du code suivant :

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
 
Declare Function ShellExecute Lib "shell32.dll" Alias _
       "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
       As String, ByVal lpFile As String, ByVal lpParameters _
       As String, ByVal lpDirectory As String, ByVal nShowCmd _
       As Long) As Long
Sub testZip()
Dim Zippeur$, Archive$, Source$
  Zippeur = "C:\Program Files\WinRAR\WinRAR.exe"
  Archive = "C:\ClasseurZippé.rar"
  Source = "C:\Documents and Settings\Boux2\Bureau\doc.pdf"
'  'création de l'archive
  ShellExecute 0, "open", Zippeur, _
      "a " & Archive & " " & Source, "", vbHide
 
End Sub

et je ne comprend pas pourquoi.

A noter que si Source = "C:\doc.pdf" winRar fonctionne bien comme il faut, j'en conclu à un problème d'espace ...

Autre question j'aimerais savoir si je fais une procédure qui créer une archive et quelle ne touve pas WinRar d'installer comment utiliser (Quel est le chemin ?) de l'outils windows XP de base ?

Merci de bien vouloir me répondre.

[padre03]

Salut

De mémoire, il me semble que la fonction shellexecute n'aime pas du tout les espaces dans les paramètres.

je pense que si tu ecrit ça:

Code :

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

1
2
3
4
 
  Zippeur = ""C:\Program Files\WinRAR\WinRAR.exe""
  Archive = ""C:\ClasseurZippé.rar""
  Source = ""C:\Documents and Settings\Boux2\Bureau\doc.pdf""

ça devrait aller mieux

si du met des double quote partou il va passer en paramètre nom plus:
C:\Documents and Settings\Boux2\Bureau\doc.pdf
mais bien
"C:\Documents and Settings\Boux2\Bureau\doc.pdf"
ce qui est bien différent pour shellexecute

[boux2]

Pas trop mal sauf que là il me sauvegarde ca dans une hierarchie c-a-d
Dans mon rar j'ai Un repertoire Documents and Settings, puis un repertoire Boux2, puis un dossier Bureau, puis enfin mon fichier.

Ceci est-il évitable ?

[boux2]

Salut

De mémoire, il me semble que la fonction shellexecute n'aime pas du tout les espaces dans les paramètres.

je pense que si tu ecrit ça:

Code :

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

1
2
3
4
 
  Zippeur = ""C:\Program Files\WinRAR\WinRAR.exe""
  Archive = ""C:\ClasseurZippé.rar""
  Source = ""C:\Documents and Settings\Boux2\Bureau\doc.pdf""

ça devrait aller mieux

si du met des double quote partou il va passer en paramètre nom plus:
C:\Documents and Settings\Boux2\Bureau\doc.pdf
mais bien
"C:\Documents and Settings\Boux2\Bureau\doc.pdf"
ce qui est bien différent pour shellexecute

C'est pas deux c'est trois doubles quotes qu'il veut :

Code :

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

1
2
3
Zippeur = """C:\Program Files\WinRAR\WinRAR.exe"""  Archive = """C:\ClasseurZippé.rar"""
  Source = """C:\Documents and Settings\Boux2\Bureau\doc.pdf"""

[padre03]

oups

effectivement, je devais pas avoir les yeux en face des trous. C'est bien 3 quotes

Désolé, mais je devais pas avoir les yeux en face des trous, ou alors pas réveiller

R'as donc résolu ton problème

[boux2]

J'ai encore un problème avec Winrar.
Je veux en faite sauvegarder dans un rar tout un répertoire. Quand le répertoire est un repertoire quelconque pas de souci seulement
quand c'est le dossier qui contient le fichier Excel à partir du quel est lancé la sauvegarde il me met :

f:\ClasseurZippé.rar: Impossible d'ouvrir f:\A.xls
Le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus.

En clair mon fichier A.xls sur le quel je lance le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Declare Function ShellExecute Lib "shell32.dll" Alias _
       "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
       As String, ByVal lpFile As String, ByVal lpParameters _
       As String, ByVal lpDirectory As String, ByVal nShowCmd _
       As Long) As Long
Sub testZip()
Dim Zippeur$, Archive$, Source$
  Zippeur = "C:\Program Files\WinRAR\WinRAR.exe"
  Archive = ActiveWorkbook.path & Application.PathSeparator & "ClasseurZippé.rar"
  Source = ActiveWorkbook.path & Application.PathSeparator
End Sub

pose ce problème !

Ce qui est logique mais comment résoudre ce nouveau problème ?

[Elstak]

Tu veux zipper le fichier excel qui execute la macro? (et qui est donc ouvert)

Je donne une idée comme ca (qui n'est peut etre pas la meilleure )

avec la macro de ton fichier excel, tu en ouvre un autre qui fait le zip et qui ferme ton fichier avant pour ne plus avoir le probleme, ensuite avec ton fichier qui t'a servi à faire ton zip tu reouvre ton fichier actuel et tu ferme celui qui t'a servi à faire ton zip

Hein?? comment ca c'est tordu??

[boux2]

Merci pour cette solution je vais attendre d'autres point de vue avant de mettre en place (en dernier recours) cette méthode un peu lourde je pense!

[Elstak]

Ca pour etre lourd....

sinon (là je fais que donner une idée) il est possible de piloter excel depuis un programme VB j'ai cru lire dans d'autre questions... donc peut etre qu'il est plus simple (je pense pas que le code soit enormement différent) de faire ca sous vb.

Apres c'est toi qui voit

[boux2]

Explique moi c'est quoi "faire ca sous vb" ?

A titre d'information j'ai Excel 2003 et basta et aussi je fini ce soir mon contrat donc à 17h00 aurevoir et il ne me reste plus que cette sauvegarde à faire.

[Elstak]

Ok alors oublie ma solution 2 !!

bah t'a des programmes comme, de mémoire, microsoft visual basic editor qui te permettent de programmer en Visual basic et tu peux créer un code qui te fait le meme que ce que tu fait sous vba excel... apres faut voir quel est ton cas... mais si de toute facon tu n'as qu'excel il faut oublier ca !

[boux2]

Personne à part Elstak n'a d'idée ? C'est pas que je suis mal mais quand même je fini ce soir.