Discussion :

[ClaudeLELOUP]

Bonjour et bienvenue François le Champi,

Merci pour l'intérêt porté à cet article.

Peut-on spécifier à Access/Word que l'on ouvrir le document en mode document (.docx) de façon que mon modèle soit protégé.

Si tu regardes ici, par exemple : http://claudeleloup.developpez.com/t...-types/#LV-B-2, tu constateras qu'on ne traite pas le modèle. On prend une copie et c'est elle qu'on personnalise.


La petite Fadette (pour rester dans la même catégorie)

[FrancoisLeChampi]

Oui, c'est ce que j'ai compris : on crée le document, on l'enregistre tout de suite et on l'ouvre à nouveau pour que l'utilisateur puisse le modifier. Du coup, quand l'utilisateur le modifie, l'enregistrement se fait automatiquement au bon endroit. C'est très fort, en tout cas, bien au-dessus de mon niveau. Je vais relire tout ça et essayer de l'adapter à mon cas, c'est à dire trouver comment spécifier le bon dossier ce qui dans mon cas est différent du tutoriel.

Cependant, mon idée était pour commencer d'ouvrir un document à partir d'un modèle. Ceci présente l'intérêt que si on renonce à créer le document (parce qu'on s'aperçoit qu'on n'a pas rempli correctement le formulaire avant l'édition par exemple), on annule et le document n'est pas créé. En mode test, ça m'intéresse.

Voilà pourquoi j'aurais été intéressé de savoir si on peut non pas ouvrir un document mais un modèle en mode document comme on fait d'habitude sous word quand on choisit "créer un nouveau document à partir d'un modèle".

Mais si c'est pas possible...

Merci de vos conseils

François

[ClaudeLELOUP]

Je ne suis pas un spécialiste de l'utilisation de Word !

Moi, je laisserais le document "projet" se créer.
Si l'utilisateur se ravise et renonce au projet, il ferme le doc le formulaire Access revient au premier plan.
Dans le formulaire, prévois un bouton dont le clic supprime le document qui s'avère inutile dans le cas que tu évoques.

[FrancoisLeChampi]

J'ai trouvé !

Je le donne pour le partager avec d'autres

1°) pour ouvrir un document word
.document.open lechemindumodèle.docx

mais là c'est le modèle qui s'ouvre

2°) pour ouvrir un document à partir d'un modèle
.document.add template:=lechemindumodèle.docx

j'ai trouvé ça sur
http://msdn.microsoft.com/fr-fr/libr...ice.15%29.aspx

maintenant, ce que je voudrais, c'est suggérer à word le chemin pour enregistrer...

encore merci !

[ClaudeLELOUP]

Bonjour,

maintenant, ce que je voudrais, c'est suggérer à word le chemin pour enregistrer...

N'est-ce pas simplement

Code :

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

.ActiveDocument.SaveAs2 LeCheminQueTuVeux

[DidoFido]

Bonjour,

j'ai adoré le tutoriel, je suis vraiment novice dans le VBA

j'aurais une question.

la voilà : Est-ce possible de faire celà sans avoir la partie requête, actuellement j'en ai fait un à partir d'un formulaire dont voilà le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub MergeBM()
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT * from Publipostage"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True
 
While Not rs.EOF
With wApp
    .Documents.Open "C:\Users\Daniel\Documents\Access\qui marche\visite.dot"
    .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
    .ActiveDocument.Bookmarks("A").Range.Text = rs.Fields("A")
    .ActiveDocument.Bookmarks("B").Range.Text = rs.Fields("B")
    .ActiveDocument.Bookmarks("C").Range.Text = rs.Fields("C")
    .ActiveDocument.SaveAs "Le Nom.doc"
    .ActiveDocument.Close (wdDoNotSaveChanges)
 
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
 
Set wApp = Nothing
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Users\Daniel\Documents\Access\qui marche\visite.dot", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:="C:\Users\Daniel\Documents\Access\qui marche\Suivie_des_Clients-Daniel.accdb", _
        LinkToSource:=True, _
        Connection:="Table Publipostage", _
        SQLStatement:="SELECT * FROM [Publipostage]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
 
