Discussion :

[Vincent32]

Bonjour à tous,

J'ai un code qui fonctionne plutôt bien (merci Developpez pour votre aide énorme )

Cependant il a la fâcheuse tendance a avoir un effet stroboscopique. Je m'explique il ouvre plusieurs fichiers .dpt qu'il transforme en .txt, ceci implique l'ouverture de plusieurs feuilles excel suivit immédiatement de leur fermeture. Serait il possible de ne pas afficher à l'écran ces différentes fenêtres (avant que je devienne épileptique ?

Code :

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

1
2
3
4
5
6
7
8
9
'Enregistrement données brutes
    For Col = PremC1 To DerC1 - 1 'boucle sur colonne
        Workbooks.Add 1 'ajout d'un classeur avec 1 feuille
        ws1.Range(ws1.Cells(2, 1), ws1.Cells(DerL1, 1)).Copy [A1] 'copie des colonnes qui vont bien dans le nouveau classeur
        ws1.Range(ws1.Cells(2, Col + 1), ws1.Cells(DerL1, Col + 1)).Copy [B1] 'copie des colonnes qui vont bien dans le nouveau classeur
        ActiveWorkbook.SaveAs ws0.[E12] & ws1.Cells(1, Col + 1) & ".txt", xlTextWindows 'enregistrement au format txt
        'ActiveWorkbook.SaveAs ws0.[E13] & ws1.Cells(1, Col + 1) & ".csv", xlCSV, Local:=True'enregistrement au format csv
        ActiveWorkbook.Close False 'fermeture du classeur texte
    Next Col

Merci pour votre aide,

Cordialement,

Vincent

[jfontaine]

Bonjour,

Voir si tu peux faire ce traitement dans une autre cession Application pour laquelle tu affecteras la propriété Visible à False

[ZebreLoup]

Tu peux faire

Code :

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

1
2
3
Application.ScreenUpdating = False
'ton code
Application.ScreenUpdating = True

[Vincent32]

Merci beaucoup Zebreloup pour cette solution très efficace.

Bonne journée
cordialement

Vincent