Excel : Macro VBA qui plante en mode Partagé : Erreur 1004

[dadaetkarin]

Bonjour,
je rencontre un problème à l'exécution d'un macro de rien du tout, sur un classeur partagé.

Voici les 3 lignes de codes...
Sub VIDER()
Worksheets("Feuil1").Activate
ActiveCell.EntireColumn.Select
Selection.FormatConditions.Del ete
End Sub

et systématiquement le message d'erreur suivant :
Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet

Je sais que l'on ne peut pas modifier ses macros en mode partagé, mais de là à ne pas pouvoir les exécuter
Et je confirme que la macro tourne en mode non partagé..

Merci de vos bons conseils.

DAVID
-----

[cherbe]

Bonjour

Bonjour,
je rencontre un problème à l'exécution d'un macro de rien du tout, sur un classeur partagé.

Quelle est la ligne qui provoque le plantage ?
Si tu ne sais pas, va dans le code et appuie plusieurs fois sur la touche F8 pour une exécution pas à pas.

Je suis à peu sûr que c'est la dernière car souvent, le partage ne fonctionne pas bien. Cette ligne essaie de modifier le fichier ce qui provoque l'erreur.
te serait-il possible de prendre le contrôle exclusif du fichier le temps de l'exécution de la macro ?
Si oui, c'est possible par VBA mais cela interdirait tout modification aux autres utilisateurs pendant ce temps.

[dadaetkarin]

Bonjour,
En mode partagé, je ne peux pas accéder au débogage de la macro...et comme elle fonctionne en mode exclusif... Bref...

En revanche, enlever le mode partagé durant ce centième de seconde que dure la macro ne doit pas gêner beaucoup. auriez vous en tête les lignes de code correspondantes ??
Merci
DAVID

[cherbe]

non testé :

sub prendre_controle()
  If ActiveWorkbook.MultiUserEditin​g Then
     Application.DisplayAlerts = False
     ActiveWorkbook.ExclusiveAccess​
     Application.DisplayAlerts = True
  End If 
end sub

sub rendre_controle()
  If Not ActiveWorkbook.MultiUserEditin​g Then
     Application.DisplayAlerts = False
     ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullN​ame, accessMode:=xlShared
     Application.DisplayAlerts = True
  End If 
end sub

[A voir en vidéo sur Futura]

[dadaetkarin]

Bon, en effet, c'est bien la dernière ligne qui plante..
J'ai fait un test en la supprimant en mode exclusif, puis retour en mode partagé sans cette dernière ligne... ça marche..

La raison est peut-être qu'en mode partagé, on n'accède normalement pas aux mise en forme conditionnelles, hors dans mon cas, je demande à ma macro de supprimer (pour la colonne sélectionnée) les règles de MFC...;-((

[dadaetkarin]

Re..
Bon je viens d'intégrer ton code dans ma macro..
Testé... et Approuvé..

Super Cool..
Merci

Problème RÉSOLU.

Bonne fin de journée.