End Sub

la seule choses que je ne réussi pas à faire c'est que mon document qu'il export en Word, n'est jamais celle qui est présente dans mon formulaire, et parfois il me sort vide (sans les signets) qu'est qui cloche dans mon code?

merci a l'avance

[ClaudeLELOUP]

Bonjour,

Merci pour l'intérêt.

la seule choses que je ne réussi pas à faire c'est que mon document qu'il export en Word, n'est jamais celle qui est présente dans mon formulaire, et parfois il me sort vide (sans les signets) qu'est qui cloche dans mon code?

Ce que tu ne nous montres pas, c'est la relation entre « le formulaire » dont tu parles et la table « Publipostage » que tu utilises ici :

Code :

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

sql = "SELECT * from Publipostage"

.

D'après le résultat que tu signales, c'est comme si la table « Publipostage » ne contient pas ce que tu crois au moment où tu l'utilises.

[DidoFido]

Bonjour

Code :

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

sql = "SELECT * from Publipostage"

donc si je comprend bien, tu me suggère de mettre un where ?

pourtant mes donnée son dans la table Publipostage

[DidoFido]

ReBonjour Claude,

faudrait que je mentionne ma clé primaire ?

Voici mon nouveau Code: Aucune erreur m'est signalé ( tu trouveras en jaune les changement que j'ai effectué)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub MergeBM()
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT * from Publipostage WHERE IDPublipostage"

Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True

While Not rs.EOF
With wApp
    .Documents.Open "C:\Users\Daniel\Documents\Access\qui marche\visite.dot"
    .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
    .ActiveDocument.Bookmarks("A").Range.Text = rs.Fields("A")
    .ActiveDocument.Bookmarks("B").Range.Text = rs.Fields("B")
    .ActiveDocument.Bookmarks("C").Range.Text = rs.Fields("C")
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
    
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Set wApp = Nothing
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Users\Daniel\Documents\Access\qui marche\visite.dot", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:="C:\Users\Daniel\Documents\Access\qui marche\Suivie_des_Clients-Daniel.accdb", _
        LinkToSource:=True, _
        Connection:="Table Publipostage", _
        SQLStatement:="SELECT * FROM [IDPublipostage]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
                    
End Sub

Celà fonctionne, sauf qu'il imprime toutes mes fiches (Document Word), j'aimerais à la place si possible faire un enregistrement (que je pourrais mettre dans un autre endroit)

merci de votre aide!

[ClaudeLELOUP]

Dans le code que tu montres, on voit que tu utilises la table « Publipostage ».
Que contient cette table au moment où tu déclenches l’exécution du code ? Quel est le rapport entre le formulaire et cette table ? Comment cette table est-elle alimentée ?

[DidoFido]

Bonjour Claude,

merci de prendre du temps pour me répondre.

ma table est alimenté par le formulaire, ou j'ai un bouton qui éxécute mon publipostage

[DidoFido]

Finalement j'aimerais mieux utiliser ta façon de faire (ton Code celui Signet) c'est pour cela que je vous posais la question Est-ce vraiment nécessaire de faire une requête pour utilisé ta façon de faire.

[ClaudeLELOUP]

Tout cela dépend de ce que contient la table à l'instant que tu l'utilises : si elle ne contient qu'un seul enregistrement (celui que tu viens modifier avec ton formulaire) alors c'est OK.
Par contre, si cette table contient plusieurs enregistrements, pour isoler celui qui t'intéresse, il te faut spécifier lequel => requête.

[DidoFido]

ok je dois quitter pour 4 jours, dès mon retour je me pencherai sur cette question.

pour l'instant je tiens vraiment a te remercié!

bonne semaine!

[ClaudeLELOUP]

Pas de souci !

À bientôt.

[hassanmef]

Bonjour

Je suis nouveau sur cette discussion et mes connaissances en access et BVA sont très limités.

étant chirurgien et voulant utiliser une base de données Patients avec un formulaire à trois boutons me permettant d'une part de créer un dossier Patient et dans ce dossier patient enregistrer les documents textes correspondant (document type word pour la convocation à la consultation, le compte rendu opératoire et le courrier pour le médecin traitant)

