VBA copier/coller d'après les valeurs d'une liste déroulante

Voilà le fichier texte que j'ai généré en utilisant l'instruction " "

C'est quand j'ajoute des valeurs décimales que j'ai des guillemets, dans le fichier que je vous ai envoyé il n'y en a pas.

Voilà ce que moi j'obtiens :

C'est quand j'ajoute des valeurs décimales que j'ai des guillemets, dans le fichier que je vous ai envoyé il n'y en a pas.

Oui je vois. Le souci est que la virgule est interprétée en text et renvoie ces guillemets.
Une solution directe d'ouvrir le fichier text créé, puis Edition --> Recherche --> taper " --> Puis cliquer sur remplacer Tout

EDIT :

Le problème avec le format xlTextPrinte c'est que les colonnes ne sont plus séparées par des tabulations mais des espaces et j'ai besoin des tabulations

Non c'est bon, remplacez cette ligne dans la macro de sauvegarde

    ActiveWorkbook.SaveAs Filename:=chemin & fichier, FileFormat:=xlText, CreateBackup:=False, local:=True

Donc le code complet :

Sub Sauvegarde()
Dim chemin As String, fichier As String

chemin = ThisWorkbook.Path & "\"
fichier = InputBox("Veuillez choisir un nom de fichier", "Choix Nom Fichier")

If fichier <> "" Then
    Sheets("Extract").Copy
    ActiveWorkbook.SaveAs Filename:=chemin & fichier, FileFormat:=xlText, CreateBackup:=False, local:=True
    ActiveWorkbook.Close
End If
End Sub

Les valeurs décimales que j'obtient sont toujours entre guillemets, la ligne de code n'a pas changée le résultat

Je viens de tester et je n'ai plus les guillemets
Avez-vous bien utilisé le dernier code que j'ai posté

Voilà ce que j'obtient en remplaçant le dernier code que vous m'avez donné, c'est étrange, je ne vois pas d'où vient le problème

Je n'ai pas de souci
Le mieux est que je vous renvoie le fichier

Même avec votre fichier j'obtiens des guillemets, cela peut venir de quoi ??

Est-ce une configuration spécifique de Excel, ou du fichier texte ?

Je suppose que vous avez bien fait le test depuis le dernier fichier que j'ai posté.

Si oui, je ne vois pas pourquoi vous n'avez pas le même résultat.

Il va falloir réfléchir

Je vais regarder ça...

J'aimerai améliorer mon fichier, quand je clique sur la croix ou sur annuler j'aimerai que la feuille extract se ferme et quand aucun nom n'est renseigné qu'un message d'erreur apparaisse pour dire qu'il faut un nom de fichier.

De plus, j'aimerai pouvoir choisir le chemin d'accès où le fichier s'enregistre

J'aimerai améliorer mon fichier, quand je clique sur la croix ou sur annuler j'aimerai que la feuille extract se ferme et quand aucun nom n'est renseigné qu'un message d'erreur apparaisse pour dire qu'il faut un nom de fichier.

1. Dans votre macro supprimer remplacez

Activesheet.Delete

par

Sheets("Extract").Delete

2. remplacez votre code Sauvegarde par celui ci-après

Sub Sauvegarde()
Dim chemin As String, fichier As String
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
If Repertoire.SelectedItems.Count > 0 Then
    chemin = Repertoire.SelectedItems(1)
Else
    Exit Sub
End If

fichier = InputBox("Veuillez choisir un nom de fichier", "Choix Nom Fichier")

If fichier <> "" Then
    Sheets("Extract").Copy
    ActiveWorkbook.SaveAs Filename:=chemin & "\" & fichier, FileFormat:=xlText, CreateBackup:=False, local:=True
    ActiveWorkbook.Close
Else:
Call Supprimer
End If
End Sub

Ok merci,

Par contre comment faire quand je clique sur la croix ou sur annuler j'aimerai que la feuille extract se ferme et quand aucun nom n'est renseigné qu'un message d'erreur apparaisse pour dire qu'il faut un nom de fichier.

Ben vous mettez cette ligne juste avant l'instruction Call supprimer

Msgbox "Vous n'avez pas de nom de fichier"

Je n'ai pas compris ce que vous voulez avec la feuille Extract qui doit se fermer .

Quel que soit votre choix elle sera supprimée à la fin de la sauvegarde

J'aimerai que cette fenêtre se réaffiche une fois que le message d'erreur est survenu, est-ce possible ?

Mais alors vous n'allez jamais sortir du code.
Cela vous oblige à mettre un nom de fichier alors qu'il se peut que vous vouliez abandonner la procédure

Vous avez raison, cela n'est pas logique. Il faut oublier cette idée.

Par contre, quand je clique sur la "croix" ou sur Annuler, j'aimerai que la feuille "extract" se ferme aussi

j'aimerai que la feuille "extract" se ferme aussi

Je ne comprends pas ce que vous voulez dire par se fermer
Comme expliqué avant, la feuille extract est supprimée à chaque fois

Ben justement, cette feuille ne se ferme pas dans le cas où je clique sur le bouton annuler ou sur la croix

Je ne comprends pas ce que vous voulez dire par "FERMER"