non affichage de page...

[castorjunior]

Bonjour à tous,

je me suis remis à mon vba de débutant, j'ai quasiment fini une appli 😛 et a part un sombre problème de "port already open" (mscomm1), j'ai un petit souci.

application
lorsque ma macro s'exécute, je créé une nouveau classeur, je copie des donnée dedans, et j'enregistre la page en CSV.

souci:
à chaque boucle, j'ai un visu de la nouvelle page créée, et de la copie puis je reviens sur ma page initiale.

Avez vous une astuce pour éviter ceci ?

Sheets(page_extraction).Cells.Copy
    Workbooks.Add 'c'est à partir d'ici que cela m'ennuie
    ActiveSheet.Paste
    'Range("J2").Select
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\XXX\Documents\zzz\" & page_extraction & "_" & cache_date & ".csv", FileFormat:=xlCSVMSDOS, _
        CreateBackup:=False
        ConflictResolution = xlLocalSessionChanges
    ActiveWorkbook.Close SaveChanges:=False

merci, par avance !

 

[saya]

Re : non affichage de page...

bonsoir à tous,

Je pense qu'en ajoutant Application.ScreenUpdating = false juste avant ton ajout de workbook, puis en le repassant en = true après la fermeture de ton workbook, ça devrait marcher. Du moins, à tester 🙂

Bonne soirée,
Saya

 

[castorjunior]

Re : non affichage de page...

c'est parfait !

merci saya !