IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

Erreur 91 apparue du jour au lendemain


Sujet :

VBA

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    code
    Inscrit en
    mars 2021
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : code

    Informations forums :
    Inscription : mars 2021
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Erreur 91 apparue du jour au lendemain
    Bonjour à tous !

    Je m'occupe d'un macro d'audit pour mon entreprise, ce macro est défini selon un calendrier d'audit, lié à une fiche de question par machine
    Le fichier était fonctionnel jusqu'à aujourd'hui, où une erreur 91 variable objet ou variable de bloc with non définie est apparue.

    Aucune modification du fichier n'a eu lieu, ce qui me laisse supposer qu'une mise à jour office est peut-être responsable ?
    Les versions antérieures du fichier (jusqu'à 2 ans) ont toutes la même erreur aussi.
    J'ai essayé d'ajouter un Set, de mettre une condition dans le cas où la variable est nulle, mais rien n'y change, j'ai l'ultime espoir que cette erreur soit connue et qu'elle saute aux yeux à un fin connaisseur sans qu'il ai à trop réfléchir !
    L'erreur se situe à ce niveau ( tout en bas du code complet):
    Nom : erreur.PNG
Affichages : 32
Taille : 9,6 Ko

    Le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
     
     
    Option Explicit
    Option Base 1
     
     
    Public util As String
    Public OpbBouton() As New MdCOpb
    Public upOpbBouton() As New upmdcopb
    Public upvaliderbouton() As New updata
    Public txtbox() As New Classe3
    Public uptxtbox() As New Classe2
    Public utilisateur() As New Classe1
    Public choixaudit() As New choixaudit
    Public choixsousaudit() As New choixsousaudit
    Public retourbouton() As New retour
    Public validerbouton() As New valider
    Public userbouton() As New valuser
    Public datemaj() As New datemaj
    Public mcmaj() As New mcmaj
    Public choix1() As New choix
    Public quitter() As New quit
    Public Collect As Collection
    Public user, auditmc, auditsousmc, email As String
    Public jour As Date
    Public DerLg As Long
    Public Derlg2 As Long
    Public derlg3, derlg4, derlg5, derlgm, derlgc, derlgmc, derlgsmc, derlg10, derlg12, derlgnbm, derlgrev, machin As Long
    Public frequence, userlogin, rev, w, i, j, x, majdate, majmc As Variant
    Public realisej, realises, realisem, realisea, Nbjm, realise3, result, resultna, nbok, nbnok, nbna As Long
    Public proddt, proddt2, dt, mois, annee, week, prod, dateenr, dateeq, revmc As Variant
    Public eq1 As Range
    Public reponse(1, 10)
    Public quest()
    Public adresse(5)
    Public date_enr(5), eq, eq2, centre, MC, mc2, s As Variant
    Public typemc()
    Public adr(50)
     
     
     
    Declare Function GetSystemMetrics32 Lib "user32" _
        Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
     
    Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
    Function Get_Login() As String
    'Récupération et renvoi du login windows
        Dim lpBuff As String * 25
        Dim ret As Long
     
        'Extraction du login
        ret = GetUserName(lpBuff, 25)
     
        'Renvoi
        Get_Login = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
     
    End Function
    Public Function NombreDeJoursDansMois(MaDate As Date)
        NombreDeJoursDansMois = Day(DateSerial(Year(DateAdd("m", 1, Now())), Month(DateAdd("m", 1, Now())), 1) - 1)
    End Function
    Private Sub Auto_Open()
    DEMMARAGE
     
    End Sub
     
    Sub DEMMARAGE()
     
    Dim user As String
    Dim NbCol As Integer
    Dim NbRow As Integer
    Dim CopyRange, copyrange1 As Range
    Dim PasteRange, pasterange1 As Range
    Dim i As Integer
    Dim j, x As Integer
    Dim tab_quest()
    Dim question As Long
     
     
    realisej = 0 'A1'
    realises = 0 'A2'
    realisem = 0 'B1'
    realisea = 0 'B2'
    realise3 = 0 'B3'
    jour = Now()
    mois = Month(Now())
    week = DatePart("ww", Now())
    annee = Year(Now())
    proddt = Format(jour, "yyyymmdd")
    Nbjm = Day(DateSerial(Year(DateAdd("m", 1, Now())), Month(DateAdd("m", 1, Now())), 1) - 1)
    dateenr = ActiveWorkbook.BuiltinDocumentProperties("Last save time") 'date dernière enregistrement du fichier
     
    date_enr(1) = ActiveWorkbook.BuiltinDocumentProperties("Last save time") 'date dernière enregistrement du fichier
    date_enr(2) = Format(date_enr(1), "yyyymmdd")
    date_enr(3) = DatePart("ww", date_enr(1))
    date_enr(4) = Month(date_enr(1))
    date_enr(5) = Year(date_enr(1))
    userlogin = Application.UserName
    Sheets(2).Cells.ClearContents
    Sheets(10).Cells.ClearContents
    Sheets(10).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ControleSiOutlookOuvert
    If Hour(Now()) < 5 Then
        dt = Format(Now() - 1, "yyyymmdd")
        dateeq = dt & "3"
        Else
        If Hour(Now()) > 4 And Hour(Now()) < 13 Then
            dt = Format(Now(), "yyyymmdd")
            dateeq = dt & "1"
           ElseIf Hour(Now()) > 12 And Hour(Now()) < 21 Then
            dt = Format(Now(), "yyyymmdd")
            dateeq = dt & "2"
        Else
            dt = Format(Now(), "yyyymmdd")
            dateeq = dt & "3"
        End If
    End If
     
     
        Set eq1 = Sheets("CALENDRIER").Range("A1:A20000").Find(dateeq, LookIn:=xlValues)
        With eq1
         eq = eq1.Adress
         eq2 = Sheets("Calendrier").Range(eq).Offset(0, 1)
        End With

    Merci à vous d'avance, je continue les recherches de mon côté, je màj le topic si solution trouvée !

  2. #2
    Membre expérimenté Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    mai 2004
    Messages
    1 152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : mai 2004
    Messages : 1 152
    Points : 1 707
    Points
    1 707
    Par défaut
    Bonjour

    Ton code est vieillot et pas très optimisé mais, pour ce qui est de ton erreur, ce qui me saute aux yeux, c'est que la ligne en jaune est incorrectement orthographiée. Le mot Address prends deux d; pas un seul (https://docs.microsoft.com/en-us/off....range.address).

    Quand je dis peu optimisé; d'après toi, de quel type sont ces variables: Public user, auditmc, auditsousmc, email AsString ?

    Seul email est de type string, les autres sont des variants. Cette syntaxe de définir plusieurs variables et un seul type est une erreur de conception. Lire plus https://docs.microsoft.com/en-us/off...ring-variables

    Tu définis aussi eq comme variant mais non, vu que tu y stockes une adresse de cellules, il s'agit donc d'une chaîne de caractères.

    Ceci pour dire que ton code n'est pas "optimum" et que tôt ou tard tu risques encore d'avoir des petits "soucis" qui vont intervenir.

    Bonne journée.
    Christophe (cavo789)
    Mes scripts Open Source : https://github.com/cavo789

  3. #3
    Expert éminent sénior

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    6 157
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 6 157
    Points : 15 188
    Points
    15 188
    Billets dans le blog
    42
    Par défaut
    Citation Envoyé par aissakaki Voir le message
    Bonjour,

    L'onglet CALENDRIER est écrit en minuscule et en majuscule : problème.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
         With Sheets("CALENDRIER")
              Set Eq1 = .Range("A1:A20000").Find(CDate(dateeq), LookIn:=xlValues)
              If Not Eq1 Is Nothing Then eq2 = Eq1.Offset(0, 1)
              Set Eq1 = Nothing
         End With
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

Discussions similaires

  1. Erreur cannot find android.app.Activity class du jour au lendemain
    Par Nicolas UPSUD dans le forum Android Studio
    Réponses: 0
    Dernier message: 12/12/2020, 14h32
  2. [IIS 7.5] Erreur 402.1 du jour au lendemain
    Par DUCKY_ dans le forum IIS
    Réponses: 16
    Dernier message: 15/02/2013, 17h12
  3. Erreur importation sur Eclipse du jour au lendemain
    Par Leniouns dans le forum Eclipse Java
    Réponses: 9
    Dernier message: 16/01/2012, 15h40
  4. erreur 617 du jour au lendemain
    Par Michelk12 dans le forum Informix
    Réponses: 3
    Dernier message: 09/09/2011, 12h05
  5. message d'erreur lors de mise à jour d'une BD access
    Par Abydos Business Group dans le forum Access
    Réponses: 2
    Dernier message: 25/01/2006, 16h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo