Discussion :

[chibredor]

Bonjour, j'ai un petit problème qui ne vas pas être très dur à résoudre pour vous je pense...mais pour un novice pour moi c'est bien plus dur!!!

En fait, je veux créer un bouton sous ACCESS qui m'ouvre un fichier word.
Mais le problème est que ce fichier est différent à chaque fois donc il n'y a pas un seul chemin d'accès.

je m'explique,en fait, j'ai une variable numéro de test où les valeurs vont de 1à 100.
Si l'utilisateur est sur le test 23 (donc si la valeur saisi est 23 dans la zone de texte associée au numéro de test), je veux qu'en cliquant sur le bouton,ça ouvre le compte rendu du test 23 ex: "c:\mes documents\compte rendu\ test 23.doc"

PS: pour simplifier le truc,j'ai mis tous mes comptes rendu dans un seul et même dossier

MERCI d'avance

...et j'espère que j'ai été assez clair sinon n'hésitez pas à me demander plus d'explications!

[Jean-Philippe André]

Bonjour chibredor,
bienvenue sur DVP
il suffit pour toi de modifier la chaine de caracteres du path du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TafonctionOpenDocWord "c:\mes documents\compte rendu\ test 23.doc"

dans l'idée ca donnerait un code comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
i = Me.MonControl.Value
TafonctionOpenDocWord "c:\mes documents\compte rendu\ test " & i & ".doc"

[chibredor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = Me.MonControl.Value

Je vois pas trop trop ce que je dois mettre...désolé d'être aussi mauvais!

[Jean-Philippe André]

tu dois attribuer la valeur de ton numéro de test à la variable i,
dans quoi peux-tu connaitre ce numéro ?

[chibredor]

En fait l'utilisateur rentre le numéro du test dans une zone de texte que j'ai créé dans mon formulaire de saisi

[Jean-Philippe André]

dans ce cas, remplace le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = Me.MonControl.Value

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = Me.NomdeTonControlTexte.Value

[chibredor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TafonctionOpenDocWord "c:\mes documents\compte rendu\ test 23.doc"

Ah ok j'ai compris..et pour le nom de la fonction je mets quoi?
Au fait, "dernière" petite question quand tu mets "me.nom.value" le "me" c'est bien le nom de ma table?

je te remercie vraiment beaucoup pour ttes tes répondes déjà

[Jean-Philippe André]

pour aller plus vite, peux-tu me donner le code que tu utilises actuellement, pour que je te l'adapte, ca évitera d'avancer à tatons

[chibredor]

Je vais te faire peur car il y a pleins d'erreurs mais je n'arrive pas à les résoudre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande147_Click()
 
Dim i As Integer
Dim strFichier As String
Dim objWord As New Word.Application
i = Num_test_Etiquette.Value
strFichier = "C:\Documents and Settings\stagiaireRD\Bureau\Stage Frédéric\Base de données ACCESS\Market research\test " & i & ".doc"
objWord.Documents.Open strFichier
objWord.Visible = True
Set objWord = Nothing
 
End Sub

good luck...

[Jean-Philippe André]

pas trop de point d'erreurs à première vue
on remplacera en fait directement l'Integer par un String (été oblige )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande147_Click()
 
Dim i As String
Dim strFichier As String
Dim objWord As New Word.Application
i = Me.Num_test_Etiquette.Value
strFichier = "C:\Documents and Settings\stagiaireRD\Bureau\Stage Frédéric\Base de données ACCESS\Market research\test " & i & ".doc"
objWord.Documents.Open strFichier
objWord.Visible = True
Set objWord = Nothing
 
End Sub

quelles erreurs apparaissaient ?