Macro qui enregistre une feuille Excel avec extension (.bat)

Bonjour,

J'aimerai savoir s'il est possible d’enregistrer une feuille Excel au format (.bat) et de l'enregistrer dans le dossier ou se trouve ma macro ?

Par exemple, j'ai 4 feuille Excel que j'aimerai enregistrer au format .bat simultanément quand je clique sur un bouton.

Merci d'avance.

Bonjour SpaceX,

Je ne suis pas certain de bien comprendre mais :

Les fichiers .bat auxquels je pense sont des fichiers du type Txt avec extension .bat.

Tu peux donc à priori utiliser la fonction Workbook.SaveAs ou du genre avec le format xlUnicodeText et tu lui donne un nom en ".bat"

Exemple :

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\xxxxxx\Desktop\exemple.bat", FileFormat:= _
        xlUnicodeText, CreateBackup:=False
End Sub

Fait savoir si cela te convient.

Cordialement,

Bonjour,

Merci.

J'ai adapté ton code par rapport au mien, voici ce que j'ai :

  Worksheets("date").SaveAs FileName:=chemin & "\date.bat", _
        FileFormat:=xlUnicodeText, CreateBackup:=False

Cependant lorsque j'ouvre mon fichier .bat, j'ai des guillements qui se sont installés automatiquement, par exemple :

• Dans mon fichier excel j'avais : je m'appelle toto
  Une fois enregistré et quand je l'ouvre : "je m'appelle toto"

J'ai le même problème mais pour les saut à la ligne, or sur mon fichier excel je n'ai aucun saut de ligne ...

Comment peut-on les enlever ?

Cher SpaceX,

Je ne vois pas d'autre solution que d'écrire valeur par valeur dans un fichier txt.

Le code ci-dessous à adapter enregistre (en tout cas chez moi) le texte sans guillemet dans un fichier .bat.

Mais il faut parcourir l'ensemble des données à sauvegarder...

Sub Save_TXT()

Dim fs, a As Object
Dim i As Integer

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.bat", True)

For i = 1 To 10
             a.WriteLine (Cells(i, 1).Value) 
Next i
'End With

a.Close

End Sub