VBA: Activation du classeur

bonjour Emanuel,

|If Not ActiveWorkbook.*MultiUserEditing* Then
ActiveWorkbook.SaveAs fileName:¬tiveWorkbook.FullName, accessMode:=xlShared
||End If|

|isabelle


|


EmanuelL a écrit :

Bonjour à Tous,

Comment activer le partage du classeur Excel par macro VBA?

Merci d'avance de votre aide.

;-)

bonjour Emanuel,

If Not ActiveWorkbook.*MultiUserEditing* Then
ActiveWorkbook.SaveAs fileName:¬tiveWorkbook.FullName,
accessMode:=xlShared
End If

|isabelle


EmanuelL a écrit :

Bonjour à Tous,

Comment activer le partage du classeur Excel par macro VBA?

Merci d'avance de votre aide.

;-)

Merci beaucoup Isabelle;

Seulement il me demande de confirmer le remplacement du fichier,
comment eviter cette fenêtre, ou commen faire ça en mode silence?


isabelle a écrit :

bonjour Emanuel,

If Not ActiveWorkbook.*MultiUserEditing* Then
ActiveWorkbook.SaveAs fileName:¬tiveWorkbook.FullName, accessMode:=xlShared
End If

|isabelle


EmanuelL a écrit :

Bonjour à Tous,

Comment activer le partage du classeur Excel par macro VBA?

Merci d'avance de votre aide.

;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org

bonjour Emanuel,

Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:¬tiveWorkbook.FullName,
accessMode:=xlShared
End If
Application.DisplayAlerts = True

isabelle

EmanuelL a écrit :

Merci beaucoup Isabelle;

Seulement il me demande de confirmer le remplacement du fichier,
comment eviter cette fenêtre, ou commen faire ça en mode silence?


isabelle a écrit :

bonjour Emanuel,

If Not ActiveWorkbook.*MultiUserEditing* Then
ActiveWorkbook.SaveAs fileName:¬tiveWorkbook.FullName,
accessMode:=xlShared
End If

|isabelle


EmanuelL a écrit :

Bonjour à Tous,

Comment activer le partage du classeur Excel par macro VBA?

Merci d'avance de votre aide.

;-)

Merci encore Isabelle, je teste.

Cordialement. ;-)

Dans son message précédent, isabelle a écrit :

bonjour Emanuel,

Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:¬tiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True

isabelle

EmanuelL a écrit :

Merci beaucoup Isabelle;

Seulement il me demande de confirmer le remplacement du fichier, comment
eviter cette fenêtre, ou commen faire ça en mode silence?


isabelle a écrit :

bonjour Emanuel,

If Not ActiveWorkbook.*MultiUserEditing* Then
ActiveWorkbook.SaveAs fileName:¬tiveWorkbook.FullName,
accessMode:=xlShared
End If

|isabelle


EmanuelL a écrit :

Bonjour à Tous,

Comment activer le partage du classeur Excel par macro VBA?

Merci d'avance de votre aide.

;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org