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 Toujours rien trouvé !!!

Toujours rien trouvé !!!

1 réponse
Avatar
Tophe
Bonjour !

J'utilise la m=E9thode "FollowHyperlink" pour ouvrir un=20
fichier Access =E0 partir de mon appli Access puis ".Quit"=20
pour quitter la 1=E8re.

Cette m=E9thode est utilis=E9e dans la fonction suivante :

Function OUVRIRAPP(NOMAPP As String)
On Error GoTo OUVRIRAPP_Err

Dim sDestination As String

sDestination =3D CurrentProject.Path & "\" & NOMAPP
=20
With Application
=20
.FollowHyperlink sDestination
.Quit
=20
End With
=20
Exit_OUVRIRAPP:
Exit Function

OUVRIRAPP_Err:

Resume Exit_OUVRIRAPP
=20
End Function

Sur un poste avec Acces, tout va bien.
Sur un poste o=F9 j'ai mis le runtime, j'obtiens un=20
avertissement Office :

Ouverture de C:\......\autreapli.mdb
Certains fichiers peuvent contenir des virus ou peuvent=20
proter pr=E9judice =E0 votre ordinateur. Il est important de=20
s'assurer de la fiabilit=E9 de leur source.
Voulez-vous ouvrir ce fichier ?
OK ANNULER

Si annuler =3D> arr=EAt de la fonction
Si OK =3D> l'appli d'origine se ferme et la 2=E8me appli ne=20
s'ouvre pas......!!!!!

Que faire ?

Merci

Christophe
..
Signaler un problème avec ce contenu

1 réponse

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
André AVONS
Salut
remplace ton FollowHyperlink PAR

sDestination = CurrentProject.Path & "" & NOMAPP
stAppName = "MSACCESS.EXE " & Chr(34) & sDestination & Chr(34)
Call Shell(stAppName, 1)
APPARAMENT TU VEUX QUITTER LA MDB QUI APPELLE SI OUI TU METS
Docmd.Quit
SINON TU METS RIEN
--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Tophe" a écrit dans le message de
news:0a8501c35b4f$60821e30$
Bonjour !

J'utilise la méthode "FollowHyperlink" pour ouvrir un
fichier Access à partir de mon appli Access puis ".Quit"
pour quitter la 1ère.

Cette méthode est utilisée dans la fonction suivante :

Function OUVRIRAPP(NOMAPP As String)
On Error GoTo OUVRIRAPP_Err

Dim sDestination As String

sDestination = CurrentProject.Path & "" & NOMAPP

With Application

.FollowHyperlink sDestination
.Quit

End With

Exit_OUVRIRAPP:
Exit Function

OUVRIRAPP_Err:

Resume Exit_OUVRIRAPP

End Function

Sur un poste avec Acces, tout va bien.
Sur un poste où j'ai mis le runtime, j'obtiens un
avertissement Office :

Ouverture de C:......autreapli.mdb
Certains fichiers peuvent contenir des virus ou peuvent
proter préjudice à votre ordinateur. Il est important de
s'assurer de la fiabilité de leur source.
Voulez-vous ouvrir ce fichier ?
OK ANNULER

Si annuler => arrêt de la fonction
Si OK => l'appli d'origine se ferme et la 2ème appli ne
s'ouvre pas......!!!!!

Que faire ?

Merci

Christophe
..