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