[XL-2010] ouvrir un fichier excel a partir d'un classeur [Résolu]

[JulienLeno]

Bonjour a vous, voilà mon problème je voudrais pouvoir ouvrir un fichier excel nommer AA1 a partir d'un bouton se trouvant dans un classeur qui est déja ouvert.

j'ai fais ce bout de code mais ceci ne fonctionne pas il me met qu'un objet est requis. Je ne comprend pas pourquoi si vous avez une idée.

Code :

1
2
3
4
5
Private Sub CommandButton1_Click()
 
Book1.Open ("C:\Documents and Settings\R395184\My Documents\AA1.xls")
 
End Sub

De plus j'aimerais qu'en appuyant sur mon bouton une fois le fichier AA1 ouvert il vienne me copier la feuille 1 de ce fichier dans la feuille 2 du classeur sur lequel il y'a le bouton. Savez vous comment faire?

Merci d'avance pour vos réponses

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
 
Application.ScreenUpdating = False
Set Wbk = Workbooks.Open("C:\Documents and Settings\R395184\My Documents\AA1.xls")
Wbk.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Feuil2").Range("A1")
Wbk.Close False
Set Wbk = Nothing
End Sub

[JulienLeno]

Je ne parviens pas a comprendre il me dit que le chemin spécifié n'est pas bon alors que j'ai vérifié et c'est bien celui ci. Je ne vois pas le problème.

[mercatog]

Revérifie encore, un espace ou autre

Sinon, pour tester l'existence du chemin et du fichier

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
Dim Chemin As String
 
Application.ScreenUpdating = False
Chemin = "C:\Documents and Settings\R395184\My Documents\AA1.xls"
If Dir(Chemin) <> "" Then
    Set Wbk = Workbooks.Open(Chemin)
    Wbk.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Feuil2").Range("A1")
    Wbk.Close False
    Set Wbk = Nothing
Else
    MsgBox "Fichier ou dossier inexistant"
End If
End Sub

[JulienLeno]

c'est bon çà fonctionne. Il fallais rajouter .xlsx au nom de fichier.

Le code est le suivant:

Code :

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
 
Application.ScreenUpdating = False
Set Wbk = Workbooks.Open("C:\Documents and Settings\R395184\My Documents\AA1.xlsx")
Wbk.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Sheet2").Range("A1")
 
End Sub

Merci beaucoup pour ton aide

[mercatog]

Il faut fermer le classeur Wbk et écraser la variable Wbk

Code :

1
2
    Wbk.Close False
    Set Wbk = Nothing