Discussion :

[arsenic1]

Bonjour,

Sur mon fichier (a) j'importe des données d'un autre fichier (b).
Ce fichier (b) doit être mis à jour par simple ouverture de celui-ci.

Existe-il une macro qui permet à partir de mon fichier (a) de mettre à jour le fichier (b) sans voir l'ouverture?

Merci d'avance pour vos réponses.

[jfontaine]

Bonjour,

Essais en désactivant l'affichage

Code :

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

1
2
3
Application.ScreenUpdating = False
... Code
Application.ScreenUpdating = True

[arsenic1]

Merci pour la réponse

Cela marche, je ne vois par l'ouverture du fichier (b) mais il me reste quand même un soucis c'est que le fichier (b) ne se met pas à jour.

Normalement ce fichier (b) doit se mettre à jour à l'ouverture par le biais d'une macro. Ce qui marche si j'ouvre le fichier (b) moi même.

Mais quand j'ouvre mon fichier (a), le fichier (b) ne se met pas à jour.

Que faut-il faire?

[jfontaine]

sans voir le code difficile de t'aider

[arsenic1]

Voici la macro pour le fichier (b)

Code :

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

1
2
3
4
5
6
7
8
9
Sub Auto_open()
 
 
Call copie_data
Call Engagement
Call Exception
 
Workbooks("VOR.xls").Activate
Worksheets("Suivi").Activate

Ici c'est la macro pour le fichier (a)

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
Sub Auto_Open()
 
Application.ScreenUpdating = False 'Pour accellerer l'execution des macros
 
 Workbooks.Open Filename:= _
        "...."
 
Application.ScreenUpdating = True
Workbooks("....").Close (False)
 
Call boucle
Call bouclebudget
 
Sheets("Suivi").Activate
 
End Sub

Et j'aimerais lorsque j'applique la macro du fichier (a) que la macro du fichier (b) s'exécute aussi pour qu'il puisse se mettre à jour.

PS : désolé pour la présentation du message mais je suis bloqué pour la mise en forme (accès limité sur mon PC).

[jfontaine]

A mon avis le mieux serait de remettre la ligne ci dessous juste avant le End Sub

Code :

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

Application.ScreenUpdating = True

Pour voir si ton code tourne bien, met un point d’arrêt sur la première ligne et exécute le en pas à pas.

Le code que tu nous a mis a disposition ne nous donne pas la méthode de mise a jour des classeurs mais uniquement les appels d'autres procédures