Aide VBA svp macro qui enregistre un contenu - Page 3

lol comme sa on a toujours raison

D'où l'intérêt de ne pas se fier à ActiveWorkbook, mais je l'ai déjà dit je crois.

Je l'attendais le coup du .xls.txt, si justement il s'agit de copie de fichier existant au moins on les verra dans l'explorateur dans le même ordre   le classeur puis le fichier texte, etc...

Maintenant c'est sur que c'est pas top, mais en meme temps c'était pas le sujet  

Puis vivre avec son temps, ce n'est pas forcément rejeter tout forme d'ordre et de discipline  

Peut-on desactiver ces boites de dial?

Freeman BiereBlanche, je l'ai déjà dit. Quand je poste en tant que modo, j'ai TOUJOURS raison.
Quand je le fais en tant que simple membre, vous avez le droit de ne pas être d'accord.  

Ah, oui, j'oubliais, je suis schizophrène  
EDIT: Non seulement je m'emmêle les pinceaux dans mes personnalités, mais en plus je confonds Freeman et Hoegarden  

excuse moi mais je ne suis pas freeman  

chamakh, si tu enregistres et fermes correctement tes classeurs, tu n'auras pas ces boîtes de dialogue.

A la rigueur jette un oeil à DisplayAlerts.

c pas grave en tant que modo t'as le droit de te tromper  

alors t'as reussi a enlever les dialoges ?

non pas du tout

ActiveWorkbook.SaveAs "C:\Documents and Settings\....\bureau\test\export_pour_qcm\" & monfichier & ".txt", xlUnicodeText, CreateBackup:=False, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False

 
    ActiveWindow.ScrollRow = 1

    Range("A1").Select

 
 
 
monfichier = Dir()

Wend

 
 
End Sub

Voici la fin de mon code si vous repérez un probleme car je re-re-rebloque lol

et c quoi le bloquage ?

Après avoir sauvegardé ton fichier, il serait intelligent de le fermer.
Mais si par exemple, tu fais des "ActiveWindow.ScrollRow = 1", des "Range("A1").Select", et on se demande pourquoi tu les fais, il se trouve que ton fichier n'est plus dans le même état que lorsque tu l'as enregistré. Donc Excel te propose de l'enregistrer à nouveau.

A la lecture de la fin de ton code, je constate que tu n'utilises pas Do While .. Loop, que tu mélanges toujours le passage des arguments par ordre et par nom, que tu es toujours accro aux ActiveMachin et aux Select inutiles.

Ca fait plaisir de t'aider. De rien.

rien a rajouter  

J'ai enlevé le "ActiveWindow.ScrollRow = 1", des "Range("A1" ).Select" je me suis rendu compte que celà ne servait à rien de revenir sur la cellule, mais il me demande toujours de ré-enregistrer les fichiers texte

Tu as fais un ActiveWorkbook.Close (arghhhhh, j'ai écris ça moi   ) ?

toujours la meme il me demande d'enregistrer

ActiveWorkbook.SaveAs "C:\Documents and Settings\....\bureau\test\export_pour_qcm\" & monfichier & ".txt", xlUnicodeText

ActiveWorkbook.Close

 
monfichier = Dir()

 
Wend

Application.Quit

    ' Pour fermer le fichier seulement

    ' ActiveWorkbook.Close

End Sub

hehe comme quoi personne n'est parfait

chamakh51, tu as lu l'aide sur ma méthode Close telle qu'elle s'applique à l'objet Workbook ?  
hoegarden31, va la lire aussi  

c'est bon probleme réglé  

ah ok lol en effet c plus simple je l'avais pas vu

Tu vois, hoegarden31, je suis sûr d'avoir plus aidé chamakh comme ça.

"Il vaut mieux apprendre à pêcher à celui qui a faim plutôt que de lui donner un poisson"
Vieux proverbe que m'a transmis un sage qui arrivait à pied par la Chine  

blablabla

y en a toujours un pour corriger l'autre  

T'es pas encore rentré chez toi, Bibine ?
(Feinte grossière   )

non dans 6 minutes je pars pour un petit week-end de 4 jours hehe