Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access au secours ! help !

au secours ! help !

6 réponses
Avatar
natou
Bonjour,
Dans une de mes pr=E9c=E9dentes question "voir page 6" Fred=20
m'a orient=E9e sur une piste donc j'ai cr=E9=E9 un bouton pour=20
ouvrir mon appli CODESOFT, mais comment lui dire d'ouvrir=20
ce qui se trouve en r=E9f=E9rence dans le champs "lienCS" de=20
mon formulaire, =E0 la place de
"E:\CS6\notices\LAB\RK101.Lab"
que dois-je =E9crire ??? car dans mon champs "lienCS" je=20
donne la r=E9f=E9rence qui pour le cas ci-dessus est RK101.lab=20
mais pour un autre client ce sera RK???.lab
cf ci-dessous

Private Sub Commande441_Click()
On Error GoTo Err_Commande441_Click

Dim stAppName As String

stAppName =3D "E:\CS6\notices\LAB\RK101.Lab"
Call Shell(stAppName, 1)

Exit_Commande441_Click:
Exit Sub

Err_Commande441_Click:
MsgBox Err.Description
Resume Exit_Commande441_Click
=20
End Sub
M E R C I
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy SEMPERE
Bonjour

essais :
stAppName = "E:CS6noticesLAB" & Me.lienCS
Call Shell(stAppName, 1)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"natou" a écrit dans le message news:
0f5f01c3923e$757d9d20$
Bonjour,
Dans une de mes précédentes question "voir page 6" Fred
m'a orientée sur une piste donc j'ai créé un bouton pour
ouvrir mon appli CODESOFT, mais comment lui dire d'ouvrir
ce qui se trouve en référence dans le champs "lienCS" de
mon formulaire, à la place de
"E:CS6noticesLABRK101.Lab"
que dois-je écrire ??? car dans mon champs "lienCS" je
donne la référence qui pour le cas ci-dessus est RK101.lab
mais pour un autre client ce sera RK???.lab
cf ci-dessous

Private Sub Commande441_Click()
On Error GoTo Err_Commande441_Click

Dim stAppName As String

stAppName = "E:CS6noticesLABRK101.Lab"
Call Shell(stAppName, 1)

Exit_Commande441_Click:
Exit Sub

Err_Commande441_Click:
MsgBox Err.Description
Resume Exit_Commande441_Click

End Sub
M E R C I
Avatar
3stone
Salut Jessy,

"Jessy SEMPERE" a écrit
| essais :
| stAppName = "E:CS6noticesLAB" & Me.lienCS
| Call Shell(stAppName, 1)


Tu as vu cela à la "page 6" ?

;-)))


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
natou
Désolée JESSY, mais cela ne fonctionne pas "argument ou
appel de procédure incorrecte", j'ai fais le test avec un
document word j'ai le même résultat, que faire ????
merci
-----Message d'origine-----
Bonjour

essais :
stAppName = "E:CS6noticesLAB" & Me.lienCS
Call Shell(stAppName, 1)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"natou" a écrit dans le message news:
0f5f01c3923e$757d9d20$
Bonjour,
Dans une de mes précédentes question "voir page 6" Fred
m'a orientée sur une piste donc j'ai créé un bouton pour
ouvrir mon appli CODESOFT, mais comment lui dire d'ouvrir
ce qui se trouve en référence dans le champs "lienCS" de
mon formulaire, à la place de
"E:CS6noticesLABRK101.Lab"
que dois-je écrire ??? car dans mon champs "lienCS" je
donne la référence qui pour le cas ci-dessus est RK101.lab
mais pour un autre client ce sera RK???.lab
cf ci-dessous

Private Sub Commande441_Click()
On Error GoTo Err_Commande441_Click

Dim stAppName As String

stAppName = "E:CS6noticesLABRK101.Lab"
Call Shell(stAppName, 1)

Exit_Commande441_Click:
Exit Sub

Err_Commande441_Click:
MsgBox Err.Description
Resume Exit_Commande441_Click

End Sub
M E R C I


.



Avatar
natou
Merci à Fred et Jessy, qui m'ont mis sur la piste, j'ai
cherché dans la direction de votre logique d'aide et j'ai
trouvé, voici ce qu'il faut mettre dans le vba pour ouvrir
un .exe avec un document derrière, dont le nom du doc est
mis dans un champs de formulaire.
stAppName = "C:Program FilesCS6Cs.exe e:CS6
noticesLAB" & Me.toto
il faut d'abord appeler le ".exe" et ensuite indiqué quel
doc l'on désire ouvrir.

Merci à vous deux et à bientôt car sur que je vais revenir
avec de nouvelles questions, mais c'est fou ce que l'on
apprends dans ce forum
-----Message d'origine-----
Bonjour

essais :
stAppName = "E:CS6noticesLAB" & Me.lienCS
Call Shell(stAppName, 1)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"natou" a écrit dans le message news:
0f5f01c3923e$757d9d20$
Bonjour,
Dans une de mes précédentes question "voir page 6" Fred
m'a orientée sur une piste donc j'ai créé un bouton pour
ouvrir mon appli CODESOFT, mais comment lui dire d'ouvrir
ce qui se trouve en référence dans le champs "lienCS" de
mon formulaire, à la place de
"E:CS6noticesLABRK101.Lab"
que dois-je écrire ??? car dans mon champs "lienCS" je
donne la référence qui pour le cas ci-dessus est RK101.lab
mais pour un autre client ce sera RK???.lab
cf ci-dessous

Private Sub Commande441_Click()
On Error GoTo Err_Commande441_Click

Dim stAppName As String

stAppName = "E:CS6noticesLABRK101.Lab"
Call Shell(stAppName, 1)

Exit_Commande441_Click:
Exit Sub

Err_Commande441_Click:
MsgBox Err.Description
Resume Exit_Commande441_Click

End Sub
M E R C I


.



Avatar
natou
Allez "3stone" chipotes pas maintenant ma première
question se trouve page 7 ....demain elle se trouvera page
8, peu importe l'essentiel c'est qu'un résultat soit
apporté ....
-----Message d'origine-----
Salut Jessy,

"Jessy SEMPERE" a écrit
| essais :
| stAppName = "E:CS6noticesLAB" & Me.lienCS
| Call Shell(stAppName, 1)


Tu as vu cela à la "page 6" ?

;-)))


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------



.



Avatar
Jessy SEMPERE
en fait ce que voulait dire 3stone, c'est que le mieux
pour utiliser les news, est de passer par Outlook Express
si tu le possède, c'est beaucoup plus facile à suivre surtout
que tu peux mettre un suivi sur tes messages...

Regardes à la 2ème adresse de ma signature, tu trouveras
un lien pour y accéder par OE

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"natou" a écrit dans le message news:
056301c39258$83fe8a20$
Allez "3stone" chipotes pas maintenant ma première
question se trouve page 7 ....demain elle se trouvera page
8, peu importe l'essentiel c'est qu'un résultat soit
apporté ....
-----Message d'origine-----
Salut Jessy,

"Jessy SEMPERE" a écrit
| essais :
| stAppName = "E:CS6noticesLAB" & Me.lienCS
| Call Shell(stAppName, 1)


Tu as vu cela à la "page 6" ?

;-)))


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------



.