Bonjour,
Je cherche la solution pour repondre automatiquement OUI à la Boîte de dialogue presse papier. Car si je repond Non ma macro bug et me renvoi l'erreur d'éxécution "1004" La méthode paste de la classe Worksheet a échoué.
voici ma macro
Sub transfert()
'
' Macro2 Macro
' Macro enregistrée le 10/04/2008 par peche1
'
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\FICHIER .xls"
Windows("FICHIER xls").Activate
Range("A6").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Close
Windows("peche.xls").Activate
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range("A10").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A10").Select
End Sub
Merci d'avance
dam
Je cherche la solution pour repondre automatiquement OUI à la Boîte de dialogue presse papier. Car si je repond Non ma macro bug et me renvoi l'erreur d'éxécution "1004" La méthode paste de la classe Worksheet a échoué.
voici ma macro
Sub transfert()
'
' Macro2 Macro
' Macro enregistrée le 10/04/2008 par peche1
'
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\FICHIER .xls"
Windows("FICHIER xls").Activate
Range("A6").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Close
Windows("peche.xls").Activate
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range("A10").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A10").Select
End Sub
Merci d'avance
dam