J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple.
A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
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
Alain CROS
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas... :o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur) et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal()
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")")
End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open()
Dim ValNom$, I&
On Error Resume Next
ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")")
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")")
On Error GoTo 0
If ValNom <> vbNullString Then
I = Len(ValNom)
MsgBox "Il faut renommer la feuille en : " & _
Left$(Right$(ValNom, I - 2&), I - 3&)
End If
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de news: OyPndSL8EHA.3840@tk2msftngp13.phx.gbl...
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple.
A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas... :o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur) et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Michel HOLDERITH
Merci de ta reponse je vais essayer tout ca, je te reviens pour te dire si tout marche bien, @+ Michel.
"Alain CROS" wrote in message news:
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Merci de ta reponse je vais essayer tout ca, je te reviens pour te dire si
tout marche bien,
@+
Michel.
"Alain CROS" <Personne@ICI> wrote in message
news:edVRggM8EHA.2276@TK2MSFTNGP09.phx.gbl...
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la
variable.
Sub AjoutVal()
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")")
End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook,
pour lire la variable.
Private Sub Workbook_Open()
Dim ValNom$, I&
On Error Resume Next
ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")")
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")")
On Error GoTo 0
If ValNom <> vbNullString Then
I = Len(ValNom)
MsgBox "Il faut renommer la feuille en : " & _
Left$(Right$(ValNom, I - 2&), I - 3&)
End If
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de
news: OyPndSL8EHA.3840@tk2msftngp13.phx.gbl...
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche
pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F"
par
exemple.
A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde
cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture :
fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Merci de ta reponse je vais essayer tout ca, je te reviens pour te dire si tout marche bien, @+ Michel.
"Alain CROS" wrote in message news:
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Michel HOLDERITH
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.
"Alain CROS" wrote in message news:
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Salut,
Tout marche super bien, mais par contre peut-on mettre une variable a la
place de ""Nouveau Nom"" ?
J'ai essaye mais cela n'a pas l'air de fonctionner.....
@+
Michel.
"Alain CROS" <Personne@ICI> wrote in message
news:edVRggM8EHA.2276@TK2MSFTNGP09.phx.gbl...
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la
variable.
Sub AjoutVal()
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")")
End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook,
pour lire la variable.
Private Sub Workbook_Open()
Dim ValNom$, I&
On Error Resume Next
ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")")
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")")
On Error GoTo 0
If ValNom <> vbNullString Then
I = Len(ValNom)
MsgBox "Il faut renommer la feuille en : " & _
Left$(Right$(ValNom, I - 2&), I - 3&)
End If
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de
news: OyPndSL8EHA.3840@tk2msftngp13.phx.gbl...
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche
pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F"
par
exemple.
A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde
cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture :
fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.
"Alain CROS" wrote in message news:
Bonjour.
Une possibilité, les noms masqués, voir chez LL.
Dans le fichier Excel ouvert, cette procédure, pour renseigner la variable.
Sub AjoutVal() Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""Nouveau Nom"")") End Sub
Dans le fichier B à ouvrir, cette procédure dans le module ThisWorkbook, pour lire la variable.
Private Sub Workbook_Open() Dim ValNom$, I& On Error Resume Next ValNom = Application.ExecuteExcel4Macro("GET.NAME(""LaVal"")") Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"")") On Error GoTo 0 If ValNom <> vbNullString Then I = Len(ValNom) MsgBox "Il faut renommer la feuille en : " & _ Left$(Right$(ValNom, I - 2&), I - 3&) End If End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Bonjour tout le monde et.... bonne annee,
J'ai deja pose cette question mais quand je re-essaye ca ne marche pas...
:o(
J'ai un document excel ouvert. je met dans une variable une lettre "F" par
exemple. A partir de ce document j'en ouvre un autre, qui en s'ouvrant, regarde cette
valeur, et si elle est egale a "F" doit renommer une feuille.
N'y a t-il pas possibilite de faire une sorte d'ouverture : fichierB(valeur)
et dans la procedure du fichierB workbook_open(valeur) ?
Merci de vos reponses.
@+ Michel.
Alain CROS
Bonjour.
Sub AjoutVal() Dim LaVar$ LaVar = "Autre Nom" Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar & """)") End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.
Bonjour.
Sub AjoutVal()
Dim LaVar$
LaVar = "Autre Nom"
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar & """)")
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de news: u3LdxMW8EHA.3592@TK2MSFTNGP09.phx.gbl...
Salut,
Tout marche super bien, mais par contre peut-on mettre une variable a la
place de ""Nouveau Nom"" ?
J'ai essaye mais cela n'a pas l'air de fonctionner.....
@+
Michel.
Sub AjoutVal() Dim LaVar$ LaVar = "Autre Nom" Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar & """)") End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.
Michel HOLDERITH
Tip-Top ca marche bien. Merci de ton aide.... Une autre question.... ce n'est pas grave en soit, mais est-ce normal que ma valeur "X" par exemple, se transforme en ="X" ? de toute facon j'ai fait un right(left(ValNom,3),1) Merci encore tu m'as sauve la vie.... :o) @+ Michel.
"Alain CROS" a écrit dans le message de news: OkRgy$
Bonjour.
Sub AjoutVal() Dim LaVar$ LaVar = "Autre Nom" Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar & """)")
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.
Tip-Top ca marche bien.
Merci de ton aide....
Une autre question.... ce n'est pas grave en soit, mais est-ce normal que ma
valeur "X" par exemple, se transforme en ="X" ?
de toute facon j'ai fait un right(left(ValNom,3),1)
Merci encore tu m'as sauve la vie.... :o)
@+
Michel.
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
OkRgy$W8EHA.2568@TK2MSFTNGP10.phx.gbl...
Bonjour.
Sub AjoutVal()
Dim LaVar$
LaVar = "Autre Nom"
Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar &
""")")
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de
news: u3LdxMW8EHA.3592@TK2MSFTNGP09.phx.gbl...
Salut,
Tout marche super bien, mais par contre peut-on mettre une variable a la
place de ""Nouveau Nom"" ?
J'ai essaye mais cela n'a pas l'air de fonctionner.....
@+
Michel.
Tip-Top ca marche bien. Merci de ton aide.... Une autre question.... ce n'est pas grave en soit, mais est-ce normal que ma valeur "X" par exemple, se transforme en ="X" ? de toute facon j'ai fait un right(left(ValNom,3),1) Merci encore tu m'as sauve la vie.... :o) @+ Michel.
"Alain CROS" a écrit dans le message de news: OkRgy$
Bonjour.
Sub AjoutVal() Dim LaVar$ LaVar = "Autre Nom" Application.ExecuteExcel4Macro ("SET.NAME(""LaVal"",""" & LaVar & """)")
End Sub
Alain CROS
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
Salut, Tout marche super bien, mais par contre peut-on mettre une variable a la place de ""Nouveau Nom"" ? J'ai essaye mais cela n'a pas l'air de fonctionner..... @+ Michel.