Discussion :

[fanmanga]

Bonjour a tous,

Comment copier une feuille sur un fichier Txt ou Bat?

je souhaite faire un macro qui compare des feuilles présentes dans le meme classeur.

mais je souhaite créer pour chaque feuille un fichier TXT ou BAT puis faire une comparaison en language batch méthode find et apres supprimé les feuilles semblable sur ce classeur.

[Jean-Philippe André]

Salut,

en fait tu veux faire du vba pour passer sur du batch ? Pourquoi ne pas tout faire en batch direct ou tout en VBA ?

Pour la recopie, tu peux simplement enregistrer une macro avec l'enregistreur pour avoir une idee du code a utiliser.

[fanmanga]

Salut,

en fait tu veux faire du vba pour passer sur du batch ? Pourquoi ne pas tout faire en batch direct ou tout en VBA ?

Pour la recopie, tu peux simplement enregistrer une macro avec l'enregistreur pour avoir une idee du code a utiliser.

Je veux travailler avec les deux VBA pour avoir des feuilles identique(car ils sont pas tout a fait identique une seule cellule est diffirente ) et Batch pour tester si il sont identique.

[unparia]

Bonjour
Utilise l'enregistreur de macros.
Fais tes gestes d'enregistrement (fichier -->> enregistrer sous -->> choisis ton format --- arrête l'enregistrement)
Lis ensuite la macro ainsi écrite automatiquement et inspire-toi de ce code.

[Marc-L]

Bonjour !

je souhaite faire un macro qui compare des feuilles présentes dans le meme classeur.

Rien ne t'en empêche ! Du reste c'est ce que demande ce forum : publier le code entrepris …

mais je souhaite créer pour chaque feuille un fichier TXT ou BAT

TXT et BAT n'ont pas du tout la même vocation, en as-tu au moins connaissance ?!
Excel disposant déjà d'une fonctionnalité Enregistrer sous avec un format texte …
Quant au BAT, n'ayant aucun rapport avec Excel, c'est à toi de le créer !

Sans explication digne de ce nom, c'est à dire claire & exhaustive, à mon humble avis
il n'y a aucun intérêt d'avoir deux méthodes dans des langages différents pour effectuer la même chose ! …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[fanmanga]

En faite voici le problème j'ai un classeur ou il y a des feuilles ou certain en le même information sauf que la case cells(10,10) qui change et quand une feuille est identique il faut ajouté cette information au contenu de la cells(10,10) est supprimé la feuille doublant.

donc j'ai décidé avant de comparer deux feuilles faire que cells(10,10) pour les deux feuilles soit identique cells(10,10)=feuille1.cells(10,10)&feuille2.cells(10,10).
Puis créer un fichier pour chaque feuille et comparer les fichiers avec la méthode find du batch.

[fanmanga]

Pour info je suis débutant en VBA et il y a pas une fonction qui compare deux feuilles si il sont identique ou pas mais sur le Batch si.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Sheets("extrazlove1").Select
    Selection.Copy
    Application.CutCopyMode = False
    ChDir "D:\Macro\Macro z"
End Sub

je veux que Chdir créer le fichier avec comme nom cells(10,10).

[Marc-L]

Merci de ne pas citer l'intégralité du message juste précédent, cela nuit à la fluidité de cette discussion !

Tu peux toujours vouloir mais ChDir ne sert pas du tout à créer un fichier ‼ (cf aide VBA interne …)

Voir du côté de Workbook.SaveAs ou encore de Workbook.SaveCopyAs … (là aussi tout est déjà dans l'aide VBA !)

Sinon comme il t'a déjà été conseillé fort à propos, active l'Enregistreur de macros (au besoin voir le tutoriel idoine)
puis effectue la manipulation Enregistrer sous au format texte : une base de code est livrée sur un plateau !

[fanmanga]

Merci de ta réponse j'ai fait l'enregistreur de macro il ma donné ce code comment parcouris les feuilles du classeur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro6()
'
' Macro6 Macro
'
 
'
    Cells.Select
    ActiveWorkbook.SaveAs Filename:="D:\Macro\Macro z\extra2.txt", FileFormat:= _
        xlUnicodeText, CreateBackup:=False
End Sub

Mais il a crée un seul fichier hors moi je veux créer pour chaque feuille un fichier avec comme nom cells(10,10).