Inputbox cellule reference relative
Bonjour,
J'ai une inputbox pour créer des liaison mais quand ma liaison est integré dans la cellule je ne peux pas incrémenter sur les cellule du dessous car elle indique une cellule en reference absolue ($C$2) alors qu'il me faudrai une reference relative.
Grand merci de m'aider car je planche dessus sans trouver la reponse
Merci à tous de votre aide !!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Sub recupuneseule()
Dim Chemin As String, NomFic As String, Onglet As String, Ref As String
Dim A
Chemin = InputBox("Chemin du fichier à lire :", "lire fichierFermé", "C:\Users\Philippe")
NomFic = InputBox("Nom du fichier EXCEL à lire :", "lire fichierFermé", "MonFichier.xls")
Onglet = InputBox("nom de la feuille :", "lire fichier fermé", "Feuil1")
Ref = InputBox("adresse de la cellule à lire :", "lire fichierfermé", "C2")
ActiveCell.Value = "='" & Chemin & "\[" & NomFic & "]" & Onglet & "'!" & Range(Ref).Range("A1").Address
End Sub |
