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

[Genevieve_D]

j'obtiens un autre messsage
erreur 1004 - Excel ne peut accéder à "nom du dossier actif" : Le document est peut-être en lecture seule ou chiffré.

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("ref_Data.xls")
Workbooks.Open ActiveWorkbook.Path & Temp
 
Workbooks("ref_data.xls").Worksheets("feuil1").Range("a1:a4").Copy _
    Workbooks("mark-up version 006 testing.xlsm").Worksheets("Markup").Range("o1:o4")
Workbooks("ref_data.XLS").Close SaveChanges:=False
 
End Sub

[TonyNiort79]

Moi je supprimerai temp (lignes 3 et 4) et indiquerai ce chemin

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 Filename:=ActiveWorkbook.Path & "\source.xls"
 
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

[Alex020181]

Je ne comprends pas tout.

Au début tu dis que tout va bien si les 2 fichiers sont dans le même répertoire puis tu dis

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

Donc quand tu le change de répertoire les fichiers ne sont plus dans le même répertoire

Puis tu redis

les 2 fichiers sont dans le répertoire actif

[Genevieve_D]

Merci TonyNiort79!

ça fonctionne maintenant