Dans un fichier "j'appelle" une valeur contenue dans un autre fichier
comme ceci :
Contenu de la cellule B1
='R:\AA BARDA\Situations\Situations Snc Les Près Bat A + 11
boxes.xls'!marche
(affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...\Situations "
et ".xls'!marche"
pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes"
Pour mémoire, la partie "\Situations\Situations " est toujours identique
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
ru-th
Salut
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations "
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Est-ce possible ?
Merci
-- ********************** Fredo Strasbourg
Salut
par fonction personnalisée
Public Function extract(t As Range)
Dim rep, repa As String, repb As Integer
rep = t.Formula
repa = Mid(rep, 1, Application.Find(".xls", rep) - 1)
repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2
extract = Mid(repa, repb)
End Function
a+
rural thierry
"Fredo (67)" <bidon@free.fr> a écrit dans le message de news:
eYVZQ#imEHA.2340@TK2MSFTNGP11.phx.gbl...
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier
comme ceci :
Contenu de la cellule B1
='R:AA BARDASituationsSituations Snc Les Près Bat A + 11
boxes.xls'!marche
(affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations
"
et ".xls'!marche"
pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes"
Pour mémoire, la partie "SituationsSituations " est toujours identique
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations "
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Ca marche super, Mais ta fonctionne donne pour ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le Situation qui traine pour n'avoir que Snc Les Près Bat A + 11 boxes
Merci
"ru-th" a écrit dans le message de news:
Salut
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations
"
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Est-ce possible ?
Merci
-- ********************** Fredo Strasbourg
Ca marche super,
Mais ta fonctionne donne pour
='R:AA BARDASituationsSituations Snc Les Près Bat A + 11
boxes.xls'!marche
Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le
Situation
qui traine pour n'avoir que
Snc Les Près Bat A + 11 boxes
Merci
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de
news:ugJ4LIjmEHA.2680@TK2MSFTNGP15.phx.gbl...
Salut
par fonction personnalisée
Public Function extract(t As Range)
Dim rep, repa As String, repb As Integer
rep = t.Formula
repa = Mid(rep, 1, Application.Find(".xls", rep) - 1)
repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2
extract = Mid(repa, repb)
End Function
a+
rural thierry
"Fredo (67)" <bidon@free.fr> a écrit dans le message de news:
eYVZQ#imEHA.2340@TK2MSFTNGP11.phx.gbl...
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier
comme ceci :
Contenu de la cellule B1
='R:AA BARDASituationsSituations Snc Les Près Bat A + 11
boxes.xls'!marche
(affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre
"...Situations
"
et ".xls'!marche"
pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes"
Pour mémoire, la partie "SituationsSituations " est toujours identique
Ca marche super, Mais ta fonctionne donne pour ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le Situation qui traine pour n'avoir que Snc Les Près Bat A + 11 boxes
Merci
"ru-th" a écrit dans le message de news:
Salut
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations
"
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Est-ce possible ?
Merci
-- ********************** Fredo Strasbourg
ru-th
Salut,
Quoi, moi y en voir dit encore comme fausseté ? ;-))
a+ rural thierry
"AV" a écrit dans le message de news: #
Hum.....hum....
AV
Salut,
Quoi, moi y en voir dit encore comme fausseté ? ;-))
a+
rural thierry
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#CAVJSjmEHA.2772@tk2msftngp13.phx.gbl...
Quoi, moi y en voir dit encore comme fausseté ? ;-))
a+ rural thierry
"AV" a écrit dans le message de news: #
Hum.....hum....
AV
ru-th
re-
lâchement et pas le temps d'approfondir =substitue(extact(a1);"Situation ";"") a+ rual thierry "Fredo (67)" a écrit dans le message de news:
Ca marche super, Mais ta fonctionne donne pour ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le Situation qui traine pour n'avoir que Snc Les Près Bat A + 11 boxes
Merci
"ru-th" a écrit dans le message de news:
Salut
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations
"
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Est-ce possible ?
Merci
-- ********************** Fredo Strasbourg
re-
lâchement et pas le temps d'approfondir
=substitue(extact(a1);"Situation ";"")
a+
rual thierry
"Fredo (67)" <bidon@free.fr> a écrit dans le message de news:
OWktsWjmEHA.3684@TK2MSFTNGP10.phx.gbl...
Ca marche super,
Mais ta fonctionne donne pour
='R:AA BARDASituationsSituations Snc Les Près Bat A + 11
boxes.xls'!marche
Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le
Situation
qui traine pour n'avoir que
Snc Les Près Bat A + 11 boxes
Merci
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de
news:ugJ4LIjmEHA.2680@TK2MSFTNGP15.phx.gbl...
Salut
par fonction personnalisée
Public Function extract(t As Range)
Dim rep, repa As String, repb As Integer
rep = t.Formula
repa = Mid(rep, 1, Application.Find(".xls", rep) - 1)
repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2
extract = Mid(repa, repb)
End Function
a+
rural thierry
"Fredo (67)" <bidon@free.fr> a écrit dans le message de news:
eYVZQ#imEHA.2340@TK2MSFTNGP11.phx.gbl...
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier
comme ceci :
Contenu de la cellule B1
='R:AA BARDASituationsSituations Snc Les Près Bat A + 11
boxes.xls'!marche
(affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre
"...Situations
"
et ".xls'!marche"
pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes"
Pour mémoire, la partie "SituationsSituations " est toujours
identique
lâchement et pas le temps d'approfondir =substitue(extact(a1);"Situation ";"") a+ rual thierry "Fredo (67)" a écrit dans le message de news:
Ca marche super, Mais ta fonctionne donne pour ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche Situations Snc Les Près Bat A + 11 boxes
Je voudrais enlever en plus le Situation qui traine pour n'avoir que Snc Les Près Bat A + 11 boxes
Merci
"ru-th" a écrit dans le message de news:
Salut
par fonction personnalisée Public Function extract(t As Range) Dim rep, repa As String, repb As Integer rep = t.Formula repa = Mid(rep, 1, Application.Find(".xls", rep) - 1) repb = Len(repa) - Application.Find("", StrReverse(repa)) + 2 extract = Mid(repa, repb) End Function
a+ rural thierry "Fredo (67)" a écrit dans le message de news: eYVZQ#
Bonjour,
Dans un fichier "j'appelle" une valeur contenue dans un autre fichier comme ceci : Contenu de la cellule B1 ='R:AA BARDASituationsSituations Snc Les Près Bat A + 11 boxes.xls'!marche (affichage : 1 525 000,00 ?)
Je voudrais pouvoir en A1 récupérer la partie située entre "...Situations
"
et ".xls'!marche" pour l'exemple ce serait "Snc Les Près Bat A + 11 boxes" Pour mémoire, la partie "SituationsSituations " est toujours identique
Est-ce possible ?
Merci
-- ********************** Fredo Strasbourg
AV
Sub zzz() x = [A1].Formula x2 = Mid(x, Application.Find("Situations ", x) + 11, 9 ^ 9) x3 = Left(x2, Application.Find(".xls", x2)) - 1 MsgBox x3 End Sub
AV
Sub zzz()
x = [A1].Formula
x2 = Mid(x, Application.Find("Situations ", x) + 11, 9 ^ 9)
x3 = Left(x2, Application.Find(".xls", x2)) - 1
MsgBox x3
End Sub
