Lien

Bonsoir le forum

ce code fonctionne très bien a la maison '(ordi portable seule)

en changeant le repertoire pour le boulot mon fichier n'est pas reconnu (Réseau)

portant le bon chemin \\batfek.com\home$\gusi01\Mes Documents\Sylvain\Classeur Diamant

Public Sub Ouvrir_Fichier()

'Ouvrir un fichier Excel depuis un autre fichier Excel

repertoire = "C:\Users\SYLVAIN\Documents\Sylvain\Patek Philippe\Classeur Diamant"

'repertoire = "C:\batfek.com\home$\gusi01\Mes Documents\Sylvain\Classeur Diamant

strFileName = repertoire & "\" & Worksheets("Feuil1").Range("C6")

Workbooks.Open strFileName

Set wbSource = ActiveWorkbook

End Sub

il y a t'il un code a appliquer pour le réseau

je joins 1 fichier message d'erreur

cordialement

aiglon74

Bonsoir,

la réponse ne serai-t-elle pas dans la question ?

Bonsoir le forum

ce code fonctionne très bien a la maison '(ordi portable seule)

en changeant le repertoire pour le boulot mon fichier n'est pas reconnu (Réseau)

portant le bon chemin \\batfek.com\home$\gusi01\Mes Documents\Sylvain\Classeur Diamant

Public Sub Ouvrir_Fichier()

'Ouvrir un fichier Excel depuis un autre fichier Excel

repertoire = "C:\Users\SYLVAIN\Documents\Sylvain\Patek Philippe\Classeur Diamant"

'repertoire = "C:\batfek.com\home$\gusi01\Mes Documents\Sylvain\Classeur Diamant

strFileName = repertoire & "\" & Worksheets("Feuil1").Range("C6")

Workbooks.Open strFileName

Set wbSource = ActiveWorkbook

End Sub

Si c'est réseau ce n'est pas C:\ mais comme indiquer au début de votre question \\batfek.com, non ?

@ bientôt

LouReeD

Bonsoir LouReeD

j'essaye demain

merci pour ta réponse

Cordialement

aiglon74