Discussion :

[JulienTough]

Bonjour

dans un fichier excel contenant des données, j'ai créé des macro me permettant de sélectionner certaines lignes selon des critères et de les mettre dans des feuilles à part
ensuite une autre macro doit copier les données de ces feuilles dans des tableurs individuels pour permettre un ouverture par mapinfo

cette macro de copie dont le code suit, marche très bien sur mon poste mais pas sur celui d'un collègue
pourtant il a la même arborescence que moi : le fichier de base est bien dans le même dossier que les fichiers dans lesquels sont copiés les données

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 Copies()

Dim Chemin As String
Chemin = ThisWorkbook.Path

'Copie des données issues des étapes 3 et 4 dans des fichiers xls distincts pour l'import dans MI

Workbooks.Open Chemin & "/NomFichier2.xls"
Windows("NomFichier1.xls").Activate
Sheets("Feuille1-3").Select
Range("A1:V41").Select
Selection.Copy
Windows("NomFichier2.xls").Activate
Sheets("Feuille2-1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=True

l'erreur affichée sur la ligne en gras est :
Erreur d'exécution 1004 : 'Nomfichier2.xls' introuvable...

on a tout bien vérifié les chemins et les noms (qui ne devaient pas changer puisqu'on a juste collé le contenu de mon dossier chez lui)

avez vous une idée ?

merci d'avance

Julien

[BF999]

Je te suggèrerais de :

1. vérifier le caractère PathSeparator sur l'ordi de ton collègue. Est-ce bien un "/" car il est codé en dur dans ton code et habituellement c'est un "\" qui est utilisé. (pour t'assurer que c'est toujours bon tu pourrais utiliser PathSeparator & "NomFichier2.xls" plutôt que "/NomFichier2.xls")

2. mettre un Stop dans ton code pour vérifier la valeur de ta variable Chemin car le Chemin n'apparaît pas dans ton message d'erreur (pourquoi? peut-être à cause de ton "/" qui n'est pas valide?)

3. ma dernière suggestion pourrait être d'essayer avec des parenthèses : Workbooks.Open (Chemin & PathSeparator & "NomFichier2.xls"). Les parenthèses sont en effet utilisées dans une des rubriques d'aide de Excel...

Bonne chance

[JulienTough]

Bonjour et merci

j'avais testé chez lui un \ à la place aussi codé en dur mais ça ne marchait pas non plus et en faisant un pas à pas la variable chemin prenait visiblement la bonne valeur

je vais essayer comme tu dis

[SfJ5Rpw8]

tu peu rajouter un test d'existence du fichier ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
(...)
Dim stFichier as string 
stFichier = Chemin & "\NomFichier2.xls"
 
if dir (stFichier) = "" then
   MsgBox "Fichier inexistant : " & vbCrlf & stFichier
   exit sub
endif
(...)

[JulienTough]

Merci beaucoup, cela a fini par fonctionner et c'est plus robuste comme cela.