Discussion :

[Arsene12]

Bonjour,
j'ai fait une macro qui ouvre un fichier dans un dossier et qui le modifie. Le problème que j'ai, c'est qu'au moment d'ouvrir mon fichier, j'ai une fenêtre qui s'affiche me demandant de choisir le codage de texte : Windows (par défaut) ou MS-DOS, ou Autre codage. J'aimerai savoir comment sélectionner Windows (par défaut) dans ma macro VBA. Merci de votre aide.
Arsène

[Tho69]

Bonjour Arsene12,

DisplayAlerts = False, ça ne fonctionne pas dans ton cas?

Thomas

[carden752]

Bonjour,

Quel est ta commande pour l'ouverture du fichier.
Il y a un argument noEncodingDialog dans la méthode Open pour ne plus afficher cette fenêtre. Si la valeur est à true, la fenêtre de codage ne s'affichera plus.

[Arsene12]

Bonjour, merci pour vos réponses. J'ai retrouvé un ancien code qui marche très bien.

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
Dim FSO As New Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Dim fichier As Scripting.File
 
    Set DossierSource = FSO.GetFolder("C:\Users\Utilisateur\Desktop\Mon dossier\")
 
For Each fichier In DossierSource.Files
        Documents.Open FileName:=fichier.Path, ConfirmConversions:=False, _
         ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
        Encoding:=1252
 
Application.Run MacroName:="MyMacro"
 
        ActiveDocument.Save
        ActiveDocument.Close
Next

Arsene