Erreur de compilation. Membre de méthode ou de données introuvables

Question

J’ai créer en 2012 un fichier de saisie pour faire des factures et payes.

Je voudrais faire revivre ce fichier.

J'avais 24 périodes de payes que j'ai changé pour 26 périodes, qui commence du 2 jan au 15, du 16 au 29 jan.

Maintenant quand je lance Création d'une facturation annuelle, j'obtiens des erreurs de Compilation avec .Show sur plusieurs pages, je ne sais ou donner de la tête.

Sub Nouveau_dossier_annuel()

Dim Nom_nouveau_dossier As String
Dim Nom_ficher_base As String, i As Integer, j As Integer
Dim Mois_Récap_DAS As String

Application.ScreenUpdating = False

' A GARDER EN MEMOIRE : Si le code a été stoppé en cours de route, il se peut qu'il ne
' fonctionne plus par la suite, probablement car les Application.DisplayAlerts
' sont restés sur une position incorrecte. Il faut alors fermer le fichier de
' base et recommencer
' Un des problèmes qui pourrait survenir serait par exemple que les fichiers
' "Paye" ne soient pas tous créés (ou créés puis écrasés ?)

' Dans le même esprit, et par sécurité, on vide au préalable les cellules Z1 et AA1
Sheets("Périodes").Range("Z1:AA1").ClearContents

'Contrôle que tous les employés ont un code fiscal
For i = 2 To Range("I1").End(xlDown).Row ' Tous les employés
If Range("Y" & i) = "" Or Range("Z" & i) = "" Then
MsgBox ("Il manque des codes pour certains collaborateurs dans les colonnes Y et Z")
Exit Sub
End If
Next i

Flag = False

Nom_ficher_base = ThisWorkbook.Name

UserForm1.Show 'On charge la variable "Année"

Besoin de votre coup d'oeil.

OSCAR

Arturo83 · Answer

Que la macro s'arrête sur la ligne " UserForm1.Show " ne signifie pas forcément que l'erreur soit à cet endroit, pour le vérifier, exécutez votre macro en pas à pas avec F8, vous verrez bien où se situe l'erreur. Sans fichier à disposition, difficile d'en dire davantage. Cdlt...

Arturo83 · Answer

Dans votre réponse, cliquez sur l'icône cerclée de rouge, et sélectionnez le fichier(mais avant cela, remplacez toutes les données confidentielles par des noms bidons)...

Alex020181 · Answer

Facile.

Ton fichier ne contient aucun formulaire.

UserForm1.Show signifie une demande d'ouverture du formulaire nommé, ici, "UserForm1". Ce formulaire n'existant pas le code te retourne une erreur. D'ailleurs tu as plusieurs fois ce cas dans ton code.

Normalement quand un fichier Excel contient des formulaires ceux-ci sont regroupés sous la partie "Feuilles". Pour l'exemple voici comment devrait apparaitre tes formulaires. "UserForm6" est un formulaire bidon que je viens de créer dans ton fichier. Tu vois qu'il apparait dans le groupe "Feuilles" mais surtout qu'il n'y en a pas d'autres.

On note toutefois que tu as bien des objets nommés "UserForm1" à "UserForm6", qui ne sont pas des formulaires, contenant du code qui semble compatible à du code placé dans les objets de formulaires... Bizarre. A mon avis ton fichier est altéré. Je pense que ces objets sont d'anciens formulaires qui ne sont plus reconnus comme tel maintenant. On n'en retrouve que le code et pas la partie visuelle.

Édit : dans ce fil https://forum.excel-pratique.com/excel/erreur-423-show-198505 tu sembles utiliser LibreOffice. Comment as-tu créé ce fichier ? Avec Excel ou LibreOffice ?

Si c'est un fichier Excel (je dis bien Excel, je ne parle pas de l'éventuelle option "enregistrer sous format Excel" de LibreOffice) alors pour moi tu as une altération quelque part. Si tu as utilisé LibreOffice alors je te laisse voir avec les pros de LibreOffice.

Dans tous les cas, tel quel, tu ne peux pas appeler des formulaires qui n'existent pas.

Alex020181 · Answer

OK. Je dirais donc que c'est son passage dans LibreOffice a altéré ton fichier. Essaye de réimporter ces formulaires à partir du fichier d'origine...

Alex020181 · Answer

Tu dois te retaper tout ce qui a attrait au visuel de tes formulaires. Y compris leur recréation si tu ne peux pas les récupérer à partir d'un ancien fichier...