Msgbox lecture seule recommandé forcé à non

[Vincepom]

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

 

[Pierrot93]

Re : Msgbox lecture seule recommandé forcé à non

Bonjour,

essaye peut être ceci :

Workbooks.Open Filename:= _
    "G:\xxxx\xxxxxxxx\xxxx\xxxx\xxxxyyxxx.xls", UpdateLinks:=3, ReadOnly:=False

bon après midi
@+

 

[Vincepom]

Re : Msgbox lecture seule recommandé forcé à non

Merci Pierrot,Mais non le readonly:= false ne fonctionne pas, ça me fait toujours apparaitre la fenêtre de lecture seule recommandé avec les choix (oui, non, annuler).

bien tenté !!

Vince

 

[Pierrot93]

Re : Msgbox lecture seule recommandé forcé à non

Re,

essaye cela :

Workbooks.Open Filename:="classeur3.xls", UpdateLinks:=3, ReadOnly:=False, ignoreReadOnlyRecommended:=True

 

[Vincepom]

Re : Msgbox lecture seule recommandé forcé à non

Alors là Pierrot, tu es magnifique !!!!!

Tu me comble joie, ton code marche à merveille, chapeau l'artiste !!!

Bon week-end !!