L
LAURENT
Guest
Bonjour,
Voila des mois que je cherche à résoudre mon problème mais je n'y arrive vraiment pas du tout.
Je voudrais savoir pourquoi la fonction qui permet de saisir une valeur dans un classeur excel sans l'ouvrir ne fonctionne pas pour le type texte dans la version excel 97. Pourtant cette fonction marche tres bien dans la version excel 2002. Lorsque je veux chercher du texte, j'ai un problème de type par contre les nombres fonctionnent tres bien.
Private Function GetValue(Path, File, Sheet, Ref) 'Récupération d'une valeur dans un fichier fermé
Dim Arg As String
If Right(Path, 1) <> "\" Then Path = Path & "\" 'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Crée l'argument '"D:\mesdocuments\loisirs\[vacances.xls]Méribel'!R4C3"
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)
'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function
Merci de vos réponses.
Voila des mois que je cherche à résoudre mon problème mais je n'y arrive vraiment pas du tout.
Je voudrais savoir pourquoi la fonction qui permet de saisir une valeur dans un classeur excel sans l'ouvrir ne fonctionne pas pour le type texte dans la version excel 97. Pourtant cette fonction marche tres bien dans la version excel 2002. Lorsque je veux chercher du texte, j'ai un problème de type par contre les nombres fonctionnent tres bien.
Private Function GetValue(Path, File, Sheet, Ref) 'Récupération d'une valeur dans un fichier fermé
Dim Arg As String
If Right(Path, 1) <> "\" Then Path = Path & "\" 'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Crée l'argument '"D:\mesdocuments\loisirs\[vacances.xls]Méribel'!R4C3"
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)
'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function
Merci de vos réponses.
