.CodeName ne fonctionne pas

Bonjour tout le monde

Je ne comprends pas pourquoi dans le code suivant, la ligne avec le CodeName n'affiche rien (ligne 32 dans le code ci-dessous).
Plus exactement, cette ligne n'affiche rien quand la macro est lancée automatiquement à l'ouverture du fichier.
Mais si on lance la macro "à la main", une fois le fichier ouvert, tout fonctionne comme il faut.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Sub Intervertir()   Dim CheminP As String 'Chemin des fichiers des postes Dim CheminS As String 'Chemin des fichiers des salons Dim CheminM As String 'Chemin du fichier modèle Dim FichierM As String 'Nom du fichier modèle Dim FichierP As String 'Nom du fichier de poste en cours Dim WbFichierP As Workbook 'Classeur de poste en cours Dim WbFichierM As Workbook 'Classeur du fichier modèle Dim FeuilleS As Worksheet 'Feuille salon dans le classeur poste en cours Dim NomLongClass As String 'Nom du classeur salon   Application.ScreenUpdating = False   CheminP = "C:\Users\Pierre Dumas\Desktop\test\Postes\" CheminS = "C:\Users\Pierre Dumas\Desktop\test\Salons\" CheminM = "C:\Users\Pierre Dumas\Desktop\test\Modele\"   FichierM = "Salon.xlsx"   'Ouvrir le classeur modèle de salon Set WbFichierM = Workbooks.Open(CheminM & FichierM)   FichierP = Dir(CheminP & "*.xlsx") Set WbFichierP = Workbooks.Open(CheminP & FichierP) For Each FeuilleS In WbFichierP.Worksheets NomLongClass = "Extr" & FeuilleS.Name & ".xlsx" If EstDansCollection(Workbooks, NomLongClass) = False Then 'Verifier si le classeur de salon est ouvert. Si ce n'est pas le cas WbFichierM.SaveCopyAs CheminS & NomLongClass 'Duppliquer le classeur modèle avec le nom de ce salon Workbooks.Open Filename:=CheminS & NomLongClass 'Ouvrir ce nouveau classeur End If MsgBox (Workbooks(NomLongClass).Sheets("REALISE").CodeName)         'Suite macro Exit For Next FeuilleS   WbFichierP.Close Set WbFichierP = Nothing   Application.ScreenUpdating = True End Sub   Private Function EstDansCollection(Coln As Object, Item As String) As Boolean Dim Obj As Object   On Error Resume Next Set Obj = Coln(Item) EstDansCollection = Not Obj Is Nothing   End Function

---

Et voici le contenu de ThisWorkbook

Code:

---

1 2 3 4

Private Sub Workbook_Open() Call Intervertir Application.Quit End Sub

---

Je ne vois pas ce que je loupe ou réalise mal :(

Merci d'avance aux commentaires me mettant sur le bon chemin.

Belle après-midi à chacun

Pierre Dumas

Salut,

Essayes "Worksheets" au lieux de "sheets"

Merci ChristianBosch de s'être penché sur mon problème.

Mais, après tests, cela n'apporte aucun changement :(

Pierre Dumas

Bonjour Pierre,
C'est curieux que cela ne fonctionne pas
Sheets ou Worksheets ne change rien à l'affaire.
Je suppose que la variable NomLongClass contient bien le suffixe xlsx ou xlsm et que ce classeur est bien ouvert

Bonjour Philippe

Citation:

---

Envoyé par Philippe Tulliez

Bonjour Pierre,
C'est curieux que cela ne fonctionne pas

---

C'est non seulement curieux, mais c'est surtout pénible ;)

Cela l'est surtout que cela fonctionne (le .CodeName renvoie bien une valeur) quand je lance la macro avec F5. Mais que cela ne fonctionne pas (le.CodeName ne renvoie aucune valeur) quand c'est lancé automatiquement :calim2:

J'ai bien essayé de mettre un Wait ou de faire un .Activate sur le classeur, mais sans résultat.

Citation:

---

Sheets ou Worksheets ne change rien à l'affaire.

---

On est bien d'accord

Citation:

---

Je suppose que la variable NomLongClass contient bien le suffixe xlsx ou xlsm et que ce classeur est bien ouvert

