Discussion :

[Genevieve_D]

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

[Miraie]

Bonjour,

Dans ta ligne 4. Je vois que tu mets la valeur "\source.xls" et en ligne 5 "\". Donc, ton chemin d'accès à ton fichier est "\\source.xls". As-tu essayé de me juste "Source.xls" ou retirer &"\" à la ligne 5? Mais, peut-être que je me trompe.

Bonne chance,

[Genevieve_D]

Bonjour Miraie,

ça ne fonctionne pas.

pour l'instant j'ai crée le fichier ''source.xls'' (vierge).
le fichier "nom du fichier où copier les donnees.xlsm'' s'ouvre sans message d'erreur.

toutefois, si le fichier ''nom du fichier où copier les donnees.xlsm'' est copié dans un autre répertoire le message revient.
probablement que la fonction Application Display (false) éviterait cela mais je ne sais pas où l'introduire dans mon code.

merci.

[Alex020181]

Bonjour,

toutefois, si le fichier ''nom du fichier où copier les donnees.xlsm'' est copié dans un autre répertoire le message revient.
merci.

Normal. Vous lui donnez le nom du fichier Excel à ouvrir uniquement. Donc par défaut il va le chercher dans son répertoire actif.
Il faut que vous lui donniez le chemin où se trouve ce fichier. Le fichier sera alors trouvé et vous pourrez continuer.

[Genevieve_D]

Bonjour,

les 2 fichiers sont dans le répertoire actif.

[TonyNiort79]

Bonjour à tous,
sans faire de tests, je vois 2 fois la déclaration
ActiveWorkbook.Path (lignes 4 et 5)


pour moi, il faudrait la déclarer qu'une seule fois, donc à supprimer à la ligne 5

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 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