Apostrophe dans la macro

Version imprimable

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 :evilred:

Je ne sais pas si je suis clair donc voici le code

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

28/08/2007, 17h58
Garuda
Les apostrophes sont INTERDITES dans les fichiers WINDOWS (ainsi que les '/','\','*' et autres '?' !
Solution : Remplacer les apostrophes par autre chose (ou rien !) dans le nom de fichier AVANT d'enregistrer
Exemple
Code:

1 2 3 4 5 6 7 8 Sub test() Dim fichier As String fichier = "nom_fichier""" MsgBox fichier fichier = Replace(fichier, """", "") MsgBox fichier End Sub
28/08/2007, 20h35
jfontaine

Je vais faire mon chieur, mais le caractère dont vous parlez n'est pas un apostrophe mais un guillemet :P:P :P ;)
29/08/2007, 09h29
Garuda

Citation:

Envoyé par jfontaine

Je vais faire mon chieur, mais le caractère dont vous parlez n'est pas un apostrophe mais un guillemet :P:P :P ;)

Exact (pour les 2 parties de la phrase) :mrgreen:
30/08/2007, 10h08
liop49
C'est parfait :king:

Merci Garuda pour ton aide et pour ta compréhension.

D'ailleurs est ce que je peux reproduire le pb des guillemets pour le cas des apostrophes via un code comme :
Code:

1 2 3 4 5 6 7 Sub test() Dim fichier As String fichier = "nom_fichier ' ' " MsgBox fichier fichier = Replace(fichier, " ' ' ", "") MsgBox fichier End Sub
En tout cas mon pb est résolu donc merci

Dois-je mettre résolu ou attendre que ma question subsidiaire ait une réponse?
30/08/2007, 16h45
liop49

bon pas de réponse donc je le considère comme terminé et résolu

Merci encore:king: