Discussion :

[liop49]

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

[Garuda]

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

Exact (pour les 2 parties de la phrase)

[liop49]

C'est parfait

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[liop49]

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

Merci encore