Discussion :

[la_fouine1806]

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

[patricktoulon]

bonjour
peut etre remetre les données du tcd a jour en meme temps


au plaisir

[arosec]

Bonsoir,

2 fois "RefreshAll" dans la même macro ne semble pas utile...
2 fois "Application.ScreenUpdating = True" dans la même macro ne semble pas utile non plus...

J'ai tester le code suivant sans problème:

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
24
 
Sub Rafraichissement()
Dim Wb1 As Workbook
 
On Error GoTo lblErr
 
Application.ScreenUpdating = False
 
With ThisWorkbook
  .Sheets("Valeur").Cells.Clear
  .Sheets("Extract").Range("A1:D" & .Sheets("Extract").Range("A65536").End(xlUp).Row).Copy
  .Sheets("Valeur").Range("A1").PasteSpecial xlPasteValues
  .RefreshAll
  .Save
End With
 
GoTo lblFin
 
lblErr:
MsgBox Err.Description, vbCritical, "Erreur"
 
lblFin:
Application.ScreenUpdating = True
End Sub

Si le Pb perciste, il faudrait nous joindre le fichier...

[la_fouine1806]

J'ai trouvé la solution à mon problème, il suffisait de décocher "activer l'actualisation en arrière plan" de ma source de données externe.