Bonjour,

j'ai crée une macro qui copie (speciale : valeur) les données d'un onglet vers un autre onglet. Le second onglet sert de base pour un TCD. Pour finir elle rafraichit les données du tcd.

Quand je veux rafraichir avec ma macro, je suis obligé de la lancer deux fois pour obtenir le résultat le rafraichissement.

Voici le code:

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 Rafraichissement()
 
Dim Wb1 As Workbook
Dim Plg As Range
 
Application.ScreenUpdating = True
 
Set Wb1 = ThisWorkbook
Set Plg = Wb1.Sheets("Extract").Range("A1:D" & Wb1.Sheets("Extract").Range("A65536").End(xlUp).Row)
 
Wb1.RefreshAll
Wb1.Sheets("Valeur").Cells.Clear
Plg.Copy
Wb1.Sheets("Valeur").Range("A1").PasteSpecial xlPasteValues
 
 
Wb1.Save
Wb1.RefreshAll
 
Application.ScreenUpdating = True
 
End Sub
Quelqu'un aurait une idée pour que le rafraichissement se fasse dès la première passe de la macro.

Merci par avance

Cordialement