Problème CanCheckOut, CheckOut

Bonjour!

J'ai actuellement un souci d'ouverture de fichier...

En effet, mon fichier est sur un réseau et susceptible d'être utilisé en même temps par plusieurs utilisateurs...

Pour remédier à celà, j'ai rajouté juste avant ma ligne de code ficher.Open les lignes :

If Cancheckout(Fichier) = true then
MsgBox "peut être plus tard"
Else 
CheckOut(Fichier)
Fichier.Open
End if

Quelqu'un saurait il pourquoi il bugg a la ligne CheckOut(Fichier)?

Merci beaucoup =)

Bonjour Sym,

Un code adapté de l'aide VBA :

    If Workbooks.CanCheckOut(Filename:=Fichier) = True Then
        Workbooks.CheckOut Fichier
    Else
        MsgBox "peut être plus tard"
    End If

Enfait l'adresse complète est

AdresseASuivre & Fichier

mais j'imagine que ça n'a peu d'importance si on remplace bien Fichier par l'adresse complète?!

VB ne reconnait pas CheckOut, il me dit la procédure checkOut a échoué...

Sinon, j'avais pensé partager le fichier ; les employés risquent plus que très souvent de manipuler le fichier simultanément... J'ai trouvé quelque chose sur un Forum et vous tiens au jus

PS : il y a t-il des précautions à prendre vis à vis des macros? Voyez, j'ai tout d'abord essayer le partage du classeur avc l'enregistreur de macro activé pour connaitre un peu le vocabulaire et il a pas du tout aimé! D'abord il m'a dit grosso modo qu'il avait besoin d'enregistrer pour continuer et qu'il était impossible d'enregistrer le projet VB (c'est quoi cette bête là?) cliquez oui pour continuer ou non pour annuler blablabla...

J'ai cliqué non, et après, impossible d'ouvrir ma macro "test" (la fameuse macro d'enregistrement)

Ducoup mon fichier doit avoir quelle extension?

Sinon la formule trouvée sur forum est

Workbooks(Fichier).MultiUserEditing = True

je ne l'ai pas encore testée...

Voili voilou! En vous remerciant bien!