Fermer et réouvrir fichier automatiquement pour rafraîchir données

Bonjour à tous ...

J'aimerais utiliser la Macro ci dessous afin de fermer un fichier excel et le réouvrir pour rafraîchir les données.

Le fichier est stocké sur un réseau local.

Le problème c est que j' aimerais supprimer le message : '' voulez vous enregistrer les modifications que vous avez apportées à '' xxxxx.xlsm '' ?

ENREGISTRER. NE PAS ENREGISTRER. ANNULER.

En enregistrant les modifs bien-sûr.

Merci d'avance.

Dim chemin As String

chemin = "c:\Fiche"

ActiveWorkbook.Close

Workbooks.Open Filename:=chemin

Bonjour Le Nen Samuel,

Pourquoi ne pas faire en VBA :

    Calculate

Cela rafraîchit tes données

Cordialement,

Baboutz

Le Nen Samuel a écrit :

pour rafraîchir les données.

Merci d'avance.

Bonjour,

Tu entends quoi par "Raffraichir les données" tu parles de tableaux Croisés dynamiques ?

parce que dans ce cas inutile de fermer le fichier.

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Qui correspond au clic droit sur un tableau croisé option "actualiser"

désolé !!! j avais pas vu vos réponses.

je cherchais à rafraîchir un fichier stocké sur un réseau local.

genre un fichier afficher par un écran en mode visionnage (en lecture seule) et le même fichier ouvert d'une autre session (en écriture) servant à l'agrémenter.

la solution que j'ai trouvé c'est une macro qui ferme sans enregistrer et réouvre le fichier quant il est en mode visionnage.

ça fonctionne parfaitement bien.

je ne sais pas si vous connaissez d'autres solutions?