Discussion :

[bdcds]

Bonjour à tous,

Je suis débutant en VB.

J'aimerais créer un bouton dont le code permet de copier une plage de cellules d'une feuille d'un classeur vers une feuille d'un autre classeur.

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
 
 
Set appExcel = CreateObject("Excel.Application")
 
    'Ouverture d'un fichier Excel
    Set wbExcel1 = appExcel.Workbooks.Open("C:\Documents and Settings\Bureau\Outil_Reporting\tickets.xls")
    Set wbExcel2 = appExcel.Workbooks.Open("C:\Documents and Settings\Bureau\Outil_Reporting\collecte.xls")
 
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel1 = wbExcel.Worksheets(1)
    Set wsExcel2 = wbExcel.Worksheets(1)
 
    wsExcel2.Range("a1:l100").Value = wsExcel1.Range("a1:l100").Value
 
    appExcel.wbExcel2.Save
    appExcel.wbExcel2.saved = True
 
    wbExcel1.Close 'Fermeture du classeur Excel
    wbExcel2.Close 'Fermeture du classeur Excel
    appExcel.Quit 'Fermeture de l'application Excel
 
    'Désallocation mémoire
    Set wsExcel1 = Nothing
    Set wbExcel1 = Nothing
    Set wsExcel2 = Nothing
    Set wbExcel2 = Nothing
    Set appExcel = Nothing

Cette façon de copier me renvoie l'erreur "Objet requis"

Merci à ceux qui pourraient m'aider !

[User]

Salut,

essaie ce code modifié:

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
Dim appexcel As Excel.Application
 
Dim wbexcel1 As Excel.Workbook
Dim wbexcel2 As Excel.Workbook
 
Dim wsexcel1 As Excel.Worksheet
Dim wsexcel2 As Excel.Worksheet
 
Set appexcel = CreateObject("Excel.Application")
 
'Ouverture d'un fichier Excel
Set wbexcel1 = appexcel.Workbooks.Open("C:\Documents and Settings\...\tickets.xls")
Set wbexcel2 = appexcel.Workbooks.Open("C:\Documents and Settings\...\collecte.xls")
 
'wsExcel correspond à la première feuille du fichier
Set wsexcel1 = wbexcel1.Worksheets(1)
Set wsexcel2 = wbexcel2.Worksheets(1)
 
wsExcel2.Range("a1:l100").Value = wsExcel1.Range("a1:l100").Value
 
wbexcel2.Save
wbexcel2.Saved = True
 
wbexcel1.Close 'Fermeture du classeur Excel
wbexcel2.Close 'Fermeture du classeur Excel
appexcel.Quit 'Fermeture de l'application Excel
 
'Désallocation mémoire
Set wsexcel1 = Nothing
Set wbexcel1 = Nothing
Set wsexcel2 = Nothing
Set wbexcel2 = Nothing
Set appexcel = Nothing

A+

[bdcds]

Merci, j'avais enlevé la déclaration des DIM.

Ca marche bien en ajoutant également la référence vers la bibliothèque MS Excel (Outils > Références).

Merci beaucoup de votre aide.