suppression mappage

[laurent999]

Bonsoir,

Pour supprimer un mappage d'un classeur excel, j'ai trouvé ceci en utilisant son numéro d'ordre:

Sub SuppressionMappage()
ThisWorkbook.XmlMaps(1).Delete
End Sub

Je voudrais supprimer tous les mappages, si quelqu'un a une piste.

Merci d'avance,

Laurent.

 

[Compte Supprimé 979]

Re : suppression mappage

Salut Laurent999

Tu peux essayer

Sub SuppressionMappage()
  Dim Map As Object
  For Each Map In ThisWorkbook.XmlMaps
    Map.Delete
  Next
End Sub

A+

 

[laurent999]

Re : suppression mappage

Merci

cela fonctionne parfaitement,

Laurent.