Discussion :

[saninx]

Bonjour ,

j'essaie de MODIFIER UN FICHER WORD A DES ENDROITS BIEN PRÉCIS AVEC EXCEL , mais je reçois une erreur 5174 chemin du fichier introuvable.

après avoir essayé des solutions sur le net je reste toujours au même niveau.
j'ai besoin d'aide car je suis nouveau en macro.

voici mon 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
Sub macrotest()
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Byte
 
    'Set WordApp = CreateObject("word.application")    'ouvre une session Word
 
     Set WordApp = New Word.Application
     Set WordDoc = WordApp.Documents.Open("C:\Users\Ulrich DIE\Desktop\testmacro\wordmacro.doc")
 
    'ouvre le document Word
 
    WordApp.Visible = False        'Word est masqué pendant l'opération
    For i = 1 To 2
        'les signets du document Word sont nommés Signet1 , Signet2
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
End Sub

[clementmarcotte]

Bonjour,

Bonjour ,

j'essaie de MODIFIER UN FICHER WORD A DES ENDROITS BIEN PRÉCIS AVEC EXCEL , mais je reçois une erreur 5174 chemin du fichier introuvable.

Code :

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

 Set WordDoc = WordApp.Documents.Open("C:\Users\Ulrich DIE\Desktop\testmacro\wordmacro.doc")

Cela dépend de Windows. Windows 7 (en tout cas, chez-moi) et peut-être plusieurs autres versions récentes de Windows, bloquent l'accès par programme à certains dossiers, incluant le bureau et ses sous-dossiers, par mesure de sécurité.

Le plus simple c'est de ne pas avoir de fichiers de données sur le bureau. (Ni dans la racine du disque, non plus.)

[saninx]

merci,

je viens de déplacer le fichier sur le D:\ mais j'ai la même réponse avec cette ligne

Code :

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

Set WordDoc = WordApp.Documents.Open("D:\testmacro\wordmacro.doc")

[mercatog]

Fais un test préalable de l'existence du fichier word à l'endroit indiqué

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
Sub macrotest()
Dim WordApp As Object, WordDoc As Object
Dim Fichier As String
Dim i As Byte
 
 
Fichier = "C:\Users\Ulrich DIE\Desktop\testmacro\wordmacro.doc"
 
If Dir(Fichier) <> "" Then
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open(Fichier)
 
    For i = 1 To 2
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
'    WordDoc.PrintOut    'Pour imprimer le doc obtenu
 
    WordDoc.Close True    'ferme le document word en sauvegardant les données
    WordApp.Quit    'ferme la session Word
Else
    MsgBox "Fichier introuvable"
End If
End Sub

PS ton document est doc ou un docx?

[saninx]

Je viens de me rendre conte que c'est un .docm , après avoir modifié j'ai maintenant cette erreur:

le chargement se lance mais aucune modification ne se fait et il ne s'arrête plus.

[mercatog]

Fais un pas à pas (F8) et regarde ce que tu as.

[clementmarcotte]

merci,

je viens de déplacer le fichier sur le D:\ mais j'ai la même réponse avec cette ligne

D:\fichier.docm ce n'est pas mieux que C:\fichier.docm.

Ce sont les racines des disques...

[saninx]

la je suis un peu perdu dans ce langage qui est nouveau pour moi.

je pourrais avoir un tutoriel qui me montre dans les détails comment se construit un tel programme ?

merci de bien vouloir me venir en aide.

j'ai transformé mon fichier en macroword.docx, j'ai comme chemin "D:\macro\testmacro\wordmacro.docx" mais j'ai maintenant une erreur sur la ligne WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1).

erreur : le membre de la collection n'est pas reconnu.

le mieux pour moi serait d'avoir un tutoriel ou une explication assez détaillée sur ce processus, ce que je n'ai pas encore trouvé !

[saninx]

Concernant cette discussion j'ai trouvé la solution.

