Discussion :

[denisw95]

Bonjour,

J'ai développé une macro avec de nombreuses opération de Copier/Coller.

A l'exécution de la macro, toutes ces opérations sont visibles à l'utilisateur. Y a t-il un moyen de les masquer ?

Merci d'avance pour vos réponses.

Cdlt

Denis

[ouisansdoute]

Bonjour,

Tu peux désactiver la mise à jour de l'écran avec le code

Code :

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

Application.ScreenUpdating=False

ATTENTION n'oublie pas à la fin de ta macro de remettre à True

Code :

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

Application.ScreenUpdating=True

[denisw95]

Merci pour ce retour rapide.

J'ai intégré les 2 commandes, mais j'ai toujours le défilement des écrans ...

[ouisansdoute]

Peux-tu nous joindre ton code ?

[denisw95]

Bonjour,

Ci-après le code :

Sub Parcourir()
'
' Parcourir Macro
' Macro enregistrée le 11/05/2009
'
ToOpen = Application.GetOpenFilename
Workbooks.Open (ToOpen)
MaSource = ActiveWorkbook.Name 'Prend le nom du fichier actif, par défaut celui que tu viens d'ouvir
'
Application.ScreenUpdating = False
'
' Récupération de "Export Devis MEO"
'
Sheets("Export Devis MEO").Select
Cells.Select
Selection.Copy
Windows("fiche devis_2009.XLS").Activate
Sheets("Export Devis MEO").Select
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
' Récupératuion de "Export Devis Exploit"
'
Windows(MaSource).Activate
Sheets("Export Devis Exploit.").Select
Cells.Select
Selection.Copy
Windows("fiche devis_2009.XLS").Activate
Sheets("Export Devis Exploit").Select
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
Application.ScreenUpdating = True
'
Windows(MaSource).Activate
ActiveWorkbook.Close
'
Sheets("Repartition des charges").Select
'
End Sub

[denisw95]

Bonjour,

Egalement une autre question dans la foulée de celle-ci.

Comment en fin de phase Copier/Coller, inhiber les questions "Voulez-vous mettre à jour ..." et "Vouler-vous vider le presse-papier ..." ?

Merci d'avance