---

Oui. Cela est réalisé respectivement ligne 27

Code:

---

NomLongClass = "Extr" & FeuilleS.Name & ".xlsx"

---

et ligne 30

Code:

---

Workbooks.Open Filename:=CheminS & NomLongClass

---

Merci pour ce regard.

Pierre Dumas

Bonsoir mat955

J'ai bien essayé de modifié mon code en inscrivant la partie ci-dessous, mais c'est toujours récalcitrant :weird:

Code:

---

1 2 3 4 5 6 7

Dim sH As Worksheet Dim MonMsg As String   Workbooks(NomLongClass).Worksheets("REALISE").Activate Set sH = Workbooks(NomLongClass).Worksheets("REALISE") MonMsg = sH.[_CodeName] MsgBox MonMsg

---

Le .CodeName ne veut toujours pas s'afficher en lançant la macro à l'ouverture du fichier. Mais cela fonctionne très bien si on la lance depuis l'éditeur VBA.

Ça commence à m'énerver grave :aie: de ne pas trouver.

Bonne nuit à chacun

Pierre Dumas

Bonjour Pierre,
A tout hasard, peut-être placer un DoEvents ?

Citation:

---

Envoyé par Philippe Tulliez

Bonjour Pierre,
A tout hasard, peut-être placer un DoEvents ?

---

Nope :cry:

Mais on finira bien par trouver une solution

Bonne journée

Pierre Dumas

Bonjour Pierre,
En relisant le premier code publié, je me demande si la ligne 32 ne devrait pas être dans la procédure décisionnelle, soit entre la ligne 30 et 31 car c'est dans celle-ci que tu ouvres le nouveau classeur

Merci Philippe pour ton soutien

Citation:

---

Envoyé par Philippe Tulliez

Bonjour Pierre,
En relisant le premier code publié, je me demande si la ligne 32 ne devrait pas être dans la procédure décisionnelle, soit entre la ligne 30 et 31 car c'est dans celle-ci que tu ouvres le nouveau classeur

---

Je viens d'essayer de déplacer la ligne, mais ce n'est pas plus probant.

J'ai épuré au plus possible mon code pour arriver à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Intervertir()   Dim CheminM As String 'Chemin du fichier modèle Dim FichierM As String 'Nom du fichier modèle Dim WbFichierM As Workbook 'Classeur du fichier modèle Dim sH As Worksheet Dim Msg As String     CheminM = "C:\Users\Pierre Dumas\Desktop\test\Modele\" FichierM = "Salon.xlsx"     'Ouvrir le classeur modèle de salon Set WbFichierM = Workbooks.Open(CheminM & FichierM)   Set sH = WbFichierM.Worksheets("REALISE") Msg = sH.[_CodeName] MsgBox Msg     End Sub

---

Mais cela ne marche toujours pas.

Le .CodeName s'affiche bien quand on lance la macro depuis l'éditeur VBA. Mais il ne s'affiche pas suite à l'ouverture automatique du classeur.

Pour information, j'ai aussi essayé de créer un autre classeur "Salon.xlsx" à partir d'un nouveau classeur vierge. Cela ne fonctionne pas.
J'ai aussi essayé avec les classeurs sur le même répertoire, un répertoire différent ou un autre lecteur. Cela ne fonctionne pas.

Elle est où mon erreur ?

Bonne soirée

Pierre Dumas (désappointé)

Bonjour Pierre,
Je viens de tester ta procédure allégée en modifiant seulement les valeurs des variables CheminM et FichierM et cela fonctionne parfaitement aussi bien en lançant la procédure Intervertir seule qu'en ouvrant le classeur de test et donc en utilisant la procédure événementielle Workbook_Open

Tout fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Intervertir() Dim CheminM As String 'Chemin du fichier modèle Dim FichierM As String 'Nom du fichier modèle Dim WbFichierM As Workbook 'Classeur du fichier modèle Dim sH As Worksheet Dim Msg As String   ' CheminM = "C:\Users\Pierre Dumas\Desktop\test\Modele\" CheminM = ThisWorkbook.Path & "\" FichierM = "1901 - TimeSheet Jacques.xlsb"     'Ouvrir le classeur modèle de salon Set WbFichierM = Workbooks.Open(CheminM & FichierM)   Set sH = WbFichierM.Worksheets("TimeSheet") Msg = sH.[_CodeName] MsgBox Msg WbFichierM.Close   End Sub

