Discussion :

[ouskel'n'or]

Tout est dans le titre mais j'explique :
J'utilise VBA pour ouvrir un fichier image par l'intermédiaire de mspaint.
Permet de modifier le fichier avant un simple copier/coller.

Code :

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

Call Shell("C:\WINDOWS\SYSTEM32\mspaint.exe " & NomFich, 3)

Si le nom du fichier ne contient pas d'espace, pas de problème, tout se déroule normalement.
Mais s'il en contient un, il n'est pas reconnu.
J'ai testé avec ShortName mais il n'est resté que "Le" dans le nom du fichier (pour "Le truc.gif")
Il doit bien exister une solution puisque Paint le fait sans rechigner quand il est utilisé directement.
C'est cette solution qu'il me faudrait.
Par avance merci.

[ucfoutu]

Bonjour, ousk,

Si le nom de ton fichier contient des espaces ===>> mets-le entre guillemets, ainsi :

Code :

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

1
2
3
4
Private Sub Command1_Click()
  nomfich = """d:\sans titre.bmp"""
  Call Shell("C:\WINNT\SYSTEM32\mspaint.exe " & nomfich, 3)
End Sub

Ceci étant, j'utiliserais plutôt ShellExecute (je n'aurais alors pas besoin d'utiliser le chemin de MsPaint.exe )

[ucfoutu]

Tiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private 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
 
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
  Dim leHwnd As Long, monfich As String
  monfich = """d:\sans titre.bmp"""
  leHwnd = FindWindowA(vbNullString, Me.Caption)
  ShellExecute leHwnd, vbNullString, monfich, vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Toi, avec VBA qui n'a pas de handle de Userform, il te faut rajouter ce handle
avec une fonction supplémentaire (tu l'as dans la FAQ) et( uytiliser le hwnd trouvé, à la place de me.hwnd

EDIT : j'ai complété pour toi (VBA) en ce qui concerne le handle.

Inutile de te préciser que si tu mets des guillemets alors que le nom n'a pas d'espaces, cela marche également, bien sûr, si bien que tu peux systématiquement ajouter les guillemets.

[ericdev67]

Salut Ouskel'n'or,

Face à ce problème, j'aurais essayé de "découper" le nom du fichier et de le reconstruire : exemple "Le truc.gif" deviendrait "L", "e", " ", "t",....avec une boucle style "right(nomfich,i)", ensuite je le regrouperais en faisant "nomfichier=right(nomfich,1) & right(nomfich,2) & ....".
puis : "Call Shell("C:\WINDOWS\SYSTEM32\mspaint.exe " & nomfichier, 3)

Le VBA reconnaitrait peut-être l'espace à ce moment ....

(Je sais que je n'ai pas le niveau, mais j'essaye de "te renvoyer la pareille", tu as toujours été sympa de m'aider à trouver , eput-être que cette piste pourra t'aider...)

A+

[ucfoutu]

Bonjour, ericdev67

Pourquoi se lancer dans tout ce mic-mac ?
Il suffit de mettre entre guillemets !

Edit (j'en profite) : Ousk, si tu veux en plus que la fenêtre de Paint s'ouvre à l'intérieur de ton UserForm, tu dis ...
Et si tu veux en plus que l'on inhibe le menu de paint, tu dis également (on sait faire)

[ericdev67]

Salut ucfoutu,



T'as raison, les solutions les plus simples sont les meilleures.....J'ai zappé ta dernière remarque "Inutile de te préciser que si tu mets des guillemets alors que le nom n'a pas d'espaces, cela marche également, bien sûr, si bien que tu peux systématiquement ajouter les guillemets"

Skuz

A+