référence à une cellule (fichier dont on a le l'adresse hypertex te
2 réponses
pierre66
dans un fichier récapitulatif,
je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir
d'un simple clic (avec un clic droit "lien hypertexte")
par ex
PS0160-affiches.xls est affiché (en souligné)
et pointe illico vers
\\serveur-nt\documents communs\commercial\tableaux marges\PS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement
la valeur de certaines cellules (que les fichiers clients soient ouverts ou
pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier
client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Pierre,
sans ouvrir le fichier je ne voie pas,
Sub Lire_Fichier_AddressHyperlink() Application.ScreenUpdating = False Dim h As Hyperlink Dim Fichier, rep, Ligne, colonne, w, addr For Each h In Sheets("Bilan").Hyperlinks w = h.Address addr = h.Range.Address Workbooks.Open Filename:=w Fichier = ActiveWorkbook.Name rep = ActiveWorkbook.Path ActiveWorkbook.Close Ligne = 1 colonne = 1 onglet = "Feuil1" Range(addr).Offset(0, 1) = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "") Next Application.ScreenUpdating = True End Sub
isabelle
dans un fichier récapitulatif, je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir d'un simple clic (avec un clic droit "lien hypertexte")
par ex PS0160-affiches.xls est affiché (en souligné) et pointe illico vers serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement la valeur de certaines cellules (que les fichiers clients soient ouverts ou pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
êtes-vous plus malins que moi ? ;-)
bonjour Pierre,
sans ouvrir le fichier je ne voie pas,
Sub Lire_Fichier_AddressHyperlink()
Application.ScreenUpdating = False
Dim h As Hyperlink
Dim Fichier, rep, Ligne, colonne, w, addr
For Each h In Sheets("Bilan").Hyperlinks
w = h.Address
addr = h.Range.Address
Workbooks.Open Filename:=w
Fichier = ActiveWorkbook.Name
rep = ActiveWorkbook.Path
ActiveWorkbook.Close
Ligne = 1
colonne = 1
onglet = "Feuil1"
Range(addr).Offset(0, 1) = ExecuteExcel4Macro _
("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "")
Next
Application.ScreenUpdating = True
End Sub
isabelle
dans un fichier récapitulatif,
je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir
d'un simple clic (avec un clic droit "lien hypertexte")
par ex
PS0160-affiches.xls est affiché (en souligné)
et pointe illico vers
\serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement
la valeur de certaines cellules (que les fichiers clients soient ouverts ou
pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier
client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
Sub Lire_Fichier_AddressHyperlink() Application.ScreenUpdating = False Dim h As Hyperlink Dim Fichier, rep, Ligne, colonne, w, addr For Each h In Sheets("Bilan").Hyperlinks w = h.Address addr = h.Range.Address Workbooks.Open Filename:=w Fichier = ActiveWorkbook.Name rep = ActiveWorkbook.Path ActiveWorkbook.Close Ligne = 1 colonne = 1 onglet = "Feuil1" Range(addr).Offset(0, 1) = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "") Next Application.ScreenUpdating = True End Sub
isabelle
dans un fichier récapitulatif, je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir d'un simple clic (avec un clic droit "lien hypertexte")
par ex PS0160-affiches.xls est affiché (en souligné) et pointe illico vers serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement la valeur de certaines cellules (que les fichiers clients soient ouverts ou pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
êtes-vous plus malins que moi ? ;-)
pierre66
merci beaucoup isabelle mais alors là, ce n'est plus de mon niveau ... (et d'assez loin)
;-)
nous avons une application sur oracle qui fait (presque) tout; alors je ne dépasse pas les fonctions de base d'excel
mais si je m'ennuie cet été, je regarde les macros et VBA, promis
merci encore en tous cas --
pierre, perpignan
bonjour Pierre,
sans ouvrir le fichier je ne voie pas,
Sub Lire_Fichier_AddressHyperlink() Application.ScreenUpdating = False Dim h As Hyperlink Dim Fichier, rep, Ligne, colonne, w, addr For Each h In Sheets("Bilan").Hyperlinks w = h.Address addr = h.Range.Address Workbooks.Open Filename:=w Fichier = ActiveWorkbook.Name rep = ActiveWorkbook.Path ActiveWorkbook.Close Ligne = 1 colonne = 1 onglet = "Feuil1" Range(addr).Offset(0, 1) = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "") Next Application.ScreenUpdating = True End Sub
isabelle
dans un fichier récapitulatif, je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir d'un simple clic (avec un clic droit "lien hypertexte")
par ex PS0160-affiches.xls est affiché (en souligné) et pointe illico vers serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement la valeur de certaines cellules (que les fichiers clients soient ouverts ou pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
êtes-vous plus malins que moi ? ;-)
merci beaucoup isabelle
mais alors là, ce n'est plus de mon niveau ... (et d'assez loin)
;-)
nous avons une application sur oracle qui fait (presque) tout;
alors je ne dépasse pas les fonctions de base d'excel
mais si je m'ennuie cet été, je regarde les macros et VBA,
promis
merci encore en tous cas
--
pierre,
perpignan
bonjour Pierre,
sans ouvrir le fichier je ne voie pas,
Sub Lire_Fichier_AddressHyperlink()
Application.ScreenUpdating = False
Dim h As Hyperlink
Dim Fichier, rep, Ligne, colonne, w, addr
For Each h In Sheets("Bilan").Hyperlinks
w = h.Address
addr = h.Range.Address
Workbooks.Open Filename:=w
Fichier = ActiveWorkbook.Name
rep = ActiveWorkbook.Path
ActiveWorkbook.Close
Ligne = 1
colonne = 1
onglet = "Feuil1"
Range(addr).Offset(0, 1) = ExecuteExcel4Macro _
("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "")
Next
Application.ScreenUpdating = True
End Sub
isabelle
dans un fichier récapitulatif,
je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir
d'un simple clic (avec un clic droit "lien hypertexte")
par ex
PS0160-affiches.xls est affiché (en souligné)
et pointe illico vers
\serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement
la valeur de certaines cellules (que les fichiers clients soient ouverts ou
pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier
client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
merci beaucoup isabelle mais alors là, ce n'est plus de mon niveau ... (et d'assez loin)
;-)
nous avons une application sur oracle qui fait (presque) tout; alors je ne dépasse pas les fonctions de base d'excel
mais si je m'ennuie cet été, je regarde les macros et VBA, promis
merci encore en tous cas --
pierre, perpignan
bonjour Pierre,
sans ouvrir le fichier je ne voie pas,
Sub Lire_Fichier_AddressHyperlink() Application.ScreenUpdating = False Dim h As Hyperlink Dim Fichier, rep, Ligne, colonne, w, addr For Each h In Sheets("Bilan").Hyperlinks w = h.Address addr = h.Range.Address Workbooks.Open Filename:=w Fichier = ActiveWorkbook.Name rep = ActiveWorkbook.Path ActiveWorkbook.Close Ligne = 1 colonne = 1 onglet = "Feuil1" Range(addr).Offset(0, 1) = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & onglet & "'!R" & Ligne & "C" & colonne & "") Next Application.ScreenUpdating = True End Sub
isabelle
dans un fichier récapitulatif, je veux indiquer le lien hypertexte de mes fichiers clients pour les ouvrir d'un simple clic (avec un clic droit "lien hypertexte")
par ex PS0160-affiches.xls est affiché (en souligné) et pointe illico vers serveur-ntdocuments communscommercialtableaux margesPS0160-affiches.xls
à partir de cette adresse hypertexte, je voudrais récupérer automatiquement la valeur de certaines cellules (que les fichiers clients soient ouverts ou pas)
par exemple les cellules définies PV1, PV2, TM1, ... dans chaque fichier client
je rame depuis 2 jours avec les fonctions ADRESSE, INDIRECT sans trouver
