Discussion :

[tanaka59]

bonjour,

Je dispose d'un fichier Excel dans le quel j'importe des données d'une base de données. Le fichier Excel comporte une trentaine de champs.

Je concatène mes champs nécessaire en colonne A avec ce type de formule

Code :

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

" =A2&";"&b2&";"&c2&";"&d2&";"&e2 ... "

Je transfère ensuite ceci à la main par un copier coller dans un bloc note .txt ou .csv pour le réintégrer en BDD.

Je souhaite construire un bout de code qui venir copier le contenu de la colonne A vers un fichier bloc note .txt ou .csv . A noter il n'y a pas de restriction sur le nombre de ligne à copier car celui ci est inconnu.

Cependant 2 conditions :

* je veux commencer à la ligne 2 (ligne 1 = entête de colonne )
* ne copier que la colonne A avec les champs concaténés.

Merci de m'aiguiller

[EddiGordo]

Et pourquoi tu ne fais pas simplement "Enregistrer sous" en choisissant le format CSV(Séparateur point virgule) ??
Et c'est quand tu intègres dans la base de données que tu lui demandes de commencer en ligne 2

[Menhir]

Le plus simple est de créer un nouveau classeur avec une feuille unique.
Ensuite tu copies tes données sources vers ce classeur.
Tu enregistres ce classeur comme un texte.
Tu le fermes.

Code :

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

1
2
3
4
Workbooks.Add
Worbooks("MonClasseur").Worksheet("MaFeuille").Range("A2:A" & Rows.Count).Copy Destination:=Range("A1")
ActiveWorkbook.SaveAs FileName:="MonTexte.txt" FileFormat:=xlTextWindows
ActiveWorkbook.Close False

Je n'ai pas testé ce code, il se pourrait donc que tu ais du débugage à faire.

Si tu veux le faire en une ligne, tu peux passer par la méthode ExportAsFixedFormat de l'objet Range.
https://msdn.microsoft.com/fr-fr/lib.../ff836441.aspx

[tanaka59]

Bonjour,

Je viens de faire le code suivant :

Code VBA :

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
Sub clic()
 
Dim chemin_fichier_export As String
Dim nom_feuille_classeur As String
Dim fichier_txt_cree As String
 
chemin_fichier_export = "C:\Users\test\Downloads\20160609_macro.xlsm"
nom_feuille_classeur = "feuille"
fichier_txt_cree = "C:\Users\test\Downloads\MonTexte.txt"
 
Workbooks.Add
 
Worbooks(chemin_fichier_export).Worksheet(feuille).Range("A2:A" & Rows.Count).Copy Destination = fichier_txt_cree
ActiveWorkbook.SaveAs(fichier_txt_cree,FileFormat = xlTextWindows)
 
ActiveWorkbook.Close False
 
End Sub

VBA me dit que " ActiveWorkbook.SaveAs(fichier_txt_cree,FileFormat = xlTextWindows) " n'est pas déclaré et qu'il lui faut un format . J'ai pourtant bien préciser le format " FileFormat = xlTextWindows "

Merci d'vance de l'aiguillage

[Menhir]

Tu le fais exprès ?
Je t'ai donné la bonne syntaxe dans mon message précédent.

[tanaka59]

Je n'ai pas testé ce code, il se pourrait donc que tu ais du débugage à faire

Bonjour,

Comme tu le signalai le code brut de décoffrage que tu proposai n'a pas fonctionné . J'ai du chercher des fonctionnalités faire fonctionner le code.

Voici ce que j'obtiens comme code .

Le copier/coller vers le fichier texte ne marche pas . Je ne vois pas d'ou vient le problème :

Code VBA :

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
Function clic()
 
Dim chemin_fichier_export As String
Dim nom_feuille_classeur As String
Dim fichier_txt_cree As String
 
chemin_fichier_export = "C:\Users\N000137816\Downloads\20160609_macro.xlsm"
nom_feuille_classeur = "feuille"
fichier_txt_cree = "C:\Users\N000137816\Downloads\MonTexte.txt"
 
Workbooks.Add
 
Workbooks(chemin_fichier_export).Worksheet(feuille).Range("A2:A100").Copy Destination = fichier_txt_cree
ActiveWorkbook.SaveAs Filename:=fichier_txt_cree, FileFormat:=xlTextWindows
 
ActiveWorkbook.Close False
 
End Function

[Menhir]

Mon code était peut-être "brut de décoffrage" mais au moins la syntaxe était bonne.

Le copier/coller vers le fichier texte ne marche pas . Je ne vois pas d'ou vient le problème :

Tu n'as pas du bien regardé parce que je vois au moins 5 erreurs dans la ligne (pas mal pour une seule ligne) :
- Le nom du Workbook : il n'y a pas de chemin dans un nom de Workbook.
- Le nom de la Worksheet : une désignation se met entre guillemets. S'il n'y a pas de guillemets, VBA le considère comme un nom de variable
- Quand on désigne une Worksheet par son nom, c'est un indexe de la collection Worksheets. Il faut donc le mettre au pluriel.
- Quand on indique un paramètre dans une méthode, on utilise := et non pas =.
- La destination doit être une référence de cellule et non pas une chaine de caractère reprenant le nom d'un onglet.

Je le répète : regarde la syntaxe dans le code que j'ai donné.

