ActiveWorkbook.SaveAs

[Dnoizat]

Bonjour,

Je vous expose mon souci, j'utilise une macro en VBA

ActiveWorkbook.SaveAs Filename:= _
(REP & FIC), FileFormat:=xlTextMSDOS, _
CreateBackup:=True
ActiveWorkbook.Close

Le souci que j'ai, c'est que les enregistrements de mon fichier "txt" commencent et se terminent par des guillements. Si je le fait en manuel tout est OK mais il me pose une question que je n'ai pas dans l'exécution de ma macro

si quelqu'un a une idée je suis preneur.

D'avanve merci

Dominique🙄

 

[Compte Supprimé 979]

Re : ActiveWorkbook.SaveAs

Bonjour Dnoizat et bienvenue sur ce forum 😉

Avec ce code, je n'ai pas de problème

Sub test()  Dim Rep As String, Fic As String
  Rep = ThisWorkbook.Path
  Fic = "Essais.txt"
  ActiveWorkbook.SaveAs Filename:=Rep & Fic, FileFormat:=xlTextMSDOS, CreateBackup:=True
  ActiveWorkbook.Close SaveChanges:=True
End Sub

Vérifie l'extension de ton fichier !?

A+

 

[Dnoizat]

Re : ActiveWorkbook.SaveAs

Merci j'essaye

 

[Dnoizat]

Re : ActiveWorkbook.SaveAs

Merci BRUNOM45,

Mais j'aitoujours mes "

 

[Compte Supprimé 979]

Re : ActiveWorkbook.SaveAs

Re,

Avec mon exemple, le fichier se nomme bien Essais.txt
Ou sont tes guillemets en questions ?

A+

 

[Dnoizat]

Re : ActiveWorkbook.SaveAs

Bonjour BRUNOM45,

Mes " se trouvent en début et fin ce chaque enregistrement de mon fichier exemple:

"Moncompte;01012012;MON ADRESSE"

voila plus précisément mon souci.

Si tu a une solution, je suis preneur.

D'avance merci
A+

Dominique

 

[Compte Supprimé 979]

Re : ActiveWorkbook.SaveAs

Salut Dnoizat

Malheureusement, je ne vois pas ou est ton problème !?
Chez moi le fichier texte enregistré ne comporte pas ces guillemets

Tu trouveras ci-joint les 2 fichiers zippés

Testé également sur 2010

A+

 

[PrinceCorwin]

Re : ActiveWorkbook.SaveAs

Bonjour Le fil,

J'ai noté une différence entre le fichier de Bruno et le NON fichier de Dnoizat.
Apparemment, le fichier de Dnoizat a comme séparateur, des point-virgules.
Le fichier de Bruno a des séparateurs en tabulations.

Le fichier de Bruno est sauvegardé automatiquement par excel.
Le fichier de Dnoizat... je ne sais pas.. Y a-t-il une préparation des données ??

Cordialement

 

[Dnoizat]

Re : ActiveWorkbook.SaveAs

Merci je vais regarder tes fichiers.

A+

Dominique

 

[Dnoizat]

Re : ActiveWorkbook.SaveAs

Bonjour à Tous,

Merci pour votre aide, j'ai finalement trouvé comment corriger mon anomalie de ". J'ouvre directement la boite d'enregistrer sous, en stockant le Chemin et le nom de mon fichier, le client n'a plus qu' cliquer sur "Enregistrer". Ci-dessous le script:

With Application.FileDialog(msoFileDialogSaveAs)
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = Rep & Fic
'Définit le type de fichier par défaut:
'(la valeur 5 spécifie les classeurs XML lorsque vous êtes dans Excel 2007)
.FilterIndex = 18
'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With

Merci encore pour votre aide et au plaisir.