Erreur d'éxécution '1004'

Résolu/Fermé

Mactoys Messages postés 4 Date d'inscription lundi 24 février 2014 Statut Membre Dernière intervention 12 septembre 2014 - Modifié par pijaku le 9/09/2014 à 14:41
Mactoys Messages postés 4 Date d'inscription lundi 24 février 2014 Statut Membre Dernière intervention 12 septembre 2014 - 12 sept. 2014 à 10:37

Bonjour à tous, j'ai créé une macro vba qui permet d'ouvrir un fichier excel et de le copier dans un autre fichier excel (dans celui où j'ai ma macro).
J'espere avoir été clair.

Voici mon code :

Private Sub ExtractionUET2_Click()

Dim Uet2 As Workbook, MacroPVIDifUET2 As Workbook

'ouvrir le classeur source (en lecture seule)
Set Uet2 = Application.Workbooks.Open("I:\cer_dlpa\01381\Uet_Demarrage_Projets\COLLABORATEURS\Thibault Massé\UET2.xlsx", , True)
'définir le classeur destination
Set MacroPVIDifUET2 = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
Uet2.Sheets("DAS").Cells.Copy MacroPVIDifUET2.Sheets("Uet2").Range("A1")

'fermer le classeur source
Uet2.Close False

Range("A1:G1").HorizontalAlignment = xlCenter
 Call Import_emule_export_Cliquer
End Sub

Mais lorsque je lance ma macro, un message d'erreur apparait :

Erreur d'éxécution 1004 :
Impossible de coller les informations car les zones copier et de collage sont de formes et de tailles differentes.

PLZ Help ;)

A voir également:

Erreur d'éxécution '1004'
Erreur 0x80070643 - Guide
Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo
Erreur d'execution 13 ✓ - Forum Programmation

4 réponses

Réponse 1 / 4

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
8 sept. 2014 à 17:15

tu peux faire ça :

 Uet2.Sheets("DAS").Cells.Copy
MacroPVIDifUET2.Sheets("Uet2").activate
MacroPVIDifUET2.Sheets("Uet2").Range("A1").select 
Selection.paste

Réponse 2 / 4

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
8 sept. 2014 à 17:19

ou alors (mais ce sera autrement plus long)

dim cel as range 

for each cel in Uet2.Sheets("DAS").Cells.specialCells(xlTextValue)
    MacroPVIDifUET2.Sheets("Uet2").cells(cel.row,cel.column).value = cel.value
next cel

Réponse 3 / 4

Mactoys Messages postés 4 Date d'inscription lundi 24 février 2014 Statut Membre Dernière intervention 12 septembre 2014
Modifié par pijaku le 9/09/2014 à 14:40

Hello,
Ca ne marche tjrs pas..voici ma macro complete

Private Sub ExtractionUET2_Click()

Dim Uet2 As Workbook, MacroPVIDifUET2 As Workbook

'ouvrir le classeur source (en lecture seule)
Set Uet2 = Application.Workbooks.Open("I:\cer_dlpa\01381\Uet_Demarrage_Projets\Fichier Exportd\UET2.xlsx", , True)
'définir le classeur destination
Set MacroPVIDifUET2 = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination



 Uet2.Sheets("DAS").Cells.Copy
MacroPVIDifUET2.Sheets("Uet2").Activate
MacroPVIDifUET2.Sheets("Uet2").Range("A1").Select
Selection.Paste

'fermer le classeur source
Uet2.Close False

Range("A1:G1").HorizontalAlignment = xlCenter
 

Call Import_emule_export_Cliquer



End Sub

Réponse 4 / 4

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
9 sept. 2014 à 14:14

Qu'est ce que ça veut dire, ça ne marche pas ? (quel ligne? quel erreur ? )

Tu as essayé la deuxième méthode ?

Mactoys Messages postés 4 Date d'inscription lundi 24 février 2014 Statut Membre Dernière intervention 12 septembre 2014
12 sept. 2014 à 10:37

C'est bon ca marche ;)
Merci de ton aide !

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters