Bonjour,

J'ai un pb avec une macro où j'ai un enregistrement en automatique utilisant une valeur saisie par l'utilisateur.

Le pb est que le nom du fichier a enregistré ce fait en automatique et l'utilisateur peut avoir à mettre des apostrophes ce qui entraîne une erreur dans mon code car l'apostrophe fait que le code devient un commentaire

Je ne sais pas si je suis clair donc voici le 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
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 Document_Open()
 
With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="Lot n° "
End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Lot = Selection
 
With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="ORIGINE"
End With
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Nom = Selection
 
    Selection.MoveDown Unit:=wdLine, Count:=1
 
        Fichier = (Nom & Lot)
 
 
 
            'ChangeFileOpenDirectory "\\Serveur-caill\Documents\CB_internet"
            ChangeFileOpenDirectory "\\Serveur-caill\Documents\temporaire\Nicolas\CB_En attente"
            ActiveDocument.SaveAs FileName:=Fichier, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
 
            ChangeFileOpenDirectory "C:\CB_Internet_PC"
 
            ActiveDocument.SaveAs FileName:=Fichier, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
 
            Else
 
 
        End If
 
End Sub
Le pb vient de la variable "nom" qui peut avoir des apostrophes. Normalement le fichier doit être :
plante_ABC (nom)
17999 (lot)
le fichier doit être sauvegardé sous le nom : plante_ABC17999.doc

Or quand j'ai :
plante_"ABC"
17999
le fichier sauvegardé est sous le nom : plante_ (sous extention)

Suis je clair ?
En tout cas, je ne sais pas comment faire donc je suis preneur pour votre aide.

Merci par avance

Nini