Pour commencer:
- toutes mes excuses aux modérateurs, pour mon erreur sur le choix du thème;
- un grand Merci à Pierre Yves SAMYN pour le fichier BD hyperlien.odb.
[ajout- un grand à jeanmimi pour sa réponse][/ajout]
Ajout : Jeanmimi à écrit: Dans le premier fichier que tu as joint, il n'y a pas de Macro et donc pas de Module4 J'ai modifié le fichier et joins les macros à celui-ci les nouveaux modules sont: Module1 pour le sous formulaire (présente le problème) Module2 pour formulaire principal (fonctionne) |
des sous-formulaires.
Dans le formulaire NewDocument (formulaire principal) lié à macro module2.
Les boutons "Ouvrir document" fonctionnent tous les trois.
Dans le formulaire F_Encodage (avec sous formulaire) lié à macro module4.
Les boutons "Ouvrir document" ne fonctionnent pas, message d'erreur:
Erreur d'exécution BASIC
Une exception s'est produite: Type: com.sun.star.container.NoSuchElementExceptionMessage:
Au cas où il y aurait encore un problème d'accès aux macros, voici le code qui pose problème.
Code : Tout sélectionner
Sub AuteurLien
Dim monDocument As Object
Dim lesFormulaires AS Object, unFormulaire As Object, unSousFormulaire As Object
Dim monCtrl As Object
Dim sv As Object
Dim Adresse As String
Dim fichier As String
monDocument = thisComponent
lesFormulaires = monDocument.DrawPage.Forms
unFormulaire = lesFormulaires.getByName("Formulaire principal")
unSousFormulaire = unFormulaire.getByName("Sous formulaire")
monCtrl = unSousFormulaire.getByName("InvAutDocLien")
Adresse = monCtrl.Text
sv = createUnoService("com.sun.star.system.SystemShellExecute")
sv.execute(Adresse, "",0)
End Sub
Dans SuiviSoinsSanté.odb
L'enregistrement ID INV 8 contient des liens mut1 et auteur1 à mettre sur le Bureau
Chaque macro bloque sur la même ligne:
Pour Sub AuteurLien
monCtrl = unSousFormulaire.getByName("InvAutDocLien")
Pour Sub MutuelleLien
monCtrl = unSousFormulaire.getByName("InvMutIndemLien")
Pour Sub AssureurLien
monCtrl = unSousFormulaire.getByName("InvAssIndemLien")
2) Comment faire en sorte de n'avoir plus qu'une macro pour gérer les 2 formulaires ?
Très impatient de lire vos commentaires et de savoir où je me suis trompé.
Jplunus