Copie fichier en lecture seule

Bonjour,

J'ai donc un fichier de suivi dans lequel j'ai introduit une macro qui va ouvrir un autre fichier, partagé celui-là, copier les données puis coller ces données dans mon fichier de suivi.

Seulement cette macro ne fonctionne que lorsque le fichier partagé n'est ouvert par personne.

Je sollicite votre aide pour pouvoir modifier ma macro pour qu'elle fonctionne lorsque le fichier partagé est déjà ouvert par quelqu'un (donc en lecture seule pour moi).

Voici ma macro:

NB: mon fichier = Suivi création articles SAP ; fichier partagé à copier = repertoire_des_demandes_d'articles

Sub MàJ_Rep()

'

' MàJ_Rep Macro

Workbooks.Open Filename:= _

"\\ayous\Articles_SAP\repertoire_des_demandes_d'articles.xlsm"

Cells.Select

Selection.Copy

Windows("Suivi création articles SAP.xlsm").Activate

Sheets("Répertoire").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Windows("repertoire_des_demandes_d'articles.xlsm").Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows("Suivi création articles SAP.xlsm").Activate

Sheets("Suivi création").Select

ActiveWorkbook.Save

End Sub

Merci d'avance pour votre aide.

Bonsoir,

Il suffit d'ouvrir votre fichier partagé en lecture seule puisqu'il est en accès exclusif pour la modification.

Par ailleurs, votre code est inutilement encombré de "select" et d'options inutiles.

Ce code devrait suffire :

Sub MaJ_Rep()
'
' MaJ_Rep Macro
    Workbooks.Open Filename:="\\ayous\Articles_SAP\repertoire_des_demandes_d'articles.xlsm", ReadOnly:=True
    ActiveSheet.UsedRange.Cells.Copy
    ThisWorkbook.Sheets("Répertoire").Range("A1").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close
End Sub