Discussion :

[AgnesK]

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 :

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

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 ?

[PPz78]

Bonsoir,

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

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

[AgnesK]

Parfait

merci beaucoup