Discussion :

[philippe34130]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

Bonjour
a modifier comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = "='" & Chemin & "\[" & NomFic & "]" & Onglet & "'!" & Range(Ref).Range("A1").Address (0,0)

[philippe34130]

Merci de ton aide