Bonjour,

J'ai un fichier Excel qui sert de base pour l'importer après traitement dans un CRM.
J'aimerais ouvrir la fenêtre "Enregistrer sous" et que le format de fichier se positionne automatiquement sur ".txt".
Malheureusement, la méthode que j'emploie ouvre bien la fenêtre "Enregistrer sous", mais positionne le format sur le dernier format utilisé, par exemple ".xlsx" ou ".txt". Donc, aucune certitude que le bon format soit choisi.

J'en perd mon latin, mon grec et j'avale ma langue.
Ma reconnaissance éternelle à celle ou celui qui pourra me sauver !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Nom = Chemin & nomWS & "-export" & ".txt"
Set REP = Application.FileDialog(msoFileDialogSaveAs)
With REP
    .AllowMultiSelect = False
    .InitialFileName = Nom
    If .Show = -1 Then
        nouvWB.SaveAs Filename:=Nom, _
                                  FileFormat:=xlTextWindows, _
                                  CreateBackup:=False
                                  '.SelectedItems(1)
    End If
End With
J'ai essayé avec ".SelectedItems(1)" à la place de la variable "Nom", ai retiré le .txt, rien n'y fait ...