Sauvegarde/export en fichier txt avec tabulation (Non visible)

Bonjour,

J'ai fait des recherches et j'ai trouvé des exemples et je suis arrivé a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub SaveAs_Tab() Filename = ActiveWorkbook.Name   If InStr(Filename, ".") > 0 Then Filename = Left(Filename, InStr(Filename, ".") - 1) End If   If Dir(Application.ActiveWorkbook.Path & "\" & Filename & ".txt") <> "" Then Kill Application.ActiveWorkbook.Path & "\" & Filename & ".txt" End If   PathSavetxt = Application.ActiveWorkbook.Path & "\" & Filename & ".txt"   Application.DisplayAlerts = False   Worksheets("Feuil1").Copy With ActiveWorkbook .SaveAS Filename:=PathSavetxt, FileFormat:=xlText, CreateBackup:=False .Close False End With   Application.DisplayAlerts = True End Sub

---

Quand je passe :

Worksheets("Feuil1").Copy
Cela ouvre une nouvelle fenêtre (vous allez me dire normal), mais j'aimerais qu'elle ne soit pas visible a l'écran, meme un bref instant, je trouve pas très agréable d'avoir des fenêtres qui s'ouvre et qui se ferme.

donc comment faire pour que "Worksheets("Feuil1").Copy" travaille en arrière plan ?

Avez une idée svp ?

En vous remerciant d'avance

Bonjour,

Avez-vous pensé à dérouler la macro en pas à pas (touche F8) pour localiser le problème?

Cdlt

Bonjour ARTURO83

J'ai fait du pas a pas avec la touche F8
Je pense que mon explication est peut être évasive

Quand je passe :

Worksheets("Feuil1").Copy
Cela ouvre une nouvelle fenêtre (vous allez me dire normal), mais j'aimerais qu'elle ne soit pas visible a l'écran, meme un bref instant, je trouve pas très agréable d'avoir des fenêtres qui s'ouvre et qui se ferme.

donc comment faire pour que "Worksheets("Feuil1").Copy" travaille en arrière plan ?

Bonjour,

as-tu essayé de désactiver le rafraichissement de l'écran ?

Code:

---

Application.ScreenUpdating = False

---

à remettre à true par la suite

Bonjour,
Je ne vois pas pourquoi tu fais Worksheets("Feuil1").Copy avant ton SaveAs?

Code:

---

1 2 3 4 5 6

'Worksheets("Feuil1").Copy With ActiveWorkbook .Sheets("Feuil1").Activate .SaveAs Filename:=PathSavetxt, FileFormat:=xlText, CreateBackup:=False ' .Close False End With

---

Citation:

---

Envoyé par joe.levrai

---

Bonjour joe.levrai

Je viens de faire un test et l'affichage se fait toujours sur la ligne Worksheets("Feuil1").Copy

Citation:

---

Envoyé par Thumb down

---

Bonjour Thumb down

Je viens de faire un copier/coller du code que vous avez donné et cela fait une erreur sur la ligne

Code:

---

.SaveAs Filename:=PathSavetxt, FileFormat:=xlText, CreateBackup:=False

---

Bonjour,

En mettant en première ligne "Application.ScreenUpdating = False" on ne verra pas la feuille qui s'ouvre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub SaveAs_Tab() Application.ScreenUpdating = False Filename = ActiveWorkbook.Name If InStr(Filename, ".") > 0 Then Filename = Left(Filename, InStr(Filename, ".") - 1) End If If Dir(Application.ActiveWorkbook.Path & "\" & Filename & ".txt") <> "" Then Kill Application.ActiveWorkbook.Path & "\" & Filename & ".txt" End If PathSavetxt = Application.ActiveWorkbook.Path & "\" & Filename & ".txt" Application.DisplayAlerts = False Worksheets("Feuil1").Copy With ActiveWorkbook .SaveAs Filename:=PathSavetxt, FileFormat:=xlText, CreateBackup:=False .Close False End With End Sub

---

Cdlt

Bonjour ARTURO83

Je viens de faire le test en procedure pas par pas (touche F8), ça ouvre la fenêtre
En mode F5 brièvement mais elle est toujours la (vous avez certainement une meilleurs machine que la mienne ^^ cela doit jouer)

Je n'ai pas dit de le faire en pas à pas

Citation:

---

Envoyé par ARTURO83

Je n'ai pas dit de le faire en pas à pas

---

En jouant la macro directement ça semble être OK, merci beaucoup pour votre aide

Bonne journée