Exporter feuille Excel sans les liaisons

Bonjour,

Je veux exporter une feuille d'un classeur Excel dans un nouveau mais sans les liaisons de macros.

Aujourd'hui, j'ai le code pour réaliser l'exportation qui fonctionna bien.

Mais lorsque je clique sur les boutons où il y a les macros, il ouvre le fichier source.

Ce que je voudrais faire, c'est que les boutons macros deviennent inactifs pour que le fichier de destination devienne indépendant.

En espérant avoir été le plus clair possible.

Merci par avance pour vos réponses.

Je vous transmet le code que j'utilise aujourd'hui.

Sub Edition_Devis_xls()

Dim CS As Workbook 'd?clare la variable CS (Classeur Source)
Dim CD As Workbook 'd?clare la variable CD (Classeur Destination)

Set CS = ThisWorkbook 'd?finit le classeur source CS
Set CD = Workbooks.Add 'd?finit le classeur destination CD (en ouvrant un classeur vierge)

CS.Worksheets("Devis").Copy After:=CD.Worksheets(Sheets.Count) 'copie l'onglet Feuil1 du classeur source en derni?re position dans le classeur destination

End Sub

Salut Albatros182

Voilà comment je vois les choses

Sub Edition_Devis_xls()
  Dim CS As Workbook 'd?clare la variable CS (Classeur Source)
  Dim CD As Workbook 'd?clare la variable CD (Classeur Destination)
  Dim Shp As Shape

  Set CS = ThisWorkbook 'd?finit le classeur source CS
  Set CD = Workbooks.Add 'd?finit le classeur destination CD (en ouvrant un classeur vierge)

  CS.Worksheets("Devis").Copy After:=CD.Worksheets(Sheets.Count) 'copie l'onglet Feuil1 du classeur source en derni?re position dans le classeur destination
  ' Supprimer tous les boutons de la feuille de destination
  With CD.Worksheets(Sheets.Count)
    For Each Shp In .Shapes
      Shp.Delete
    Next Shp
  End With
End Sub

@+

Super, merci.

Au passage, aurais- tu un code pour supprimer une ou plusieurs feuille d'un classeur stp.

Je profite d'avoir un cador sous la main.

Re,

Cador.. Cador, c'est toi qui le dit je me débrouille

Pour les feuilles

Sub SupFeuille()
  Dim Sht As Worksheet
  For Each Sht In Activebook.Sheets
    ' On utilise le IF que l'on veut, mais un seul
    '
    ' Pour garder juste une feuille spécifique
    If Sht.Name <> "NomFeuilleAGarder" Then
      Sht.Delete
    End If
    ' Pour garder un ensemble de feuille
    If InStr(1, "Feuil1,Feuil2,Feuil3", Sht.Name) = 0 Then
      Sht.Delete
    End If
  Next Sht
End Sub

@+