pb execution macro

[petroliv]

bonjour je debute en VB sous excel et je rencontre un pb surement nul mais la je bloque

description :

sur une fichier xls j'ai besoins de creer un export d'une feuille et de la mettre en forme
je fait donc :
enregistrer sous sous le format .prn (separateur espace)
je renome mon fichier en modifiant l'extension en .txt
j'edite mon txt et je supprime tout les espaces
je lui donne un nom en Message box et je l'enregistre.

prise une a une les macro fonctionne toute, je voudrais maintenant la faire en un clic mais au moment ouje ferme mon .prn pour modif l'extension en .txt l'execution de la macro suivante ne se fait pas. j'ai bien essayer de reouvrir mon fichier d'origine et de le rendre actif .... mais pas de resultat.

bon je pense que mon pb est bien nul mais ça fait que 2j que je fait du VB ... donc soyer indulgent

si qqun a une solution je suis preneur

merci

copie de mon VB :

Option Explicit

Sub Sauv()

Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:= _
"C:\excel\essai.prn" _
, FileFormat:=36, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Ferm

End Sub

Sub Ferm()

Application.Workbooks.Open ("C:\Documents and Settings\Administrateur\Bureau\Gestion outil\BOUTIL OPTIMAX essai essi.xls")

Dim WB_Principal As Workbook

Set WB_Principal = ActiveWorkbook
Workbooks("BOUTIL OPTIMAX essai essi.xls").Activate

Workbooks("essai.prn").Close False

R

End Sub

Sub R()

Name "C:\excel\essai.prn" As "C:\excel\essai.txt"

Espace

End Sub
Sub Espace()

Dim T As String
Open "C:\excel\essai.txt" For Input As #1
Open "C:\excel\jauge.txt" For Output As #2
T = Input$(LOF(1), 1)
T = Replace(T, " ", "")
Print #2, T
Close #1
Close #2

nom_prog

End Sub
Sub nom_prog()

Dim NOM As String
NOM = InputBox("Entrez votre nom : NOM.txt", "programme de jauges outils", "NOM_VOULU.txt")
If NOM = "" Then Exit Sub
Name "C:\excel\jauge.txt" As "C:\excel\" & NOM

efface

End Sub

Sub efface()

Kill ("C:\excel\essai.txt")

End Sub

 

[JNP]

Re : pb execution macro

Bonjour Petroliv et bienvenue ,
La première chose à faire (pas pour que ta macro marche ) mais pour obtenir des réponses, ce serait de passer par la Lien supprimé .
A vue de nez, je dirais que si tu fermes le classeur dans lequel est ta macro, c'est pas très étonnant qu'elle s'arrête... Donc, soit tu cases ta macro dans Perso.xls, soit tu l'utilises depuis un 3ème fichier. Je pense que ça fonctionnera beaucoup mieux.
Bonne soirée

 

[petroliv]

Re : pb execution macro

merci pour cette reponse qui me resoud tout MERCI !!!!
pour la case de depart désolé c vrai que je l'ai lu en diagonale et nom post à des lacunes sur la version, la description un peu pourri ....
promis je ferai plus merci encore

 

[JNP]

Re : pb execution macro

Re ,

pour la case de depart désolé c vrai que je l'ai lu en diagonale et nom post à des lacunes sur la version, la description un peu pourri ....
promis je ferai plus merci encore

On ne demande pas grand chose, un petit bonjour, un français correctement lisible, un petit au revoir, bref, rien qu'un peu de douceur dans ce monde de brute .
Enchanté d'avoir résolu ton problème.
Bon WE