Enregistrer Sous par Macro avec condition

S

sophievba

Guest

• 22 Septembre 2011

• #16

Re : Enregistrer Sous par Macro avec condition

Re,

Je voulais éviter de passer par un batch car cela obligerai l'utilisateur à double-cliquer dessus, je pensais que par macro cela été possible.

Tant pis, tu m'as bien aidé et appris des choses 🙂

Merci beaucoup.

Sophie.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #17

Re : Enregistrer Sous par Macro avec condition

On ne sait touours pas comment est généré le *.prn ?

Si c'est par macro, il suffiit de récupérer la variable nomfichier (voir plus haut)

PS: VBA sait éxécuter un batch sans qu'il soit besoin de cliquer sur un *.bat.

 

Vote positif 0 Vote négatif

S

sophievba

Guest

• 22 Septembre 2011

• #18

Re : Enregistrer Sous par Macro avec condition

Re,


Si je t'ai dit le prn est généré par le bout de code que tu m'as fourni au début du post, j'ai remplacé .txt par .prn.

Pour le batch j'ai mis un shell pour executer le batch depuis la macro mais ce qui m'embête c'est que je dois fournir le batch en plus de la macro aux utilisateurs.

Sophie.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #19

Re : Enregistrer Sous par Macro avec condition

Pas nécessairement.

Le commande MSDos peut être inscrit en dur dans le code VBA.
(sans qu'il soit besoin de créer un fichier batch)

Si le *.prn est créer par la macro, il suffit comme je le disais d'utiliser la variable nomfichier, non ?

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #20

Re : Enregistrer Sous par Macro avec condition

Je viens de tester et cela fonctionne (voir ci-dessous)

Code:

Sub xls2prn2txt()
Const D As String = "TA"
Dim nomfichier$, chemin$, nomtext$
chemin = "C:\"
Sheets(1).Copy
With ActiveWorkbook
nomfichier = D & VBA.Left([G1].Text, 5) & ".prn"
.SaveAs chemin & nomfichier, xlText
.Close False
End With
nomtext = Split(nomfichier, ".")(0) & ".txt"
Name chemin & nomfichier As chemin & nomtext
End Sub

 

Vote positif 0 Vote négatif

S

sophievba

Guest

• 22 Septembre 2011

• #21

Re : Enregistrer Sous par Macro avec condition

Re,

Là je sais plus.

J'ai essayé avec la variable mais ça ne fonctionne pas.

nomfichier & "prn" As nomfichier & "txt

Quand je copie la syntaxe Dos dans la macro j'ai toute la ligne qui s'affiche en rouge.

Je ne suis pas câlée et là je me sens encore plus nulle.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #22

Re : Enregistrer Sous par Macro avec condition

Tu as testé la macro de mon message précédent ?
(moi oui, et je certifie que cela fontionne)

Et dans ce cas, il n'est pas besoin d'utiliser MSDos.

PS: Pourquoi ne pas enregistrer directement en txt ?

 

Vote positif 0 Vote négatif

S

sophievba

Guest

• 22 Septembre 2011

• #23

Re : Enregistrer Sous par Macro avec condition

Re,

Nos réponses ont du se croiser je n'avais pas vu ton bout de code.

Je le teste de suite et reviens vers toi.

Merci.

 

Vote positif 0 Vote négatif

S

sophievba

Guest

• 22 Septembre 2011

• #24

Re : Enregistrer Sous par Macro avec condition

Re, TempusFugit,

C'est exactement ce qu'il me fallait.

Merci énormément et désolée d'avoir été aussi peu réactive.

Bonne journée.

Sophie.

 

Vote positif 0 Vote négatif