Je clique sur le bouton consultation ou compte rendu ou médecin mais ça ne me donne pas la possibilité de choisir un document type.
J'ai toujours cette réponse : "Vous devez choisir un document type"

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ChercherDocType()
  'Ouvrir la boîte de sélection dans le répertoire ad hoc
  CheminDocType = CurrentProject.Path & "\DocType\ComptesRendus"
  'Vérifiez qu'un fichier a été choisi
  If Len(CheminDocType) <> 0 Then
      Call ActualParam
    Else
      MsgBox "Vous devez choisir un document type"
  End If
End Sub

ça ne crée pas non plus de dossier avec le nom du patient dans Mes dossiers Patients.

Mon fils a changé une ligne de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CreerDosPatient()
  On Error GoTo GestionErreurs
  'Créer le dossier Patient si nécessaire
  DossierPat = CurrentProject.Path & "\DossiersPatients\" & Me.txtPatientNom & "_" & Me.txtPatientPrenom
  Debug.Print DossierPat
  MkDir DossierPat
  Call CreerDoc
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 75 'le dossier existe déjà
      Resume Next
    Case Else
      MsgBox "Erreur dans CreerDosPatient" & " " & Err.Number & " " & Err.Description
  End Select
End Sub

ça crée le dossier patient mais j'ai une erreur :

"Erreur dans CreerDosPatient 5455 Le nom du dossier est incorrect"

Est il possible que ce ne soit pas compatible avec access 2016?

Et y a t-il une solution pour m'aider

ça me faciliterais beaucoup de choses

Merci beaucoup

[ClaudeLELOUP]

Bonjour hassanmef et bienvenue chez nous,

D’abord merci pour l’intérêt porté à ce tutoriel.

Est-il possible d'utiliser avec Access 2016 ?

Je n’ai pas la version 2016 pour tester (j’utilise encore la version 2000 !), mais les versions d’Access, en principe, sont compatibles avec les versions antérieures.
Là n’est pas le problème !


Je clique sur le bouton consultation ou compte rendu ou médecin, mais ça ne me donne pas la possibilité de choisir un document type.
J'ai toujours cette réponse : "Vous devez choisir un document type"


C’est comme si tu fermais cette fenêtre :



sans avoir choisi un fichier.
N.B. Il faut double-cliquer sur le nom du fichier pour le sélectionner, la fenêtre se refermera automatiquement.

P.-S. As-tu bien décompressé toute l’archive : http://claudeleloup.developpez.com/t...es/Signets.zip dans un répertoire ?
Tu dois avoir cette structure :

[hassanmef]

Bonjour,

Je vais détailler plus précisément mon problème:

J'ai téléchargé l'archive disponible à la fin de votre tutoriel:



Ensuite je l'ai décompressé dans un dossier quelconque:



Nous pouvons voir ici, que normalement, tous les fichiers et dossier sont présents:




Ensuite, puisque j'utilise une version 64Bits de Access 2016, j'ai édité le module "mFonctions",
en remplaçant les "Declare" simple par des "Declare PtrSafe", et le type "Long" par "LongPtr"

Malheuresement, quand je clique sur le bouton "Comptes Rendus" celui-ci ne m'affiche pas l'explorateur de fichier Windows, mais directement l'erreur "Vous devez choisir un document type" (Comme vous pouvez le voir ci-dessous)



Est-ce que vous pouvez m'aider à trouver ce que j'ai oublié de faire ?

Merci.

[ClaudeLELOUP]

Bonsoir hassanmef,

Ensuite, puisque j'utilise une version 64Bits de Access 2016, j'ai édité le module "mFonctions",
en remplaçant les "Declare" simple par des "Declare PtrSafe", et le type "Long" par "LongPtr"

C'est probablement là qu'est le problème.
Je n'ai malheureusement pas de quoi tester.

Espérons qu'un autre forumeur prendra le relais.

[hassanmef]

Merci
J'espère que quelqu'un puisse avoir une solution pour m'aider