Discussion :

[Ghost0000]

Bonjour,

Je travail sur une macro en PPT.

J'avais ce code qui fonctionne très bien :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
     Dim ID As Variant
     Dim Fichier As String
     Fichier = """EXCEL.EXE"" ""\\filer4\controles_production$\Formulaires\TEST.xlsm"""
     ID = Shell(Fichier, vbMaximizedFocus)
 End Sub

Je veux le remplacer par une concaténation d'information :

Code :

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

1
2
3
4
     Dim ID As Variant
     Dim Fichier As String
     Fichier = """EXCEL.EXE"" & "" & Slide23.TextBox1.Value & """
     ID = Shell(Fichier, vbMaximizedFocus)

Cependant, cette syntaxe ne fonctionne pas .... pourtant je suis bien sur le bon slide PPT et je Pointe bien sur le bon TextBox... (il me semble que c'est une erreur de synthaxe...)

Pouvez-vous m'aider SVP car j'ai tout essayé...

Merci d'avance.

Cordialement.

GK

[jfontaine]

Bonjour,

Une astuce quand tu as doute sur la valeur d'une variable, c'est de l'afficher.
dans ton cas, quelle valeur prend Fichier ?
Tu verras qu'il y a plein de Guillemets qui traînent

A essayer

Code :

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

1
2
3
4
     Dim ID As Variant
     Dim Fichier As String
     Fichier = """EXCEL.EXE " & Slide23.TextBox1.Value & """"
     ID = Shell(Fichier, vbMaximizedFocus)

[Ghost0000]

Je viens de voir le problème, en réalité, dans Slide23.Textbox1.Text, je retrouve bien cette valeur :\\filer4\controles_production$\Formulaires\TEST ACTUEL.xlsm

Le souci c'est que le système ne reconnait pas mon lien et il ne voit que \\filer4\controles_production$\Formulaires\TEST.xlsx puis j'ai une erreur sur ACTUEL.xlsm ...

Le textbox1 ne prend pas en compte l'espace entre TEST et ACTUEL de mon fichier \\filer4\controles_production$\Formulaires\TEST ACTUEL.xlsm

SInon la bonne synthaxe c'est celle-ci :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
     Dim ID As Variant
     Dim Fichier As String
'     Fichier = """EXCEL.EXE"" ""\\filer4\controles_production$\Formulaires\TEST ACTUEL.xlsm"""
     Fichier = "EXCEL.EXE" & " " & Slide23.TextBox1.Text
     ID = Shell(Fichier, vbMaximizedFocus)
 End Sub

Une idée pour corriger ce problème d'espace ?

[jfontaine]

Il faut mettre des crochets pour que l'espace ne soit pas pris comme caractère de sortie de nom de fichier

Code :

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

 Fichier = """EXCEL.EXE"" ""\\filer4\controles_production$\Formulaires\[TEST ACTUEL.xlsm]"""

[Ghost0000]

J'aimerai plutôt faire des modifications ici :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
     Dim ID As Variant
     Dim Fichier As String
     Fichier = "EXCEL.EXE" & " " & "[" & Slide23.TextBox1.Text & "]"
     OU
     Fichier = "EXCEL.EXE" & " " & [Slide23.TextBox1.Text]
     ID = Shell(Fichier, vbMaximizedFocus)
     End Sub

J'ai essayé les deux ... ça ne fonctionne pas.... J'ai même essayé de modifier la synthaxe dans le TextBox1 Avec celle-ci : \\filer4\controles_production$\Formulaires\[TEST ACTUEL.xlsm]....

Ca m'indique une erreur sur \\filer4\controles_production$\Formulaires\[TEST.xlsx
puis une autre juste après sur \\filer4\controles_production$\Formulaires\ACTUEL.xlsm]

En Effet, c'est ma TextBox 1 qui contient l'arborecence où se trouve le fichier ....

[Ghost0000]

J'ai regardé les discussions sur votre Forum à ce Sujet , ICI : http://www.developpez.net/forums/d13...-nom-variable/

Et j'ai trouvé la bonne synthaxe :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
     Dim ID As Variant
     Dim Fichier As String
     MaCommande = "EXCEL.EXE"
     MonFichier = Slide23.TextBox1.Value
     ID = Shell(Chr(34) & MaCommande & Chr(34) & " " & Chr(34) & MonFichier & Chr(34), vbMaximizedFocus)
     End Sub

C'était laborieux, mais j'y suis arrivé !!!

Merci Developpez !!

GK

[Marc-L]

Bonjour, bonjour !

Ce n'est pourtant pas compliqué vu les nombreux exemples de ce forum !

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    ID = Shell("""EXCEL.EXE"" """ & Slide23.TextBox1.Value & """", vbMaximizedFocus)
End Sub

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …