Microsoft 365 Erreur Automation

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Didier03
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Didier03

XLDnaute Junior
Bonjour tout le monde , j'aurai une petite question ,
j'ai une macro qui est assez ancienne , et je pense que depuis que suis passé sous microsoft 365 j'ai une erreur d'exécution'440'.J'ai essayé sur un autre PC même problème

Erreur d'automation et cela me met sur la ligne de Menu.Show

avez vous eu ce genre de problème ?

merci beaucoup d'avance
 
Trier par date Trier par votes
Didier03 à dit:
Bonjour tout le monde , j'aurai une petite question ,
j'ai une macro qui est assez ancienne , et je pense que depuis que suis passé sous microsoft 365 j'ai une erreur d'exécution'440'.J'ai essayé sur un autre PC même problème

Erreur d'automation et cela me met sur la ligne de Menu.Show

avez vous eu ce genre de problème ?

merci beaucoup d'avance
Cliquez pour agrandir...

Bonjour,
L'erreur est dans le code de l'userform
Dans l'éditeur vb, se placer sur 'Menu.Show' et appuyer successivement sur F8 pour trouver la ligne d'erreur.
 
Vote positif 0 Vote négatif
je tombe là dessus sur la ligne en orange ...

Private Sub Image2_Click()
creation.Show
End Sub
Private Sub Image3_Click()
raffrai_adresse
adresse.Show
End Sub
Private Sub Image6_Click()
Utilisateurs.Show
End Sub
Private Sub Image7_Click()
If droit_decompte_debit = False Then
MsgBox ("Vous n'avez pas les droits !")
Exit Sub
End If
decompte.Show
End Sub
Private Sub UserForm_Initialize()
On Error GoTo erreur
m_erreur = "M0020"
pass = False
' ouverture de la base
Set db = DAO.Workspaces(0).OpenDatabase("\\mlsind02\base_rapport$\base.mdb", False, False)
' version soft
var_version = "2.10"
Menu.version.Caption = "TEF1 B.J. Ver " & var_version
var_utilisateur = UCase(Environ$("USERNAME"))
If var_utilisateur = "BNN2MLS" Then var_utilisateur = InputBox("var_utilisateur", , var_utilisateur)
' charge les droits de l'utilisateur
var_requete = "select * from utilisateurs where login='" & var_utilisateur & "' ;"
Set rs = db.OpenRecordset(var_requete)
Do While Not rs.EOF
If rs.Fields("droit_lecture") = False Then
rs.Close
MsgBox "Vous n'avez pas de droits de lecture !"
Application.DisplayAlerts = False
Application.Quit
End If
pass = True
adresse.adresse_11.Visible = rs.Fields("droit_administrer")
adresse.Label16.Visible = rs.Fields("droit_administrer")
Menu.Label5.Visible = rs.Fields("droit_administrer")
Menu.Image6.Visible = rs.Fields("droit_administrer")
droits_creation = rs.Fields("droit_creer")
droits_validation = rs.Fields("droit_valider")
droit_decompte_debit = rs.Fields("droit_decompte_debit")
memo_service = rs.Fields("service")
pass = False
Exit Do
Loop
rs.Close
'***** trace
temporaire = "select * from erreurs ;"
Set jo = db.OpenRecordset(temporaire)
jo.AddNew
jo.Fields("champ1") = "ouverture"
jo.Fields("champ2") = var_utilisateur & " Le: " & Now & " " & var_version & " Nom PC:" & Environ$("COMPUTERNAME")
jo.Update
jo.Close
'***** stat
Open "\\mlsind02\stat_macro$\stat_rapport_control.log" For Random As #1
Message = "O" & Date
Get #1, 1, tempo
If tempo = "" Then tempo = 1
tempo = tempo + 1
Put #1, 1, tempo
Put #1, tempo, Message
Close #1
Exit Sub
erreur:
envoi_erreur
End Sub
Private Sub UserForm_Terminate()
On Error GoTo erreur
m_erreur = "M0021"
db.Close
Application.Quit
Exit Sub
erreur:
envoi_erreur
End Sub
 
Vote positif 0 Vote négatif
Didier03 à dit:
je tombe là dessus sur la ligne en orange ...

