Bonjour,
je voudrais pouvoir copier une plage de cellule d'un fichier à un autre, et voila le code que j'ai réussit à pondre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Sub Bouton3_QuandClic() Dim debut_ligne As Integer, fin_ligne As Integer Dim lettre_debut_colonne As String, lettre_fin_colonne As String Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture du fichier source Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open("I:\Outil de Reporting Interne\Developpements\Test Nouveau Format\Parametrage\Param_Ressources.xls") Set wsExcel = wbExcel.Worksheets("ressources") 'numéro des lignes de début et de fin de la synchronisation debut_ligne = 1 fin_ligne = 200 'lettre des colonnes de début et de fin de la synchronisation lettre_debut_colonne = "A" lettre_fin_colonne = "E" 'marche pas erreur 1004 'wsExcel.Range(lettre_debut_colonne & CStr(debut_ligne) & ":" & lettre_fin_colonne & CStr(fin_ligne)).Copy _ 'Destination:=Sheets("ressources").Range(lettre_debut_colonne & CStr(debut_ligne) & ":" & lettre_fin_colonne & CStr(fin_ligne)) 'marche pas erreur 1004 'wsExcel.Range("A1:A3").Copy _ 'Destination:=Sheets("ressources").Range("A1:A3") 'marche pas erreur 1004 'wsExcel.Range("A1").Copy _ 'Destination:=Sheets("ressources").Range("A1") 'fonctionne, donc j'ai bien accès au fichier source MsgBox wsExcel.Range("A1") End Sub
l'erreur 1004 apparaît à chaque fois et je ne vois pas pourquoi, si une âme charitable pouvait me sortir de cette misère
Partager