Rapport de message :*
 

répertoire non reconnu !

Titre du sujet : répertoire non reconnu !
par coline54 le 10/11/2009 12:18:08

Bonjour à toutes et à tous,


Le problème qui me préoccupe depuis quelque temps déjà intéresse un fichier comportant des liaisons.

exemple :

Soit une cellule comportant un lien. On la sélectionne et au moyen d'une macro-commande on ouvre le fichier comportant le lien et la cellule dépendante est sélectionnée. Si cette cellule est elle aussi dépendante d'un autre fichier, la macro-commande relancée ouvre le fichier et la cellule liée est sélectionnée.

Pour cette manipulation je dispose d'une marco-commande utilisant les fonctions excel, elle fonctionne. En VBA auquel je suis peu féru c'est la cata.

L'exemple suivant ne fonctionne pas, pourquoi ? Erreur d'exécution '5': Argument ou appel de procédure incorrecte à la ligne "VPath = Mid(AdrCel, 3, Pos - 2)

 
Sub AtteindreCellule()
'
'
'
' Touche de raccourci du clavier: Ctrl+Maj+Q
'
    Dim AdrCel As String, Wbk As String, Sht As String, Cel As String
  Dim VPath As String, Pos As Integer, Pos2 As Integer
  AdrCel = RangeSelection
  'AdrCel = cellule comportant un lien
  Pos = InStrRev(AdrCel, "]")
  Pos2 = InStrRev(AdrCel, "'!")
  ' D?rminer le classeur
  VPath = Mid(AdrCel, 3, Pos - 2)
  Wbk = Replace(VPath, "[", "")
  Wbk = Replace(Wbk, "]", "")
  ' D?rminer la feuille
  Sht = Mid(AdrCel, Pos + 1, Pos2 - Pos - 1)
  ' D?rminer la cellule
  Cel = Mid(AdrCel, Pos2 + 2, 10)Workbooks.Open Wbk
  ActiveWorkbook.Sheets(Sht).Select
  ActiveSheet.Range(Cel).Select

End Sub
 

Je joins un dossier comportant les macros et les fichiers permettant de comprendre.

D'avance Merci