alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
25 avril 2006 à 09:32
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
25 avril 2006 à 11:39
Bonjour à tous,
Apparement pas beaucoup de personne n'a répondu a mon message peut était il mal exprimé donc je m'y reprend :p
Je voudrais ouvrir un fichier .dot (modèle Word) à partir de code VBA sous Access 97. Le chemin du fichier .dot est stocké dans une table nommée "t_chemin_fichier_dot" sous le champ nommé "CheminRelance".
Pour cela j'utilise un bouton (btnEdition) et je veux utiliser un shell derriere ce bouton.
Vous avez compris ?
Merci
cs_thephil
Messages postés189Date d'inscriptionmercredi 21 août 2002StatutMembreDernière intervention19 janvier 2011 25 avril 2006 à 10:28
dans le code de ton bouton :
dim BDD as database
dim Tbl as recordset
set BDD=opendatabase("chemin de la base")
set Tbl=BDD.openrecordset("select CheminRelance from
t_chemin_fichier_dot")
shell tbl!CheminRelance
Tbl.close
BDD.close
de tête, ça doit etre à peu près ça ...
après il y'a peut etre des conditions à rajouter das le select si tu as plusieurs enreg et un controle avant le shell pour s'assurer qu'il y'a bien un enreg (Tbl.recordcount <> 0)
cs_thephil
Messages postés189Date d'inscriptionmercredi 21 août 2002StatutMembreDernière intervention19 janvier 2011 25 avril 2006 à 10:33
j'ai oubilé un truc ...
dans ton shell il ne faut pas oublier de lancer l'appli avec laquelle tu veux ouvrir le .dot, word je pense .. et tu passes en paramètre le chemin du fichier
shell chemin_word & " " & tbl!CheminRelance
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 25 avril 2006 à 10:49
J'ai donc rajouté chemin_word dans la base avec le chemin correspondant au .exe sinon pour ce qui est du shell pour le passage en paramètre j'ai cela
Private Sub edition_Click()
Dim BDD As Database
Dim Tbl As Recordset
Dim CheminWord As String
Set BDD = OpenDatabase("cheminbase...")
Set Tbl = BDD.OpenRecordset("select CheminRelance from T_Chemin_fichier_dot ")
Shell CheminWord & " " & Tbl!CheminRelance
Tbl.Close
BDD.Close
End Sub
Quel est le problème malgré que j'ai déclaré le chemin en tant que string?
_______________________ <<<< :-: 4L!@$ :-: >>>>
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_thephil
Messages postés189Date d'inscriptionmercredi 21 août 2002StatutMembreDernière intervention19 janvier 2011 25 avril 2006 à 10:54
tu as bien un seul enregistrement dans ta table T_Chemin_fichier_dot ??? avec 2 champs CheminRelance et chemin_word.
ce code me semble correct, où est ce que ça plante ? enfin ça plante où c'est le fichier qui ne s'ouvre pas ?
cs_thephil
Messages postés189Date d'inscriptionmercredi 21 août 2002StatutMembreDernière intervention19 janvier 2011 25 avril 2006 à 11:11
ok, mais dans fic_a_ouvrir, il faut que tu aies (exemple) : "c:\program files\...\word.exe c:\dossier\fic.dot")
tu as essayé ça : ?
Set Tbl = BDD.OpenRecordset("select CheminRelance,CheminWord from T_Chemin_fichier_dot ")
Fic_a_ouvrir=Tbl!CheminWord & " " & Tbl!CheminRelance
Shell Fic_a_ouvrir
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 25 avril 2006 à 11:39
Ouai c'est bon le code mais je me rend compte qu'en fait ca m'ouvre le fichier .dot comme si je faisas un clic droit "ouvrir" et donc du coup il ne s'execute pas j'ai trouve la piste suivante apparement. Ce n'est qu'un début
Dim objword
Set objword = CreateObject("Word.Application") 'manque qqchose avant create object
objword.Documents.Add nom_du_fichier