Discussion :

[jejeaunet]

Bonjour à tous,

Débutant dans le langage VBA, je suis confronté à un problème que je ne parviens pas à résoudre.

La macro constituée me permet la compilation de plusieurs fichiers ( au même format ) en un seul fichier.

A.XLS + B.XLS + .... = fichierunique.xls

La logique est d'ouvrir le fichier A.XLS /copier/coller en valeur dans fichier unique.xls/ fermer A.XLS puis passer à B.XLS et ainsi de suite via une boucle.

Néanmoins, il apparait que l'ensemble de ces fichiers ont des liaisons avec d'autres fichiers. Par conséquent, je souhaiterais savoir (afin de ne pas répéter l'action x fois) comment écrire dans ma macro : lors de chaque ouverture de fichier, à l'arrivée des boites de dialogues, tu " mets à jours les liaisons" (1ère boite de dialogue) et "continuer" lors de l'apparition de la deuxième boite.

D'avance je vous remercie pour les éléments de réponse que vous pourrez m'apporter.

Jeremy.

Ps: ci-joint, la macro.

[Marc-L]

Bonjour,

alors là c'est vraiment simple, tu sélectionnes Workbooks.Open dans ton code puis ‼

Voir donc dans les paramètres de la méthode Open associée à Workbooks …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[jejeaunet]

Bonjour Marc,

Merci de votre réponse rapide néanmoins je n'ai pas trouvé les informations souhaitées.

J'ai alors décidé d'utiliser une commande manuelle :Outils/Options/onglet Modification et décoche Confirmation de la mise à jour automatique des liens.

Je ne cache pas néanmoins que je ne suis pas satisfait par l'usage de cette commande temporaire. Par conséquent, je suis preneur des différents éléments que vous pourrez m'apporter.

[Marc-L]

Et pourtant dans l'aide de la méthode Open associée à Workbooks il est bien question d'un paramètre UpdateLinks ‼

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
Des chercheurs qui cherchent, on en trouve. Des chercheurs qui trouvent, on en cherche ! (Charles De Gaulle)

[jejeaunet]

Oui Marc, j'avais pu constater l'existence de cette "fonction" mais je n'arrive pas à l'écrire au format vba dans ma formule.

Code :

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

1
2
3
Set fiche = Application.Workbooks.Open(Chemin & "\" & fichier).UpdateLinks 
 
Set fiche = Application.Workbooks.Open.UpdateLinks(Chemin & "\" & fichier)

Ces deux formats ne fonctionnent pas dans la macro que j'essaye d'adapter.

[Marc-L]

D'où est-ce une fonction ?‼

C'est un paramètre de la méthode Open placé juste après FileName le nom du fichier !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !