Bonjour à tous, grace à vous tous j'ai fait des progrés avec les macros et VBA. Encore merci.

J'ai un petit souci à résoudre.
1 )  en partant su classeur1 feuil1 avec une macro je vais dans le classeur2 feuil1 sur mon disque G.

2 ) je fait une copy de toutes les cellules de A1:G2000

3 ) je retourne dans le classeur1 feuil1 pour faire un coller

     Mais au moment ou je quitte le classeur2 Excel m'envoi le message  suivant :

Enregistrer le presse-papier oui non ou annuler.

C'est gênant  car je ne veut pas que l'utilisateur final ai ce message.

Comment dévérouiller le message ou qu'il n'apparaisse pas.

Merci beaucoup pour votre réponse.
une copie de ma macro
Sub testcopy1()
'
' testcopy1 Macro
' Macro enregistrée le 05/09/2011 par Silca
'

'
    Sheets("Feuil3").Select
    Range("A1").Select
    Workbooks.Open Filename:= _
        "G:\Gestion équipe\Commun EEC\MEP EEC\PREVISIONS_EEC_MEP_MVS_et_OPEN.xls"
    Range("A2:Q3000").Select
    Selection.Copy
    Windows("projetDE.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Windows("PREVISIONS_EEC_MEP_MVS_et_OPEN.xls").Activate
    ActiveWindow.Close
   
    '
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    '
    Columns("G:G").Select
    Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
         Range("A1").Select
    '
   
        Sheets("Feuil1").Select
    Range("D3:K6").Select
    Sheets("feuil1").Protect
    '
    End Sub

  

Re bonjour je me suis gourer, je ferme pour le calendar et je creer un nouveau sujet.
mes excuses.