je travail sur deux applications:
excel
access
je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire
access.
J'y suis parvenu en utilisant un lien hypertexte qui me genere un message
d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc
etc....
Je pense qu'une macro conviendrait mieux.
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
michdenis
Bonjour Bernard,
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
------------------------- Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant ' contenir la référence. Dim Fichier As String Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o" Set xlApp = GetObject(Fichier, "access.application") xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré xlApp.Visible = True Set xlApp = Nothing
End Sub '-------------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:O1pT$ Bonsoir,
je travail sur deux applications: excel access je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire access. J'y suis parvenu en utilisant un lien hypertexte qui me genere un message d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc etc.... Je pense qu'une macro conviendrait mieux.
Si vous avez des idées je prend.
Merci de me répondre
A+
Bonjour Bernard,
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
-------------------------
Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant
' contenir la référence.
Dim Fichier As String
Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o"
Set xlApp = GetObject(Fichier, "access.application")
xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré
xlApp.Visible = True
Set xlApp = Nothing
End Sub
'-------------------------
Salutations!
"Bernard SALIEN" <93206310nospam@wanadoo.fr> a écrit dans le message de news:O1pT$A53DHA.1428@TK2MSFTNGP12.phx.gbl...
Bonsoir,
je travail sur deux applications:
excel
access
je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire
access.
J'y suis parvenu en utilisant un lien hypertexte qui me genere un message
d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc
etc....
Je pense qu'une macro conviendrait mieux.
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
------------------------- Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant ' contenir la référence. Dim Fichier As String Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o" Set xlApp = GetObject(Fichier, "access.application") xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré xlApp.Visible = True Set xlApp = Nothing
End Sub '-------------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:O1pT$ Bonsoir,
je travail sur deux applications: excel access je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire access. J'y suis parvenu en utilisant un lien hypertexte qui me genere un message d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc etc.... Je pense qu'une macro conviendrait mieux.
Si vous avez des idées je prend.
Merci de me répondre
A+
michdenis
Bonsoir Bernard,
Il n'est pas nécessaire d'ajouter la bibliothèque "Microsoft DAO 3.6 Object Librairy" pour que la procédure fonctionne ....Un copier-coller a permis de laisser en place ces 2 lignes du message original.
Salutations!
"michdenis" a écrit dans le message de news:ui$ Bonjour Bernard,
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
------------------------- Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant ' contenir la référence. Dim Fichier As String Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o" Set xlApp = GetObject(Fichier, "access.application") xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré xlApp.Visible = True Set xlApp = Nothing
End Sub '-------------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:O1pT$ Bonsoir,
je travail sur deux applications: excel access je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire access. J'y suis parvenu en utilisant un lien hypertexte qui me genere un message d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc etc.... Je pense qu'une macro conviendrait mieux.
Si vous avez des idées je prend.
Merci de me répondre
A+
Bonsoir Bernard,
Il n'est pas nécessaire d'ajouter la bibliothèque "Microsoft DAO 3.6 Object Librairy"
pour que la procédure fonctionne ....Un copier-coller a permis de laisser en place ces 2 lignes du message original.
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:ui$mNn53DHA.2656@tk2msftngp13.phx.gbl...
Bonjour Bernard,
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
-------------------------
Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant
' contenir la référence.
Dim Fichier As String
Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o"
Set xlApp = GetObject(Fichier, "access.application")
xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré
xlApp.Visible = True
Set xlApp = Nothing
End Sub
'-------------------------
Salutations!
"Bernard SALIEN" <93206310nospam@wanadoo.fr> a écrit dans le message de news:O1pT$A53DHA.1428@TK2MSFTNGP12.phx.gbl...
Bonsoir,
je travail sur deux applications:
excel
access
je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire
access.
J'y suis parvenu en utilisant un lien hypertexte qui me genere un message
d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc
etc....
Je pense qu'une macro conviendrait mieux.
Il n'est pas nécessaire d'ajouter la bibliothèque "Microsoft DAO 3.6 Object Librairy" pour que la procédure fonctionne ....Un copier-coller a permis de laisser en place ces 2 lignes du message original.
Salutations!
"michdenis" a écrit dans le message de news:ui$ Bonjour Bernard,
Il y a quelques jours, je publiais la procédure suivante pour ouvrir un formulaire d'une base de données Access :
Ajoute la bibliothèque suivante à ton projet :
"Microsoft DAO 3.6 Object Librairy"
------------------------- Sub OuvrirAccess()
Dim xlApp As Object ' Déclare la variable devant ' contenir la référence. Dim Fichier As String Fichier = "C:Mes documentsComptoir.mdb"
SendKeys "%o" Set xlApp = GetObject(Fichier, "access.application") xlApp.DoCmd.OpenForm "Clients" 'ouvre le formulaire désiré xlApp.Visible = True Set xlApp = Nothing
End Sub '-------------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:O1pT$ Bonsoir,
je travail sur deux applications: excel access je voudrais, à partir d'un bouton que j'ai créé appeler un formulaire access. J'y suis parvenu en utilisant un lien hypertexte qui me genere un message d'erreur: attention ouvrez le lien hypertexte que si vous etes sur etc etc.... Je pense qu'une macro conviendrait mieux.
