Discussion :

[Coco l'asticot]

Bonjour à tous,

Après de multiples heures de lecture sur divers forum VBA EXCEL, j'ai finis par me décider a poser directement la question.

Je souhaite créer une macro sous EXCEL qui s'exécute lorsque l'on appuie sur un bouton.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Bouton_Export_Fichier_TXT()
 
Dim chemin As ????????
 
//Le code qui va bien
 
 
End Sub

1) La macro ouvre un explorateur WINDOWS et me demande de sélectionner un réportoire, et d'entrer un nom pour le fichier.
2) Ensuite elle créer un fichier .txt, et recopie dedans le contenu de la colonne ("D3-D8194") qui se trouve sur l'onglet nommé "Export" de mon fichier EXCEL.
3) Elle sauvegarde le fichier .txt sur le chemin qui à était selectionné.

Est ce que quelqu'un a un exemple de code pour réaliser cela ?
Pour info je suis sous EXCEL 2010 et Microsoft Visual Basic pour Application 7.0

Merci d'avance pour vos réponses.

[Marc-L]

   Bonjour !

   Aucune difficulté, à la portée donc d'un débutant …

   1) Voir la méthode GetSaveAsFilename documentée dans l'aide VBA interne.

   2 & 3) Copier la colonne dans un classeur vierge puis utiliser la méthode SaveAs.

   En activant l'Enregistreur de macro puis en effectuant manuellement les opérations, une base de code est livrée sur un plateau !

_________________________________________________________________________________________________________
   Je suis Paris, Nice, Bruxelles, Charlie, …

[jerome.vaussenat]

Salut,

Voici un début de solution.
Cela fait apparaitre la boîte de dialogue enregistrer sous
Et enregistre ton doc au format texte avec le nom et l'emplacement choisit dans la boîte de dialogue.

Bien penser, avent à ce placer sur la bonne feuille.
Et virer les données inutiles

Code :

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

1
2
3
4
Sub enregistre_txt()
    nom = Application.GetSaveAsFilename(, "Fichiers texte (*.txt), *.txt")
    Application.ActiveWorkbook.SaveAs nom, xlTextWindows
End Sub

En espérant qu'au minimum, cela te mette sur la bonne voie.

edit : Marc-L a été plus rapide que moi. Je vois que le contenu est presque le même. C'est qu'on est pas loin de la bonne solution ;o)

[Coco l'asticot]

J'ai suivis vos conseils, et voici le code que j'ai intégré :

Code :

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

1
2
3
4
5
6
7
8
Sub Bouton_Export_Fichier_TXT()
 
    Dim nom As String
 
    nom = Application.GetSaveAsFilename(, "Fichiers texte (*.txt), *.txt")
    Application.Worksheets("Export").SaveAs nom, xlTextWindows
 
End Sub

Le résultat est presque bon sauf que :
- Ça copie tout le workbook("Export") - mais je ne veux copier qu'une seule colonne bien définie

Code :

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

Worksheets("Export").Range("D3: D8194")

- Ça modifie le nom de l'onglet "Export" avec le nom du fichier .txt


Je vais creuser plus dans la fonction SaveAs et GetSaveAsFilename....