Discussion :

[troxsa]

Bonjour,

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

Code :

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

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

[ARTURO83]

Bonjour,

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

Cdlt

[troxsa]

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 ?

[joe.levrai]

Bonjour,

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

Code :

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

Application.ScreenUpdating = False

à remettre à true par la suite

[Thumb down]

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

Code :

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

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

[troxsa]

Bonjour joe.levrai

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

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 :

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

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

[ARTURO83]

Bonjour,

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

Code :

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

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

[troxsa]

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)

[ARTURO83]

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