salut,
j'ai une vingtaine de fichiers à mettre à jour tous les jours, j'ai fait une macro qui les ouvre, les met à jour et les referme les uns après les autres. par contre ces fichiers sont en lecture seule recommandé car il sont en réseaux et plusieurs personnes peuvent être amenés à les consulter ou les modifier.
Mon problème est que du fait qu'il sont en lecture seul recommandé, dès l'ouverture du fichier il me propose soit la lecture seule, soit la lecture écriture. Le but est de forcé la lecture écriture en cliquant automatiquement sur non, ce qui me permet de faire autre chose en attendant que tous mes fichiers se mettent à jour, sinon je suis obligé d'attendre que ma macro défile en cliquant manuellement sur non dès que cela apparait. Ci dessous le début du code :
Workbooks.Open Filename:= _
"G:\xxxx\xxxxxxxx\xxxx\xxxx\xxxxyyxxx.xls", UpdateLinks:=3
Sheets("Données").Select
Range("A19").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Synthèse").Select
Range("B5").Select
Merci d'avance pour vos réponses.
Pour info je suis débutant
j'ai une vingtaine de fichiers à mettre à jour tous les jours, j'ai fait une macro qui les ouvre, les met à jour et les referme les uns après les autres. par contre ces fichiers sont en lecture seule recommandé car il sont en réseaux et plusieurs personnes peuvent être amenés à les consulter ou les modifier.
Mon problème est que du fait qu'il sont en lecture seul recommandé, dès l'ouverture du fichier il me propose soit la lecture seule, soit la lecture écriture. Le but est de forcé la lecture écriture en cliquant automatiquement sur non, ce qui me permet de faire autre chose en attendant que tous mes fichiers se mettent à jour, sinon je suis obligé d'attendre que ma macro défile en cliquant manuellement sur non dès que cela apparait. Ci dessous le début du code :
Workbooks.Open Filename:= _
"G:\xxxx\xxxxxxxx\xxxx\xxxx\xxxxyyxxx.xls", UpdateLinks:=3
Sheets("Données").Select
Range("A19").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Synthèse").Select
Range("B5").Select
Merci d'avance pour vos réponses.
Pour info je suis débutant