Discussion :

[Jean-Pierre49]

Bonjour le Forum,

J’ai développé une application sur Excel qui ensuite écrit les résultats dans Word.

Mon souci, qui me semble plus être un problème de paramétrage que je ne trouve pas,
Est que sur certain poste le modèle qui sert à la sortie s’ouvre en lecture seule

J’ai une fenêtre qui s’ouvre « Fichier en cours d’utilisation »
Et j’ai plusieurs options etc.

Ou doit-on allé pour aller paramétrer et supprimer cette alerte

Par avance merci

[Heureux-oli]

Salut,

Es-tu certains que tu n'as pas une instance de ton fichier qui est ouverte?

Pourrais-tu nous donner le code que tu utilises ?

[Jean-Pierre49]

Bonsoir Heureux-oli


Je ne pense pas, sur 7 postes, 1 cause problème

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
Private Sub EnregistrerDocumentPiquage_Page1_Click()

                            Dim WordApp                 As Word.Application
                            Dim WordDoc                 As Word.Document
                            Dim fileSaveName            As String
                            
                            Dim CheminModelWord         As String
                            Dim ModelWord               As String
                            Dim ErreurValeur            As Boolean
                            Dim NomFichierNdc           As String
                            Dim Cible                   As Word.Range
                            Dim Mouchard                As Boolean
                            Dim CodeImage               As String
                            
    NomFichierNdc = "FichePiquage_" & Me.Fiche1Document.Value & "_46_" & Me.Fiche3Document.Value
    ErreurValeur = False
    
    CheminModelWord = "C:\Program Files\Article\"

    ModelWord = "ListeSuiviePiquage.doc"
    Set WordApp = CreateObject("Word.Application")

    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(CheminModelWord & ModelWord, ReadOnly:=False)
    DoEvents
   


'Traitement et ecriture 
    
    fileSaveName = Application.GetSaveAsFilename(NomFichierNdc, fileFilter:="Text Files (*.doc), *.doc")

    If fileSaveName <> "Faux" Then
        WordApp.Visible = True
        WordDoc.SaveAs fileSaveName
        WordApp.Activate
    Else
        WordDoc.Close False
        WordApp.Quit
    End If
End Sub

Merci

[Heureux-oli]

Deux pistes,

Une question de droits sur le répertoire, mais je pense que tu as déjà regardé.
Un problème d'anti-virus qui ferait du zèle.