Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

syntaxe call

2 réponses
Avatar
jfd
Bonsoir
Voila j’extrais deux fichier cab sur ouverture d’un formulaire, cela marche
très bien…..Mais je bloque depuis qq heures ..............sur la syntaxe à
utiliser si je veux un chemin non fixe.

Call Shell("""C:\Program Files\NetRecipeSoft\NRCab\Pictures.EXE""/C
/T:""C:\Program Files\NetRecipeSoft\NRPhotos""", 1)


Call Shell("""C:\Program Files\NRSoft\NRCab\Icons.EXE""/C
/T:""C:\Program Files\NRSoft\NRIcons""", 1)


Je suis preneur de toute aide et conseils.
Merci à tous
jfd

2 réponses

Avatar
LeGoldo
On 23 sep, 21:00, jfd wrote:
Bonsoir
Voila j'extrais deux fichier cab sur ouverture d'un formulaire, cela marc he
très bien.....Mais je bloque depuis qq heures ..............sur la synt axe à
utiliser si je veux un chemin non fixe.

Call Shell("""C:Program FilesNetRecipeSoftNRCabPictures.EXE""/C
/T:""C:Program FilesNetRecipeSoftNRPhotos""", 1)

Call Shell("""C:Program FilesNRSoftNRCabIcons.EXE""/C
/T:""C:Program FilesNRSoftNRIcons""", 1)

Là, je peux :


1) utiliser les guillemets simples ' pour encadrer tes chaines
internes ;-)

2) utiliser la fonction ci-dessous pour concaténer les dites-chaines :
Function Guillemets(xVar As Variant)

Dim sTemp As String

If IsNull(xVar) Then
Guillemets = Chr(34) + Chr(34)
Else
If VarType(xVar) = 8 Then
Guillemets = Chr(34) + xVar + Chr(34)
Else
Guillemets = Chr(34) + CStr(xVar) + Chr(34)
End If

End If

End Function

( Chez moi, ça marche !)

Cordialement...

Avatar
jfd
Bonjour "LeGoldo" et merci beaucoup, je vais essayer cela.

Bonne journée
jfd


On 23 sep, 21:00, jfd wrote:
Bonsoir
Voila j'extrais deux fichier cab sur ouverture d'un formulaire, cela marche
très bien.....Mais je bloque depuis qq heures ..............sur la syntaxe à
utiliser si je veux un chemin non fixe.

Call Shell("""C:Program FilesNetRecipeSoftNRCabPictures.EXE""/C
/T:""C:Program FilesNetRecipeSoftNRPhotos""", 1)

Call Shell("""C:Program FilesNRSoftNRCabIcons.EXE""/C
/T:""C:Program FilesNRSoftNRIcons""", 1)

Là, je peux :


1) utiliser les guillemets simples ' pour encadrer tes chaines
internes ;-)

2) utiliser la fonction ci-dessous pour concaténer les dites-chaines :
Function Guillemets(xVar As Variant)

Dim sTemp As String

If IsNull(xVar) Then
Guillemets = Chr(34) + Chr(34)
Else
If VarType(xVar) = 8 Then
Guillemets = Chr(34) + xVar + Chr(34)
Else
Guillemets = Chr(34) + CStr(xVar) + Chr(34)
End If

End If

End Function

( Chez moi, ça marche !)

Cordialement...