jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 13 févr. 2007 à 08:57
Salut,
En adaptant ceci tu devrait arriver à tes fins.
ATTENTION: la fonction part du principe que le repertoire existe, ainsi que le classeur et la feuille.
Private Sub CommandButton1_Click()
[E1] = Liaison([A1], [B1], [C1], [D1])
End Sub
Private Function Liaison(ByVal StrPath As String, ByVal StrWBook As String, ByVal StrWSheet As String, ByVal StrCell As String) As String
Dim Wb As Workbook
Set Wb = Application.Workbooks.Open(StrPath & StrWBook)
Liaison = Wb.Worksheets(StrWSheet).Range(StrCell).Value
Call Wb.Close(False)
Set Wb = Nothing
OUARTA
Messages postés4Date d'inscriptionlundi 7 août 2006StatutMembreDernière intervention13 février 2007 13 févr. 2007 à 14:16
bonjours et merci de la reponse
Je suis debutant et j'aurais besoin de plus d'expliquation car je ne vois pas la formule quand je fais inserer une fonction personnaliser
c'est tu a cause quelle est declarer private ?si oui comment proceder
Vous n’avez pas trouvé la réponse que vous recherchez ?
sobullshit
Messages postés178Date d'inscriptionvendredi 9 février 2007StatutMembreDernière intervention 8 juin 2007 13 févr. 2007 à 21:36
Euh... d'après ce que je comprend maintenant le code fournit par jrivet devrait suffire.
Sinon essaie ça: (mais je sais pas si ça marche je vais le faire en live en 20s avant d'aller dormir)
je part du principe que ton classeur est déjà ouvert
dim xlswb as Excel.Workbook
dim chemin as string, feuil as string
chemin = ActiveWorksheet.Range("A1").Value+ActiveWorksheet.Range("B1").Value 'tu met le chemin de ton classeur à l'aide de cellules (pas sur que ça pass)
feuil = ActiveWorksheet.Range("C1").Value 'même chose pour le nom de ta feuille