Ouverture d'un fichier depuis une macro

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:

---

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

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

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

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

Code:

---

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

---

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