Discussion :

[had4789]

Bonjour à tous,

Voici la question du jours. Le code suivant me permet de copier des donnés d'un CSV vers un excel. Mon petit soucis est que ce code fonctionne à merveille quand le fichier source(wbk2) est sur mon bureau alors qu'il me renvois une erreur 1004 lorsque je place mon fichier en réseau sur le serveur H. Est-ce que quelqu'un a une idée du pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub import()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Sheets("Extraction").Columns("A:Y").ClearContents
 
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "H:\Commun\Dossier Stagiaire\HADRIEN\Dossiers test Section\2089\Plan"
 
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre, local:=True) ' jouvre le classeur (titre)
 
wbk2.Sheets(1).Range("A:Y").Copy Destination:=wbk1.Sheets("Extraction").Range("A1")
wbk2.Close
 
End Sub

Merci par avance

[illight]

Ton fichier s'appelle "plan" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

titre = "H:\Commun\Dossier Stagiaire\HADRIEN\Dossiers test Section\2089\Plan"

Il n'y a pas d'extension sur le fichier que tu essayes d'ouvrir ?

[had4789]

Excellente suggestion. En indiquant l’extension ça marche parfaitement.

Merci beaucoup