---

Bonsoir Philippe

Heureux de savoir que chez toi cela fonctionne.
J'ai, bien sûr, tout fait pareil de suite. Mais, non, patatras, cela ne fonctionne toujours pas :calim2:

Je ne crois avoir rien de spécial avec les 2 fichiers Pièce jointe 604934 et Pièce jointe 604935.
Les voici donc pour que tu puisses tester s'ils fonctionnent correctement.

Bonne nuit

Pierre Dumas

Bonjour Pierre,
Je viens de tester avec les deux fichiers joints. Mis à part le fait que j'ai dû changer le suffixe du classeur qui dans ton cas est bien un xlsx, j'ai le même problème décrit dans ta demande initiale.
La procédure Intervenir fonctionne parfaitement si on l'exécute directement mais pas si la procédure est invoquée par la procédure événementielle.
Je comprends que tu t'arraches les cheveux.

Merci Philippe d'avoir essayé, de confirmer que je ne suis pas fou et de te soucier de ma chevelure.

Si personne n'a d'idée, alors je coderai en dur les noms et .CodeName des feuilles :(

Bon week-end des journées européennes du patrimoine.

Pierre Dumas

Bonjour Pierre,

A l'aide de la procédure ci-dessous, j'ai effectué des tests avec trois fichiers différents, le seul avec lequel j'ai des soucis c'est celui que tu as mis en pièce jointe soit Classeur1.xlsx que j'ai rebaptisé MonClasseur.xlsx et j'avoue ne pas en comprendre la raison.
En fait, il ne l'ouvre pas, comme s'il n'était pas présent mais sans message d'erreur et lorsque je place un On Error Resume Next, j'intercepte le numéro d'erreur 71

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Intervertir() 'Time Sheet - Modèle 1 'Const FileName As String = "MonClasseur.xlsx" 'Const SheetName As String = "REALISE" 'Const FileName As String = "1902 - TimeSheet Jacques.xlsx" Const FileName As String = "Time Sheet - Modèle 1.xlsx" Const SheetName As String = "TimeSheet" Dim RootPath As String ' Chemin du fichier modèle Dim Sh As Worksheet Dim Msg As String RootPath = ThisWorkbook.Path & "\" ' Workbooks.Open RootPath & FileName ' With ActiveWorkbook Set Sh = .Worksheets(SheetName) Msg = Sh.[_CodeName] MsgBox Msg .Close End With End Sub

---

La procédure événementielle

Code:

---

1 2 3 4

Private Sub Workbook_Open() Module1.Intervertir If MsgBox("Voulez-vous fermer ce classeur", vbYesNo + vbDefaultButton2) = vbYes Then Application.Quit End Sub

---

Bonsoir Philippe

Muni de ton information, j'ai tout recommencé :
Éteindre, rallumer l'ordinateur
Créer un fichier Excel le plus simple avec 3 feuilles (dont une renommée "papa"), et l'enregistrer (Classeur1) sur le bureau
Éteindre, rallumer l'ordinateur
Créer un fichier Excel prenant en charge les macros, dans lequel je mets tes procédures (juste modifiées sur les nom de classeur et de feuille), et l'enregistrer (MaMacro) sur le bureau
Éteindre, rallumer l'ordinateur
Ouvrir le fichier MaMacro
=> le .CodeName ne s'affiche pas

Ouvrir l'éditeur Visual Basic
Lancer la macro
=> le .CodeName s'affiche

:mur::mur::mur:

Je ne comprends toujours pas.

Pourquoi ce punaise de .CodeName ne s'affiche pas ????

Pour information, si on met en pause la macro juste après et que l'on ramène la flèche jaune d'exécution sur la ligne d'instruction qui récupère le .CodeName, cela ne pose aucun problème et tout va bien.

Je vais devenir chèvre.

Bonne soirée tout de même à chacun.

Pierre Dumas