[tanaka59]

Bonjour,

J'ai encore modifié le code VBA qui ne fonctionne toujours pas malgrés des recherches et les conseilles suivis

Code vba :

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
Function clic()
 
Dim chemin_fichier_export As String
Dim nom_feuille_classeur As String
Dim fichier_txt_cree As String
 
chemin_fichier_export = "C:\Users\N000137816\Downloads\20160609_macro.xlsm"
nom_feuille_classeur = "feuille"
fichier_txt_cree = "C:\Users\N000137816\Downloads\MonTexte.txt"
 
Workbooks.Add
 
Workbook.Worksheets("feuille").Range("A2:A20").Copy Destination:=fichier_txt_cree
ActiveWorkbook.SaveAs Filename:=fichier_txt_cree, FileFormat:=xlTextWindows
 
ActiveWorkbook.Close False
 
End Function

Mon code était peut-être "brut de décoffrage" mais au moins la syntaxe était bonne.

J'ai réutilisé le code que tu a fourni.

- Le nom du Workbook : il n'y a pas de chemin dans un nom de Workbook.

Alors comment VBA arrive a déterminer dans quel fichier il doit prendre les données ? Il le fait d'office dans le fichier courant ouvert ?

- Le nom de la Worksheet : une désignation se met entre guillemets. S'il n'y a pas de guillemets, VBA le considère comme un nom de variable

J'ai retrouvé l'explication des guillements et j'ai corrigé

- Quand on désigne une Worksheet par son nom, c'est un indexe de la collection Worksheets. Il faut donc le mettre au pluriel.

Bizzarement dans ton code que tu as donnée un Worksheet sans le " s " à la fin . Tu dois qu'il faut en mettre puis n'en met pas et après tu dis le contraire ... Je ne suis pas ta logique désolé. Soit on en met , soit on en met pas mais pas les deux à la fois .

- Quand on indique un paramètre dans une méthode, on utilise := et non pas =.

Que veux tu dire par méthode ? Pourtant on affecte une variable texte comme numérique avec un " = " simple normalement en VBA ? C'est bien la première fois que j'entend parler de " := " . Je sais qu'en PHP et en c++ il y a une différence entre une chaine texte et numérique.

- La destination doit être une référence de cellule et non pas une chaine de caractère reprenant le nom d'un onglet.

C'est ce que j'ai précisé pourtant , dans le range on a bien la plage de cellule dixit cet exemple sur le site de microsoft : https://msdn.microsoft.com/fr-fr/lib.../ff838238.aspx ... Dans le worksheet on a bien le nom de l'onglet du classeur dans lequel on travaille . La je ne vois pas le problème ?

Merci d'avance

[Menhir]

Alors comment VBA arrive a déterminer dans quel fichier il doit prendre les données ? Il le fait d'office dans le fichier courant ouvert ?

Pour être atteint par Workbook, le fichier doit faire partie de ceux ouverts dans Excel.
S'il n'est pas ouvert, il faut l'ouvrir avec une méthode Workbooks.Open.

Ensuite, il faut le désigner par son nom.

Que veux tu dire par méthode ?

On peut assigner à un objet VBA deux types de membres : des propriétés et des méthodes.
Regarde l'aide VBA de n'importe quel objet Excel (de préférence l'objet Range, ça te donnera l'occasion de voir la description de la méthode Copy) et tu verras de quoi il s'agit.

Pourtant on affecte une variable texte comme numérique avec un " = " simple normalement en VBA ?

Là, ça n'a rien à voir avec une affectation de variable, c'est une transmission de paramètre.

C'est bien la première fois que j'entend parler de " := " .

Si tu avais pris la peine de regarder la description de la méthode Copy de Range, tu en aurais vu.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx

C'est ce que j'ai précisé pourtant , dans le range on a bien la plage de cellule dixit cet exemple sur le site de microsoft : https://msdn.microsoft.com/fr-fr/lib.../ff838238.aspx ... Dans le worksheet on a bien le nom de l'onglet du classeur dans lequel on travaille . La je ne vois pas le problème ?

Ce que tu indiques est une chaîne de caractère contenant le chemin et le nom d'un fichier.
Ce qu'il faut mettre, c'est la référence à une cellule.

Tu ne vois pas le problème ?

Je le répète une nouvelle fois : regarde mon code.

[tanaka59]

Bonjour,

J'ai repris le code à zéro et j'ai fait chou blanc

Si une âme charitable peu m'aiguiller sur la question , merci d'avance.

[Marc-L]

Bonjour, bonjour !

Sinon rien qu'en activant l'Enregistreur de macros puis en effectuant la manipulation !

Voilà, voilà !

[Menhir]

Si une âme charitable peu m'aiguiller sur la question , merci d'avance.

Je ne vois pas comment il serait possible de "t'aiguiller" plus que ce qui a déjà été fait, surtout si tu n'apportes aucune indications sur ce que tu n'es pas parvenu à appliquer.

[Marc-L]

Poster le code entrepris via l'icône # en indiquant clairement le message d'erreur et le numéro de la ligne en erreur
conformément aux règles de ce forum !

Je dispose d'un fichier Excel dans le quel j'importe des données d'une base de données.

Excel serait inutile : pourquoi ne pas exporter directement de la base de données uniquement les données souhaitées ?‼