[A-03] Problème Fonction If Not Is Null dans Module InsererDansWord

Version imprimable

Bonjour,

J'ai un problème de syntaxe dans le code suivant :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Sub InsererDansWord4()
    'On Error Resume Next
' Déclaration des variables et des constantes
Dim strtype As String
Dim objWord As New Word.Application
Dim strNomPrenom As String
Dim strChambre As String

strNomPrenom = Forms.Commandes.Titre & " " & Forms.Commandes.Nomclient & " " & Forms.Commandes.Prenomclient

With objWord
        .Documents.Add Template:=CurrentProject.Path & "\resahotel.doc", NewTemplate:=False, DocumentType:=0

    If Not IsNull(strNomPrenom) Then .ActiveDocument.Bookmarks("Name").Range.Text = strNomPrenom
    Else: .ActiveDocument.Bookmarks("Name").Range.Text = "Champs Titre Nom Prénom non remplis"
    End If

        .ActiveDocument.Bookmarks("Numresa").Range.Text = Forms.Commandes.Factures.Form.IDfacture
        .ActiveDocument.Bookmarks("Numpax").Range.Text = Forms.Commandes.Numpax
        .ActiveDocument.Bookmarks("Date1").Range.Text = Forms.Commandes.Datedebut
        .ActiveDocument.Bookmarks("Date2").Range.Text = Forms.Commandes.Datefin
        .ActiveDocument.Bookmarks("Room").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Typechambre
        .ActiveDocument.Bookmarks("Nomhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Nomhotel
        .ActiveDocument.Bookmarks("Adressehotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Adressehotel
        .ActiveDocument.Bookmarks("CPhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.CPVillehotel
        .ActiveDocument.Bookmarks("Telhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Tel
        .ActiveDocument.Bookmarks("Numnuit").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Numnuit
        
'affichage en plein écran
.WindowState = wdWindowStateMaximize

'lance la boite de dialogue d'enregistrement du document
With .Dialogs.Item(wdDialogFileSaveAs)
    .Name = "Z:\CLIENTS PROPOSITIONS\"
    'si on clique sur enregistrer... sinon...
    If .Show = -1 Then
    MsgBox "Document enregistré"
    Else
    objWord.Quit savechanges:=False
    MsgBox "Vous avez annulé l'enregistrement!"
    End If
End With
End With
'en cas de modification de l'enregistrement, on sauvegarde
If Dirty = True Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
'Libération de l'objet
    Set objWord = Nothing
End Sub

La fonction If Not IsNull que j'ai mis ici en rouge ne réponds pas comme je le souhaite. A vrai dire, si je laisse ainsi sur plusieurs lignes, j'ai le message d'erreur : " 'Else' sans 'If' " et si je mets l'ensemble sur une seule ligne, c'est Erreur de syntaxe.
Le but serait d'avoir au niveau du signet dans Word soit le contenu des champs si les champs ne sont pas vides, soit le texte "Champs Titre Nom Prénom non remplis"
Quelqu'un pourrait-il me dire comment rédiger correctement cette ligne de code ?
Merci par avance

salut,
déjà si on est pas trop avare en lignes, on en ajoute une et ca donne ceci :

Code:

1
2
3
4
5
If Not IsNull(strNomPrenom) Then 
        .ActiveDocument.Bookmarks("Name").Range.Text = strNomPrenom
    Else
         .ActiveDocument.Bookmarks("Name").Range.Text = "Champs Titre Nom Prénom non remplis"
    End If

et ca devrait être suffisant ;)

31/10/2008, 09h22
emye3

Re,

Effectivement, en écrivant de cette façon, je n'ai plus d'erreur dans Access. Merci beaucoup :D
En revanche, mon texte 'Champs... non remplis' ne s'inscrit pas dans Word. :?
Y a-t-il une ponctuation particulière à adopter ? ' au lieu des " ou alors des () par exemple ?

Emye3
31/10/2008, 10h27
Domi2

Bonjour,

Curieux ?

Tu peux reposter ton code ?

Domi2

Re,

Voici le code après la modification suggérée par jpcheck

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Sub InsererDansWord4()
 
    'On Error Resume Next
 
' Déclaration des variables et des constantes
Dim strtype As String
Dim objWord As New Word.Application
Dim strNomPrenom As String
Dim strChambre As String
 
strNomPrenom = Forms.Commandes.Titre & " " & Forms.Commandes.Nomclient & " " & Forms.Commandes.Prenomclient
 
With objWord
        .Documents.Add Template:=CurrentProject.Path & "\resahotel.doc", NewTemplate:=False, DocumentType:=0
        If Not IsNull(strNomPrenom) Then
        .ActiveDocument.Bookmarks("Name").Range.Text = strNomPrenom
        Else
        .ActiveDocument.Bookmarks("Name").Range.Text = "Champs Titre Nom Prénom non remplis"
        End If
        .ActiveDocument.Bookmarks("Numresa").Range.Text = Forms.Commandes.Factures.Form.IDfacture
        .ActiveDocument.Bookmarks("Numpax").Range.Text = Forms.Commandes.Numpax
        .ActiveDocument.Bookmarks("Date1").Range.Text = Forms.Commandes.Datedebut
        .ActiveDocument.Bookmarks("Date2").Range.Text = Forms.Commandes.Datefin
        .ActiveDocument.Bookmarks("Room").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Typechambre
        .ActiveDocument.Bookmarks("Nomhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Nomhotel
        .ActiveDocument.Bookmarks("Adressehotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Adressehotel
        .ActiveDocument.Bookmarks("CPhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.CPVillehotel
        .ActiveDocument.Bookmarks("Telhotel").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Tel
        .ActiveDocument.Bookmarks("Numnuit").Range.Text = Forms.Commandes.Factures.Form.[RqTotalhotel subform].Form.Numnuit
    'affichage en plein écran
    .WindowState = wdWindowStateMaximize
    'lance la boite de dialogue d'enregistrement du document
    With .Dialogs.Item(wdDialogFileSaveAs)
        .Name = "Z:\CLIENTS PROPOSITIONS\"
        'si on clique sur enregistrer... sinon...
        If .Show = -1 Then
        MsgBox "Document enregistré"
        Else
        objWord.Quit savechanges:=False
        MsgBox "Vous avez annulé l'enregistrement!"
        End If
    End With
End With
'en cas de modification de l'enregistrement, on sauvegarde
If Dirty = True Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
'Libération de l'objet
    Set objWord = Nothing
End Sub

Le document Word s'ouvre bien mais le signet est laissé vide...

31/10/2008, 11h01
Domi2

Re,

Et si tu remplaces

Code:

If Not IsNull...

par

Code:

If strNomPrenom <>" " Then

cela donne quoi ?

Domi2
31/10/2008, 11h14
emye3

La même chose, le document Word s'ouvre mais le signet est vide et n'affiche pas le texte souhaité...
31/10/2008, 11h25
Domi2

Re,

Ajoutes un deuxième espace entre les " ".

Domi2
31/10/2008, 11h32
emye3

Super, ça fonctionne! C'était ça qui manquait!

Encore une fois, merci beaucoup :king:
31/10/2008, 11h35
Domi2

Mouais...

Ca fonctionne, mais je ne trouve pas ça très "propre"...

Domi2
31/10/2008, 11h43
emye3

C'est-à-dire ?

Citation:

Ca fonctionne, mais je ne trouve pas ça très "propre"...

Ca va poser problème à un moment ou à un autre ?
31/10/2008, 12h00
Domi2

Re,

Non, je pense pas que cela puisse poser problème, mais je n'aime pas tester des chaînes vides !

Domi2
31/10/2008, 12h11
emye3

D'accord!
Alors faute de mieux je garde ça dans mon code... je verrai bien si je découvre une autre solution au détour d'un forum...

Et, puisqu'une autre question me vient j'en profite pour te la poser mais si tu as mieux à faire (ce que je comprendrais tout à fait), j'ouvrirai une nouvelle solution :
Est-il possible d'insérer au niveau d'un bookmark, non pas un champ du formulaire mais un tableau reprenant plusieurs champs ? En l'occurence, il s'agirait de générer la facture ou le devis pour le client avec le détail des prestations commandées...
31/10/2008, 12h22
Domi2

Re,

Je ne pense pas que l'insertion en elle-même pose un problème...

La construction du tableau, c'est autre chose...

Je te conseille une promenade dans les espaces dédiés à Word... ;)

Ce doit être enrichissant...

Et si tu trouves ta solution, ce dont je ne doute pas, tu n'auras qu'à compléter ton code en utilisant l'automation...

Domi2
31/10/2008, 12h26
emye3

Re,

Si c'est possible alors je pars de suite à la recherche du code mais juste pour savoir, avant de me lancer là-dedans : c'est quoi l'automation ? :D

Re,

Pour faire simple, le "pilotage" d'une application Office par une autre...

C'est exactement ce que tu fais dans ton code... Tu as ajouté une référence à Word, puis créer un "objet" Word

Code:

Dim objWord As New Word.Application

Cela fait, tu as à ta disposition toutes les possibilités de Word au niveau du code.
Code:

1 2 3 4 5 6 7 8 9 10 With objWord .Documents.Add Template:=CurrentProject.Path & "\resahotel.doc", NewTemplate:=False, DocumentType:=0 If Not IsNull(strNomPrenom) Then .ActiveDocument.Bookmarks("Name").Range.Text = strNomPrenom Else .ActiveDocument.Bookmarks("Name").Range.Text = "Champs Titre Nom Prénom non remplis" End If .ActiveDocument.Bookmarks("Numresa").Range.Text = Forms.Commandes.Factures.Form.IDfacture 'Etc.. End With
Domi2

31/10/2008, 13h33
Domi2

Re,

Pour faire simple, l'automation, dans ce cas, c'est le "pilotage" d'un logiciel Office depuis un autre.

C'est exactement ce que tu fais...

Tu as créé un "objet" Word, et ce faisant, tu as à ta disposition dans Access toutes les possibilités de Word au niveau du code.

Il te faut donc simplement (façon de parler) trouver comment on construit un tableau en VBA dans Word et utiliser le code depuis Access...

Domi2
31/10/2008, 14h53
emye3

Re,

Merci beaucoup pour cet éclairage, il est toujours mieux de pouvoir mettre les bons noms sur chaque chose pour mieux se faire comprendre.

A bientôt et encore merci :D

Emye3