Creation classeur partagé par vba

bonsoir,

A partir d'un classeur "A.xls", je créer un classeur qui est la copie du classeur "B.xls" que je nomme classeur "C.xls"

Code:

---

1 2 3 4 5

Ch1 = ThisWorkbook.Path & "\DossierB\" Ch2 = "B.xls" Ch3 = ThisWorkbook.Path & "\DossierC\" Ch4 = "C.xls" FileCopy Ch1 & Ch2, Ch3 & Ch4

---

mais en plus je voudrais que ce classeur "C.xls" soit partagé.
Y a t il une solution pour le faire avec le code vba ?

Bonsoir,

Il s'agit d'AccessMode paramètre de SaveAs :

Citation:

---

AccessMode Argument XlSaveAsAccessMode facultatif.

XlSaveAsAccessMode peut être l'une de ces constantes XlSaveAsAccessMode.
xlExclusive (mode exclusif)
xlNoChange par défaut (ne modifiez pas le mode d'accès)
xlShared (share list)
Si vous ne spécifiez pas cet argument, le mode d'accès n'est pas modifié. Cet argument est ignoré si vous enregistrez une liste partagée sans changer le nom du fichier. Pour changer le mode d'accès, utilisez la méthode ExclusiveAccess.

---

PPz

Parfait

merci beaucoup