Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 25/05/2011, 16h13   #1
Invité de passage
 
Femme jessy gregoire
Étudiant
Inscription : mai 2011
Messages : 8
Détails du profil
Informations personnelles :
Nom : Femme jessy gregoire
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2011
Messages : 8
Points : 0
Points : 0
Par défaut word access formulaire

bonjour à tous,

j'ai un problème avec ma base de donnée , j'ai créée un formulaire afin d'ouvrir des documents word et publisher grace à des cases cochers qui louvre directement. mais le hic c'est que pour les documents publishers celà ne marche pas j'ai tester avec le vba :
Code :
1
2
3
4
5
6
7
8
9
10
 
Private Sub Cocher94_DblClick(Cancel As Integer)
Dim appPub As Publisher.Application
Dim docPub As Publisher.Document
Set appPub = CreateObject("Publisher.application")
appPub.Visible = True
 
Documents.Open "xxx"
 
End Sub
mais quand j'ouvre dans le formulaire il m'affiche :
erreur de compilation membre de méthode ou de donnée introuvable .
antérieurement , j'ai sélectionner dans outils référence microsoft publisher 12.0 object library.

j'ai tester cela car , avec word j'avais mis le vba :
Code :
1
2
3
4
5
6
7
8
9
10
 
Private Sub Cocher96_DblClick(Cancel As Integer)
Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject("Word.application")
appWrd.Visible = True
 
Documents.Open "xxx"
 
End Sub
Merci de me soumettre vos recommandations le plus rapidement possible

merci
girldy est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/05/2011, 10h02   #2
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : mai 2011
Messages : 25
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Matériel informatique

Informations forums :
Inscription : mai 2011
Messages : 25
Points : 14
Points : 14
Si tu ne fais que les ouvrir, pourquoi ne pas utiliser un lien hypertexte avec le chemin de tes fichiers?

Code :
Application.FollowHyperlink "Chemin du fichier"
rockin-bones est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/05/2011, 10h24   #3
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : mai 2011
Messages : 25
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Matériel informatique

Informations forums :
Inscription : mai 2011
Messages : 25
Points : 14
Points : 14
Et, au cas où, si tu comptes mettre ta base sur d'autres postes, tu mets tous tes fichiers à ouvrir dans un dossier nommé "Annexes", puis tu mets ce dossier et ta base de données au même endroit.

Ainsi, tu peux récupérer le chemin de tes fichiers plus facilement grace à:
Code :
1
2
3
Dim chemin As String
 
chemin = Access.CurrentDb.Path & "\Annexes\[Nomdetonfichier].sonextension" '.doc, .xls, etc...
rockin-bones est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/05/2011, 15h25   #4
Invité de passage
 
Femme jessy gregoire
Étudiant
Inscription : mai 2011
Messages : 8
Détails du profil
Informations personnelles :
Nom : Femme jessy gregoire
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2011
Messages : 8
Points : 0
Points : 0
Par défaut Réponse word access formulaire rockin-bones

[QUOTE=girldy;6014164]Bonjour,
merci d'avori répondu c'est sympa.
justement quand je tape ton code pour le lien hypetexte en vba celà me met une erreur:
erreur d'exécution 490 Impossible d'ouvrir le fichier spécifié.

de plus, oui en effet je souhaite le mettre sur d'autres postes, mais ton deuxième code je dois l'insérer dans le code du lien hypertexte ou le metre à part ?

j'ai un autre souci je me suis rendu compte que quand j'ouvre mes fichiers word en cliquant sur les cases à cocher ils apparaissent mais le publipostage que j'ai mis en place par des requêtes (méthode traditionnelle) ne fonctionne pas automatiquement il n'y a plus de lien apparemment.
girldy est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h36.


 
 
 
 
Partenaires

Hébergement Web