Bonjour a tout le forum
j'ai besoin d'aide pour finaliser un bouton
Donc j'ai ce bouton qui me permet d'ouvrir un fichier excel a partir de mon fichier principal, de copier des données de ce fichier dans le presse papier puis de les coller dans mon fichier principal.
ce que je n'arrive pas a faire, c'est de refermer le fichier ouvert de façon a n'avoir que mon fichier principal d'ouvert...
Par la meme occasion, si vous voyez des erreurs ou des simplifications de mon code, etant novice, je suis preneur
Merci de votre aide
@+
j'ai besoin d'aide pour finaliser un bouton
Donc j'ai ce bouton qui me permet d'ouvrir un fichier excel a partir de mon fichier principal, de copier des données de ce fichier dans le presse papier puis de les coller dans mon fichier principal.
ce que je n'arrive pas a faire, c'est de refermer le fichier ouvert de façon a n'avoir que mon fichier principal d'ouvert...
Code:
Private Sub Bouton2_Click()
With Me.Listbox1
For i = 0 To Me.Listbox1.ListCount - 1
If .Selected(i) Then
On Error Resume Next
Workbooks.Open (path & .List(i))
DerligneI = Range("I65536").End(xlUp).Row
Range("H2:I" & DerligneI).Select
Selection.Copy
Windows("monfichier.xls").Activate
Sheets("Test").Select
Range("H2").Select
ActiveSheet.Paste
If Err <> 0 Then
MsgBox "ça ne sert a rien d'ouvrir deux fois le même fichier !"
On Error GoTo 0
End If
End If
Next i
End With
End Sub
Par la meme occasion, si vous voyez des erreurs ou des simplifications de mon code, etant novice, je suis preneur
Merci de votre aide
@+