bonjour,

je fais du VBA à l'occasion. je veux copier les données d'un fichier SOURCE dans le fichier où se trouve le code VBA.

dans le code ci-dessous, j'obtiens une erreur d'exécution 1004 - désolé nous ne trouvons pas le fichier...
l'erreur s'affiche à la fin du code, les 2 fichiers sont pourtant existants et dans le même répertoire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
Dim Temp As String
Temp = Dir(ActiveWorkbook.Path & "\source.xls")
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
 
Workbooks("source.xls").Worksheets("feuil1").Range("a1:a4").Copy _
    Workbooks("nom du fichier où copier les donnees.xlsm").Worksheets("nom onglet").Range("o1:o4")
Workbooks("source.XLS").Close SaveChanges:=False
 
End Sub

merci.
Geneviève