le problème venait du fait que mes signet étaient mal construit sur Word.

j'ai amélioré ce programme en lui permettant de créer a partir d'un model, une copie puis la renommer et l'enregistrer à un endroit définit dans la 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
Private Sub erg_Click()
 
    Dim WordApp As Object, WordDoc As Object
    Dim Fichier As String
    Dim FichierCopie As String
    Dim i As Byte
    Dim cfichier As New Scripting.FileSystemObject
 
    Fichier = "D:\macros\testmacro\wordmacro.docx"
    cfichier.CopyFile Fichier, "D:\macros\testmacro\" & titre & ".docx", False
    FichierCopie = "D:\macros\testmacro\" & titre & ".docx"
    Set cfichier = Nothing
 
    If Dir(Fichier) <> "" Then
        Set WordApp = CreateObject("word.application")    'ouvre une session Word
        Set WordDoc = WordApp.Documents.Open(FichierCopie)
 
        For i = 1 To 2
            WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(1, i)
        Next i
 
        WordApp.Visible = True    'affiche le document Word
       'WordDoc.PrintOut          'Pour imprimer le doc obtenu
       'WordDoc.Close True        'ferme le document word en sauvegardant les données
       'WordApp.Quit              'ferme la session Word
    Else
        MsgBox "Fichier introuvable"
    End If
 
    Unload Me
 
End Sub

GRAND MERCI, a tous pour votre aide.

[saninx]

Pour aller plus loin avec cette macro,

j'aimerai pouvoir tester l’existence du dossier avant de l'enregistrer. si quelqu'un peu m'aider, sa sera une macro vraiment complète.

Cordialement !

[saninx]

Bonsoir, Jai un gros soucis avec ma macro que je dois terminer urgemment.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
 
Private Sub CommandButton1_Click()
 
    Dim WordApp As Object, WordDoc As Object
    Dim Fichier As String
    Dim FichierCopie As String
    Dim Titre As String
    Dim i As Byte
    Dim cfichier As New Scripting.FileSystemObject
 
    'Application.DisplayAlerts = False
    Fichier = "D:\macros\Production\Bancassurance\Courrier\TransmissTest.docx"
 
    Titre = "BIA Accèpté de" & TextBox1 & "du" & TextBox2
    'MsgBox Titre
    If cfichier.FileExists("D:\macros\Production\Courrier\" & Titre & ".docx") Then
        MsgBox "Ce nom de fichier existe déjà, veuillez essayer un autre nom!"
        End
    End If
 
    cfichier.CopyFile Fichier, "D:\macros\Production\Copies\" & Titre & ".docx", True 'False
    FichierCopie = "D:\macros\Production\Copies\" & Titre & ".docx"
    Set cfichier = Nothing
 
    If Dir(Fichier) <> "" Then
        Set WordApp = CreateObject("word.application")    'ouvre une session Word
        Set WordDoc = WordApp.Documents.Open(FichierCopie)
 
        For i = 1 To 18
            WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(2, i)
        Next i
 
        WordDoc.Save
        WordApp.Visible = True    'affiche le document Word
       'WordDoc.PrintOut          'Pour imprimer le doc obtenu
       'WordDoc.Close True        'ferme le document word en sauvegardant les données
       'WordApp.Quit              'ferme la session Word
    Else
        MsgBox "Fichier introuvable"
        End
    End If
 
    Unload Me
 
End Sub
 
Private Sub TextBox1_Change()
    TextBox2.Text = Date
End Sub
 
Private Sub TextBox2_Change()
 
End Sub

J'ai une erreur d'exécution 76, chemin d'accès introuvable et je ne comprend rien pourtant j'ai une macro du même genre qui fonctionne bien.

[AlainTech]

Bonjour,

Que contiennent TextBox1 et TextBox2?

Les noms de fichiers ne peuvent contenir certains caractères comme "/".

La prochaine fois, évite de poster 2 fois la même question.