Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
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
lSteph
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
lSteph
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés,
Faire Confiance au projet
... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
lSteph
Bonsoir Alex,
(Excel2003) Outils Macro Sécurité Editeurs Approuvés Faire Confiance au projet (coché en bas)
..concept non distribuable!
@+
lSteph
Le 21/10/2006, lSteph a supposé :
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Bonsoir Alex,
(Excel2003)
Outils Macro Sécurité
Editeurs Approuvés
Faire Confiance au projet (coché en bas)
..concept non distribuable!
@+
lSteph
Le 21/10/2006, lSteph a supposé :
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
(Excel2003) Outils Macro Sécurité Editeurs Approuvés Faire Confiance au projet (coché en bas)
..concept non distribuable!
@+
lSteph
Le 21/10/2006, lSteph a supposé :
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Alex St-Pierre
Le message exact est: Erreur d'exécution '1004': L'accès par programme au projet Visual Basic n'est pas fiable -- Alex St-Pierre
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Le message exact est:
Erreur d'exécution '1004':
L'accès par programme au projet Visual Basic n'est pas fiable
--
Alex St-Pierre
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
Le message exact est: Erreur d'exécution '1004': L'accès par programme au projet Visual Basic n'est pas fiable -- Alex St-Pierre
Alex St-Pierre a présenté l'énoncé suivant :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Alex St-Pierre
Ça fonctionne maintenant! La raison pourquoi je veux modifier le codename (à la création de la feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux générer différent type de feuilles. Comme le projet va être utiliser par bcp de personnes, est-ce que chaque personne doit aller sélectionner cet option pour être en mesure de renommer le codename? S'il y a des risque que le message d'erreur apparait, je vais me tourner vers le 2e option qui est d'ajouter l'information dans la feuille: sheets("abc").Names.Add "Type", "Tableau1-1" MsgBox ActiveWorkbook.Evaluation("Type") Merci! -- Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
Ça fonctionne maintenant!
La raison pourquoi je veux modifier le codename (à la création de la
feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux
générer différent type de feuilles. Comme le projet va être utiliser par bcp
de personnes, est-ce que chaque personne doit aller sélectionner cet option
pour être en mesure de renommer le codename? S'il y a des risque que le
message d'erreur apparait, je vais me tourner vers le 2e option qui est
d'ajouter l'information dans la feuille:
sheets("abc").Names.Add "Type", "Tableau1-1"
MsgBox ActiveWorkbook.Evaluation("Type")
Merci!
--
Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés,
Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
Ça fonctionne maintenant! La raison pourquoi je veux modifier le codename (à la création de la feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux générer différent type de feuilles. Comme le projet va être utiliser par bcp de personnes, est-ce que chaque personne doit aller sélectionner cet option pour être en mesure de renommer le codename? S'il y a des risque que le message d'erreur apparait, je vais me tourner vers le 2e option qui est d'ajouter l'information dans la feuille: sheets("abc").Names.Add "Type", "Tableau1-1" MsgBox ActiveWorkbook.Evaluation("Type") Merci! -- Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
lSteph
Oui! c'est mieux.
C'était bien pour cela,
.... concept non distribuable!...
@+ lSteph
Alex St-Pierre a émis l'idée suivante :
Ça fonctionne maintenant! La raison pourquoi je veux modifier le codename (à la création de la feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux générer différent type de feuilles. Comme le projet va être utiliser par bcp de personnes, est-ce que chaque personne doit aller sélectionner cet option pour être en mesure de renommer le codename? S'il y a des risque que le message d'erreur apparait, je vais me tourner vers le 2e option qui est d'ajouter l'information dans la feuille: sheets("abc").Names.Add "Type", "Tableau1-1" MsgBox ActiveWorkbook.Evaluation("Type") Merci! -- Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
End With
-- - -
-- - -
Oui! c'est mieux.
C'était bien pour cela,
.... concept non distribuable!...
@+
lSteph
Alex St-Pierre a émis l'idée suivante :
Ça fonctionne maintenant!
La raison pourquoi je veux modifier le codename (à la création de la
feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux
générer différent type de feuilles. Comme le projet va être utiliser par bcp
de personnes, est-ce que chaque personne doit aller sélectionner cet option
pour être en mesure de renommer le codename? S'il y a des risque que le
message d'erreur apparait, je vais me tourner vers le 2e option qui est
d'ajouter l'information dans la feuille:
sheets("abc").Names.Add "Type", "Tableau1-1"
MsgBox ActiveWorkbook.Evaluation("Type")
Merci!
--
Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés,
Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour,
Est-il possible de modifier le codename d'une feuille. Quand j'essais de
modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme
quoi, je ne pas accéder VBComponents.
Merci !
Set Feuille = ThisWorkbook.Worksheets.Add()
With ThisWorkbook
ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
Ça fonctionne maintenant! La raison pourquoi je veux modifier le codename (à la création de la feuille) est pour reconnaitre de quel type de feuille il s'agit. Je peux générer différent type de feuilles. Comme le projet va être utiliser par bcp de personnes, est-ce que chaque personne doit aller sélectionner cet option pour être en mesure de renommer le codename? S'il y a des risque que le message d'erreur apparait, je vais me tourner vers le 2e option qui est d'ajouter l'information dans la feuille: sheets("abc").Names.Add "Type", "Tableau1-1" MsgBox ActiveWorkbook.Evaluation("Type") Merci! -- Alex St-Pierre
Bonsoir Alex,
Outils Macro Sécurité Editeurs Approuvés, Faire Confiance au projet
.... concept non distribuable!...
Cordialement.
lSteph
Alex St-Pierre a exprimé avec précision :
Bonjour, Est-il possible de modifier le codename d'une feuille. Quand j'essais de modifier avec le programme ci-bas, il y a un message d'erreur 1004 comme quoi, je ne pas accéder VBComponents. Merci ! Set Feuille = ThisWorkbook.Worksheets.Add() With ThisWorkbook ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "abc"
