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
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
A voir également:
- Erreur d'éxécution '1004'
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur d'execution 1004 - Forum Programmation
- Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
- MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel
- Erreur d'execution 13 ✓ - Forum Programmation
4 réponses
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
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
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
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
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
Modifié par pijaku le 9/09/2014 à 14:40
Hello,
Ca ne marche tjrs pas..voici ma macro complete
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
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
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 ?
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
12 sept. 2014 à 10:37
C'est bon ca marche ;)
Merci de ton aide !
Merci de ton aide !