Bonjour,
J'ai créé un fichier texte par une commande dos "Dir *.* ... >>D:\listefic.txt".
Lorsque je veux récupérer ce fichier sous word par la commande "fichiers, ouvrir, "listefic.txt" avec la liste déroulante "fichier texte (.txt)" j'ai bien la fenêtre "conversion de fichier" qui s'ouvre, je clique sur le bouton "ms-dos" puis "OK".
Tout se passe bien.
Je souhaite faire la même chose à partir d'une macro.
J'ai donc essayé d'enregistrer, en recommençant la procédure, l'ensemble des commandes et paramètres comme création d'une nouvelle macro.
La macro a bien été créée mais elle ne change pas le codage utilisé par ms-dos si bien que je me retrouve avec des virgules à la place des "é" etc.
J'ai essayé de fouiller un peu partout, de modifier certains paramètres, mais rien n'y fait.

Quelqu'un aurait-il une idée comment régler mon problème ?
J'utilise word2007 et suis sous windows 10.
Merci d'avance de vos réponses.

Vieuzibou

Voici le début de ma macro :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub traitement_complet_fichier_txt_résultat_de_cde_dir()
 
On Error GoTo Plouf
 
 
Dim Fic, Chemin, Chemincomplet, Message As String 'Déclaration des variables références fichier et chemin
 
Dim pAra As Paragraph 'Déclaration de la variable pAra pour référence à l'entité paragraphe
Dim LongPar As Integer 'longueur du paragraphe
 
 
' Ouverture du fichier texte issu de la cde Dos : "DIR"
' pour récupération des paramètres chemin et nom de fichier
 
 On Error GoTo Plouf1
 
    Dialogs(wdDialogFileOpen).Show  'équivalent de la cde Fichier -> ouvrir
        Fic = ActiveDocument.Name       ' récupération du nom de fichier dans une variable
        Chemin = ActiveDocument.Path    ' récupération du chemin dans une variable
        Chemincomplet = Chemin + "\" + Fic
 
 
' ouverture du fichier avec modifs du code dos (code 850) et mise au format A3 en mode paysage.
 
    ChangeFileOpenDirectory Chemin
    Documents.Open FileName:=Chemincomplet, ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=850
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape 'xxx
        .TopMargin = CentimetersToPoints(1) 'anciennement 2.5
        .BottomMargin = CentimetersToPoints(1) 'anciennement 2.5
        .LeftMargin = CentimetersToPoints(1)  'anciennement 2.35
        .RightMargin = CentimetersToPoints(1) 'anciennement 2.35
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(42)  'anciennement 29.7
        .PageHeight = CentimetersToPoints(29.7)   'anciennement 42
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
 
' Sauvegarde en format word du fichier ainsi créé
 
    ActiveDocument.SaveAs FileName:="liste.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
 
' Positionnement du curseur en début de fichier
 
    Selection.HomeKey Unit:=wdStory ' Positionnement en début de fichier
 
..........
 
FIN:
 
    MsgBox ("C'est FINI !")
End Sub