Discussion :

[doudou8mc]

Bonjour,

voilà je galère pour réaliser une macro dans un classeur A , qui lors de l'exécution ouvre le classeur B (C:\Mesdocuments) récupère les valeurs dans la plage "A1:B5" les restitue dans le classeurA ,"feuil1" ds la même plage,puis ferme le classeur .

Quelqu'un peut-il me proposer un exemple de code ?

Merci!

[Roms un]

Salut,
Voila j'espére que ca t'aidera:

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
Sub ouverture()
Sub canard()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("E:\Classeur2.xls")
Set ws = wb.Worksheets(1)
Range("A1:B5").Select
Selection.Copy
Windows("Classeur1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Workbooks("Classeur2.xls").Activate
ActiveWorkbook.Close dontsave = True
 
End Sub

[rvtoulon]

Bjr, doudou8mc, Roms un

voici un code un peu epuré sans les activate et select. Si il ya quelque chose que j'ai appris ici c'est de ne pas les utiliser ou le moins possible.
du coup le code prend moins de place tu peux faire ceci:

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
Sub ouverture()
 
Dim wb As Workbook
Dim ws As Worksheet
 
Set wb = Workbooks.Open("C:\Documents and Settings\NomUtilisateur\Mes documents\ClasseurB.xls")
Set ws = wb.Worksheets("Feuil1")
 
'ici workbooks (1) = classeur A
Workbooks(1).Sheets("Feuil1").Range("A1:B5").Value = ws.Range("A1:B5").Value
 
'ici tu fermes le classeur B sans enregistrer
wb.Close dontsave = True
 
End Sub

A+

[Roms un]

Bien vu! merci de ta correction

[rvtoulon]

Re,
C'est normal le forum est fait pour çà
A+