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