Private Sub Image2_Click()
creation.Show
End Sub
Private Sub Image3_Click()
raffrai_adresse
adresse.Show
End Sub
Private Sub Image6_Click()
Utilisateurs.Show
End Sub
Private Sub Image7_Click()
If droit_decompte_debit = False Then
MsgBox ("Vous n'avez pas les droits !")
Exit Sub
End If
decompte.Show
End Sub
Private Sub UserForm_Initialize()
On Error GoTo erreur
m_erreur = "M0020"
pass = False
' ouverture de la base
Set db = DAO.Workspaces(0).OpenDatabase("\\mlsind02\base_rapport$\base.mdb", False, False)
' version soft
var_version = "2.10"
Menu.version.Caption = "TEF1 B.J. Ver " & var_version
var_utilisateur = UCase(Environ$("USERNAME"))
If var_utilisateur = "BNN2MLS" Then var_utilisateur = InputBox("var_utilisateur", , var_utilisateur)
' charge les droits de l'utilisateur
var_requete = "select * from utilisateurs where login='" & var_utilisateur & "' ;"
Set rs = db.OpenRecordset(var_requete)
Do While Not rs.EOF
If rs.Fields("droit_lecture") = False Then
rs.Close
MsgBox "Vous n'avez pas de droits de lecture !"
Application.DisplayAlerts = False
Application.Quit
End If
pass = True
adresse.adresse_11.Visible = rs.Fields("droit_administrer")
adresse.Label16.Visible = rs.Fields("droit_administrer")
Menu.Label5.Visible = rs.Fields("droit_administrer")
Menu.Image6.Visible = rs.Fields("droit_administrer")
droits_creation = rs.Fields("droit_creer")
droits_validation = rs.Fields("droit_valider")
droit_decompte_debit = rs.Fields("droit_decompte_debit")
memo_service = rs.Fields("service")
pass = False
Exit Do
Loop
rs.Close
'***** trace
temporaire = "select * from erreurs ;"
Set jo = db.OpenRecordset(temporaire)
jo.AddNew
jo.Fields("champ1") = "ouverture"
jo.Fields("champ2") = var_utilisateur & " Le: " & Now & " " & var_version & " Nom PC:" & Environ$("COMPUTERNAME")
jo.Update
jo.Close
'***** stat
Open "\\mlsind02\stat_macro$\stat_rapport_control.log" For Random As #1
Message = "O" & Date
Get #1, 1, tempo
If tempo = "" Then tempo = 1
tempo = tempo + 1
Put #1, 1, tempo
Put #1, tempo, Message
Close #1
Exit Sub
erreur:
envoi_erreur
End Sub
Private Sub UserForm_Terminate()
On Error GoTo erreur
m_erreur = "M0021"
db.Close
Application.Quit
Exit Sub
erreur:
envoi_erreur
End Sub
Cliquez pour agrandir...
Re..
Cette ligne ne provoque pas d'erreur, il faut aller plus loin avec F8
Mais....
Il y a certainement ouverture d'une base de donnée Access avec des codes que je ne connais pas et pour lesquelles je ne serais d'aucun secours.
Désolé.
Repose la question avec un nouveau post et le classeur avec l'userform en PJ.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
412
TooFatBoy
TooFatBoy
BenHarber
  • Résolu(e)
Microsoft 365 Définir une variable Worksheet d'après son codeName ?
Réponses
14
Affichages
188
BenHarber
BenHarber
M
  • Question Question
Microsoft 365 Réponse de formule vide…
Réponses
7
Affichages
264
ralph45
ralph45
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
258
kiki29
kiki29
S
  • Résolu(e)
Microsoft 365 Problème de référence à une Feuil de calcul avec .FormulaLocal
Réponses
6
Affichages
111
sylvanu
sylvanu
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
377
Oddoneju
O
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
404
D. HANIB
D
W
  • Résolu(e)
XL 2016 Comment gérer mon erreur 13 ? [Solution en #21]
2
Réponses
23
Affichages
777
TooFatBoy
TooFatBoy
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
151
Phil69970
Phil69970
O
  • Question Question
Microsoft 365 Détection valeurs croissante/décroissante dans courbe
Réponses
4
Affichages
237
Oli-excel
O
F
  • Question Question
XL 2021 création d'un fichier "xlsm"
Réponses
5
Affichages
354
flag06
F
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
331
TomJoad
T
crackerwood
  • Question Question
XL 2016 Macro erreur exécution
Réponses
8
Affichages
712
crackerwood
crackerwood
M
  • Question Question
XL 2021 Erreur 424
Réponses
14
Affichages
1 K
Marie1608
M
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
454
LuckyShuri
L
R
  • Question Question
XL 2021 Historique de modifications si le suivi des modifications n'est pas activé
Réponses
3
Affichages
480
Romance91
R
M
  • Résolu(e)
Microsoft 365 Erreur code listbox
Réponses
8
Affichages
660
Marvin57
M
Electron24
  • Question Question
Microsoft 365 Classeur disparu
2
Réponses
19
Affichages
1 K
VIARD
V
M
  • Résolu(e)
XL 2013 Formule ne s'exécute pas complètement
Réponses
6
Affichages
459
metalbarzotti
M
G
  • Question Question
XL 2016 Erreur 7 : mémoire insuffisante
Réponses
3
Affichages
638
Glubby21
G
Retour