syntaxe call

Le
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 FilesNetRecipeSoftNRCabPictures.EXE""/C
/T:""C:Program FilesNetRecipeSoftNRPhotos""", 1)


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


Je suis preneur de toute aide et conseils.
Merci à tous
jfd
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LeGoldo
Le #6390991
On 23 sep, 21:00, jfd
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...

jfd
Le #6390971
Bonjour "LeGoldo" et merci beaucoup, je vais essayer cela.

Bonne journée
jfd


On 23 sep, 21:00, 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 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...





Publicité
Poster une réponse
Anonyme