Erreur 1004 sur une macro
bonjour
je fais une macro qui actualise 3 TCD sur un fichier. Chez moi cette macro marche très bien, mais chez certaines personnes elles ont systématiquement une erreur 1004.
Voici la macro :
Sub MAJ_TUN()
Sheets("BLF V6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique V6").PivotCache.Refresh
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Sheets("TCD hotel atlas").Select
-> ActiveSheet.PivotTables("Tableau croisé dynamique hotel").PivotCache.Refresh
Sheets("tcd vol atlas").Select
ActiveSheet.PivotTables("Tableau croisé dynamique vol").PivotCache.Refresh
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("dispos vol & chb").Select
Range("A5").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A5").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Excel me signale une erreur su la ligne en rouge ci dessous. Voyez vous quelque chose qui expliquerait ces erreurs chez les autres utilisateurs?
merci pour votre aide
gaël
Bonjour
Si tu as uniquement trois TCD dans ton fichier et que tu veux les réactualiser tous, essaie plutôt ceci
Sub MAJ_TUN()
ThisWorkbook.RefreshAll
Sheets("dispos vol & chb").Range("A5") = Date
End SubSi ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement
Super
Merci Dan ça marche parfaitement(meme si j'ai toujours du mal à comprendre pourquoi)