Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Maximiser la fenêtre d'une application ouverte avec GetObject

Maximiser la fenêtre d'une application ouverte avec GetObject

3 réponses
Avatar
Louis
Bonjour,

J'utilise l'instruction GetOject pour ouvrir une application et un fichier
précis.
Je souhaiterais pouvoir afficher la nouvelle application d'un une fenêtre
maximisée sur l'ensemble de mon écran). Avec le code suivant, la fenêtre
s'ouvre en fenêtre partielle. Je n'ai rien trouvé dans l'aide.

Pouvez-vous m'aider ? Merci d'avance !

Code :
Dim RunAppl As Object
Dim Appl As String
Dim Nom As String
Nom = Nothing
Appl = "CheminLocalFichier"
RunAppl = GetObject(Appl, Nom)
RunAppl.visible = True

--
Louis de Belgique
Signaler un problème avec ce contenu

3 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
Patrice
Normalement cela devrait être pris en charge par l'objet que tu récupères
"RunAppl"... Il faut regarder l'aide pour le modèle objet exposé par
l'application...

--
Patrice

"Louis" a écrit dans le message de
news:
Bonjour,

J'utilise l'instruction GetOject pour ouvrir une application et un fichier
précis.
Je souhaiterais pouvoir afficher la nouvelle application d'un une fenêtre
maximisée sur l'ensemble de mon écran). Avec le code suivant, la fenêtre
s'ouvre en fenêtre partielle. Je n'ai rien trouvé dans l'aide.

Pouvez-vous m'aider ? Merci d'avance !

Code :
Dim RunAppl As Object
Dim Appl As String
Dim Nom As String
Nom = Nothing
Appl = "CheminLocalFichier"
RunAppl = GetObject(Appl, Nom)
RunAppl.visible = True

--
Louis de Belgique


Avatar
Louis
Bonjour Patrice,

Je te remercie pour ta réponse rapide qui répond sans doute partiellement à
mon problème. L'objet que j'ouvre est un fichier Access ".mdb". Je n'ai
cependant pas trouvé le moyen en ouvrant le fichier Access de maximiser la
fenêtre d'Access elle-même. Je ne sais maximiser que les formulaires à
l'intérieur d'Access. Peut-être faut-il changer de groupe de discussion ?
--
Louis de Belgique


"Patrice" a écrit :

Normalement cela devrait être pris en charge par l'objet que tu récupères
"RunAppl"... Il faut regarder l'aide pour le modèle objet exposé par
l'application...

--
Patrice

"Louis" a écrit dans le message de
news:
> Bonjour,
>
> J'utilise l'instruction GetOject pour ouvrir une application et un fichier
> précis.
> Je souhaiterais pouvoir afficher la nouvelle application d'un une fenêtre
> maximisée sur l'ensemble de mon écran). Avec le code suivant, la fenêtre
> s'ouvre en fenêtre partielle. Je n'ai rien trouvé dans l'aide.
>
> Pouvez-vous m'aider ? Merci d'avance !
>
> Code :
> Dim RunAppl As Object
> Dim Appl As String
> Dim Nom As String
> Nom = Nothing
> Appl = "CheminLocalFichier"
> RunAppl = GetObject(Appl, Nom)
> RunAppl.visible = True
>
> --
> Louis de Belgique





Avatar
Patrice
Essaie DoCmd.Maximize...

Sinon effectivement un groupe Access, le problème étant d'appeler la bonne
fonction d'Access...

--
Patrice

"Louis" a écrit dans le message de
news:
Bonjour Patrice,

Je te remercie pour ta réponse rapide qui répond sans doute partiellement


à
mon problème. L'objet que j'ouvre est un fichier Access ".mdb". Je n'ai
cependant pas trouvé le moyen en ouvrant le fichier Access de maximiser la
fenêtre d'Access elle-même. Je ne sais maximiser que les formulaires à
l'intérieur d'Access. Peut-être faut-il changer de groupe de discussion ?
--
Louis de Belgique


"Patrice" a écrit :

> Normalement cela devrait être pris en charge par l'objet que tu


récupères
> "RunAppl"... Il faut regarder l'aide pour le modèle objet exposé par
> l'application...
>
> --
> Patrice
>
> "Louis" a écrit dans le message de
> news:
> > Bonjour,
> >
> > J'utilise l'instruction GetOject pour ouvrir une application et un


fichier
> > précis.
> > Je souhaiterais pouvoir afficher la nouvelle application d'un une


fenêtre
> > maximisée sur l'ensemble de mon écran). Avec le code suivant, la


fenêtre
> > s'ouvre en fenêtre partielle. Je n'ai rien trouvé dans l'aide.
> >
> > Pouvez-vous m'aider ? Merci d'avance !
> >
> > Code :
> > Dim RunAppl As Object
> > Dim Appl As String
> > Dim Nom As String
> > Nom = Nothing
> > Appl = "CheminLocalFichier"
> > RunAppl = GetObject(Appl, Nom)
> > RunAppl.visible = True
> >
> > --
> > Louis de Belgique
>
>
>