C:\ <> G:\ ?

[ya_v_ka]

C:\ <> G:\ ?

Bonjour le forum

petit soucis, j'ai le code suivant:

Private Sub Worksheet_Activate()
Dim NouvLien As String
Dim AncLien As String
NouvLien = ActiveWorkbook.FullName
AncLien = "C:\1.xls"
On Error Resume Next
ActiveSheet.Unprotect password:="mil"
ActiveWorkbook.ChangeLink Name:=AncLien, NewName:=NouvLien, Type:=xlLinkTypeExcelLinks
ActiveSheet.Protect password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

qui fonctionne à merveille si je travaille sur le lecteur C, mais j'ai installé les fichiers à inserer, contenant cette macro sur un lecteur G et la macro est incapable de trouver le fichier en C par-ce qu'elle cherche en G ...

une piste ?

Ya'v

 

[Eric C]

Re: C:\ <> G:\ ?

Bonjour le forum
Bonjour Ya_v_ka

Va jeter un coup d'oeil sur l'instruction ChDir dans l'aide de VBA.
@ + Eric C

 

[ya_v_ka]

Re: C:\ <> G:\ ?

Salut Eric

Merci pour ta réponse, j'ai été voir, et ... ? je ne comprends pas le problème. Comme le chemin est indiqué en entier ?

Ya'v

 

[chris]

Re: C:\ <> G:\ ?

Bonjour
Voir aussi ChDrive
si le disque par défaut est différent.
Chris

 

[ya_v_ka]

Re: C:\ <> G:\ ?

Salut tout le monde, Eric, Chris, le Forum

merci, le ChDir m'avait renvoyé sur le ChDrive... mais ne m'avais pas aidé à comprendre...

Ya'v