Discussion :

[philchan974]

Bonjour,
Je prends mes comptes-rendus sous word avec le logiciel DRAGON
et petite routine pour la mise en forme écrite en VBA qui appelle ensuite l''enregistrement du fichier.
Ce programme fonctionne parfaitement sur mon micro perso (office 2010 et windows XP)
au travail, je prends un portable récemment acquis, microsoft 8.1 et office 2016.
sur ce dernier, tout est bon sauf l'enregistrement
il bute sur l'instruction save, saveas, saveas2, tout essayé! j'ai une erreur 4198
windows ouvre une boite de dialogue pour enregistrer le fichier
et quoique je réponde, il y a erreur....
je n'ai rien trouver sur le forum à ce propos
Merci de votre avis

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
Sub sauve_dossier()
'
'
' nom du répertoire de travail à créer
Dim nom_dossier As String
nom_dossier = "Vacation du " & Format(Now, "dd mmmm yyyy")  
 
'chemin complet de ce répertoire
nom_chemin = "C:\Documents and Settings\UTILISATEUR\Mes documents\" & nom_dossier & "\"             
 
If Dir(nom_chemin, vbDirectory) = "" Then MkDir (nom_chemin)      ' s'il n'existe pas on le créé
 
' demande du nom du patient   (nb_dossier = compte du nombre de dossiers dans le répertoire)
nom_patient = InputBox("Quel est le nom du patient ?", "Sauvegarde du compte-rendu", "Patient N°" & nb_dossier + 1)
 
If Not nom_patient = "" Then            ' si touche annuler ou input vide, on sort
 
  i = 1                                 ' si nom de dossier déjà existant, on modifie son nom
  nom_patient2 = nom_patient
    While Dir(nom_chemin & "\" & nom_patient2 & ".*") <> ""
      i = i + 1
      nom_patient2 = nom_patient & " (" & i & ")"
    Wend
 
  nom_complet = nom_chemin & nom_patient2
 
On Error GoTo arg
 
  With ActiveDocument
    .SaveAs Filename:=nom_complet              ' on sauvegarde
    .Close                                                  ' on ferme le document qui vient d'être sauvegardé
  End With
 
  Documents.Add                                       ' et on en ouvre un autre, vierge
 
 
arg:  MsgBox Err.Number
 
End If
 
End Sub

[philchan974]

je viens de reprendre le forum et viens de lire la discussion de royersebastien.
C'est exactement le même problème!!
j'attends une réponse si elle est trouvable!
merci à tous