Syntaxe concaténation d'informations à corriger

Bonjour,

Je travail sur une macro en PPT.

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

Code:

---

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:

---

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

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:

---

1 2 3 4

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

---

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:

---

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 ?

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

Code:

---

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

---

J'aimerai plutôt faire des modifications ici :

Code:

---

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 ....

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:

---

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

Bonjour, bonjour !

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

Code:

---

1 2 3

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

---

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …