Discussion :

[Kenzo18]

Bonjour

Dans le cadre de mon stage, je dois modifier le fichier Word a partir d'Excel pour cela j'ai utilisé le langage VBA. Mon souci, c'est que je dois afficher ou masquer des paragraphes du word depuis Excel on utilisant des cases à cocher, j'ai réussi à le faire mais des que je coche la case ça m'affiche argument non facultatif pourtant je ne vois pas d'erreur dans le programme et ça fonctionne. Je veux bien qu'il ne s'affiche plus l'onglet (argument non facultatif).

Vous trouverez ci-joint en pièces jointes un fichier d'exemple.
ToTo1.docxTOTO.xlsm

[78chris]

Bonjour

Tu as peu de chance qu'on ouvre ton fichier.

Poste le code et précise quelle ligne pose problème

[Kenzo18]

Bonjour Chris

je vous remercie de m'avoir répondue . Voici le programme

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
Sub mcel()
 
     Dim strFichier As String
 
    ' création de l'objet Word
      Set objWord = CreateObject("Word.Application")
 
       ' rendre Word visible
       objWord.Visible = True
 
    'ouverture du fichier
      strFichier = ActiveWorkbook.Path & "\CCTP-MCEL 2014-2018 V1 trame2.docm"
 
     ' ouvrir un document Word
     Set docu = objWord.Documents.Open(strFichier)
      Call creation(docu)
      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
 
Set myR = docu31.Range(Start:=docu31.Bookmarks("creation1").Range.Start, End:=docu31.Bookmarks("creation2").Range.End)
If Sheets("CCTP").Cells(3, 15).Value = True Then
        'Affiche les lignes 3 à 6
        myR.Font.Hidden = False
       Debug.Print "Visible"
    'Autrement (si A1 est différent de VRAI)
    Else
        'Masque les lignes 3 à 6
 
        myR.Font.Hidden = True
    Debug.Print "Caché"
    'Fin de la condition
    End If
 
End Sub ]

[Kenzo18]

C'est dans Sub creation(docu31) que le problème vient plus précisément dans docu31 mais pourtant ça fonctionne juste ça m'affiche argument non facultatif lorsque je coche la case

[78chris]

RE

Ta Sub attend un argument puisque tu as Sub creation(docu31) et non Sub creation().

L'appel passe-t-il bien l'argument ou bien l'argument est-il inutile ?

[Kenzo18]

Bonjour Chris


Excuse de retard, l'appel passe bien part l'argument, il n'est pas inutile. Sub creation(docu31), il permet de modifier le document en passant par docu=objWord.Documents.Open(strFichier) lorsqu'on ouvre le document. Mais je pense que l'erreur vient de docu31, je pense qu'on peut pas écrire de cette manière mais pourtant ça fonctionne .