Creer un fichier avec 1 tableau Excel

Salut a tous, j'ai une feuille de mon fichier excel qui contient un tableau et j'aimerais l'enregistrer en tant que fichier, comment dois-je faire?

Bonjour Capucin le forum

a+

Papou

Sub copier()
    Dim adr$
    adr = ThisWorkbook.Path
    Feuil1.Copy ' là le nom de ta feuille à copier
    ActiveWorkbook.SaveAs (adr & "\Test")
    ActiveWorkbook.Close
End Sub

Salut Papou!

Ca fonctionne ton code.

Le fichier genere n'est pas pris en charge par le logiciel qui doit l'utiliser. Il doit s'ouvrir avec bloc note pour ca! Peut-on le convertir?

Re Capucin le forum

Bah oui mais pourquoi tu le dis pas au début ???

je te referai une macro tout à l'heure pour du pdf c'est bon pour toi?

a te relire

a+

papou

EDIT: je relis ton post en fait je pense que tu veux du txt plutôt non??

Excuses-moi pour le code que tu devra refaire, c'est que j'esperais que ca fonctionne. Donc, il semblerais que ca dois etre convertis en txt.

Merci d'avance!

bonjour Capucin le forum

a+

papou

Sub copier()
    Dim adr$
    adr = ThisWorkbook.Path
    Feuil4.Copy ' là le nom de ta feuille à copier
   ActiveWorkbook.SaveAs adr & "\Test.txt", FileFormat:=xlText
    ActiveWorkbook.Close 1
End Sub

Cela marche tres bien! A quoi sert le "1 " que tu as rajouter apres "close" dans cette derniere version?

Eventuellement, j'aimerais avoir un nom de fichier qui reflete le contenu d'un Input Box, peut-on remplacer "\Test.txt" par une variable?

 Sub copier()
        Dim adr$
        adr = ThisWorkbook.Path
        Feuil4.Copy ' là le nom de ta feuille à copier
      ActiveWorkbook.SaveAs adr & "\Test.txt", FileFormat:=xlText
        ActiveWorkbook.Close 1
    End Sub

Capucin

Re Capucin le forum

oui bien sur c'était un exemple que je t'ai mis

tu peux bine sur le changer par ce que tu veux(ou presque)

a+

Papou

re capucin le forum

voilà

a+

Papou

Sub copier()
    Dim adr$, rep$
    adr = ThisWorkbook.Path
    rep = InputBox("Veuillez taper le Nom du Fichier pour l'enregistrer sous!", "Nom pour l'Enregistrement")
    If rep = "" Then Exit Sub
    Feuil1.Copy    ' là le nom de ta feuille à copier
    ActiveWorkbook.SaveAs adr & "\" & rep & ".txt", FileFormat:=xlText
    ActiveWorkbook.Close 1
End Sub

Juste avant de fermer les 1er post, pourrais-ton eliminer les 2 premieres lignes de la feuille avant la sauvegarde, car c'est une entete de tableau qui ne doit pas apparaitre sur le fichier sauvegarder. J'ai esayer differente chose mais excel semble figer a chaque fois.

sub fichier()

Dim adr$, rep$
        adr = ThisWorkbook.Path
        rep = InputBox("Nom du Fichier a enregistrer", "Nom pour l'Enregistrement")
        If rep = "" Then Exit Sub
        Feuil3.Copy    ' là le nom de ta feuille à copier
       ActiveWorkbook.SaveAs adr & "\" & rep & ".txt", FileFormat:=xlText
        ActiveWorkbook.Close 1
    End Sub