Boîte de dialogue presse papier

  • Initiateur de la discussion Initiateur de la discussion dam3117
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dam3117

XLDnaute Occasionnel
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
 
Re : Boîte de dialogue presse papier

Bonjour Dam

regarde le code ci dessous, si j'ai bien compris :

Code:
Sub transfert()
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\FICHIER .xls"
Windows("FICHIER xls").Activate
Range("A6").CurrentRegion.Copy
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
Application.DisplayAlerts = False
Workbooks("FICHIER .xls").Close False
Application.DisplayAlerts = True
End Sub

bonne fin d'après midi
@+
 
Re : Boîte de dialogue presse papier

Merci à vous,

Je n'ai plus la boîte de dialogue mais ça bug au niveau de ActiveSheet.Paste.

Dans mon probleme la boîte de dialogue apparait à la fermeture du fichier "FICHIER .XLS" et si je repond non ça bug au niveau de ActiveSheet.Paste.

dam
 
Re : Boîte de dialogue presse papier

Re, bonjour jp

dans le code donné, j'avais placé la fermeture du fichier en dernier, par contre cette legne de code, juste avant le paste m'interpelle :

Code:
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

a priori, je déprotégerais avant et re-protégerais ensuite.... je remplacerais par :

Code:
ActiveSheet.UnProtect

@+
 
Re : Boîte de dialogue presse papier

Bonjour dam3117, jp14, Pierrot,

Peut-être ta version d'excel, mais comme elle n'est pas précisée dans ton pseudo, ni dans ton post ????

Entre 2000 et 2003, il y a quelques différences, voir le code avec Alt F11 et réduire les codes, un à un. Je suis sous 2000 et c'est ce que je fais, ensuite cela marche. Maintenant et avec l'habitude, je sais où sanctionner le code.

Tu nous dis.
 
Re : Boîte de dialogue presse papier

Re

essaye comme ci dessous, fonctionne chez moi, Excel2003, feuilles non protégées :

Code:
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\FICHIER.xls"
Range("A6").CurrentRegion.Copy
Workbooks("peche.xls").Activate
Range("A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("FICHIER.xls").Close False

@+
 
Re : Boîte de dialogue presse papier

Re

autre solution, plus courte, sans "select" :

Code:
Workbooks.Open Filename:= ThisWorkbook.Path & "\FICHIER.xls"
Range("A6").CurrentRegion.Copy Workbooks("peche.xls").Sheets("Feuil1").Range("A10")
Workbooks("FICHIER.xls").Close

bonne soirée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
871
Retour