Problème de chemin d'accès

Version imprimable

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

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
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.

19/03/2015, 19h59
Daniel.C

Bonjour,

Sur quelle ligne est ton erreur ?
19/03/2015, 20h20
SfJ5Rpw8

Bonsoir,
Et que saisie tu dans tes textbox ?
19/03/2015, 20h26
Invité

Bonsoir,
Quand je vois "du" & texbox2 ça me rends perplexe!

J'imagine qu'il s'agit d'une date hors 01/02/2015 ressemble à un chemin virtuel

format(texbox2,"yyyy-mm-dd")
20/03/2015, 09h09
saninx

Mon erreur se situe sur la ligne 23
20/03/2015, 09h19
Nico Chg

Bonjour,

Est ce que tu as bien accès au répertoire ?

Est ce que le document que tu essaie d'écraser est en lecture/écriture ?
Source : MSDN

Citation:

Envoyé par MSDN

Note that CopyFile will fail if destination has the read-only attribute set, regardless of the value of overwrite.
20/03/2015, 09h20
saninx

ok, mon problème est resolu.
merci rdurupt, tu as trouvé la solution.
20/03/2015, 09h24
saninx

Merci à tous !!!

Bonjour,
ceci dit, pourquoi faire un copie du fichier?

dans l'exemple ci dessous, je créé un nouveau document en utilisant comme modèle un fichier existant!

Code:

1
2
3
4
5
6
7
Set WordApp = CreateObject("word.application")    'ouvre une session Word
        Set WordDoc = WordApp.Documents.Add(Fichier)
        For i = 1 To 18
            WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(2, i)
        Next i
 
        WordDoc.SaveAs FichierCopie