Autres Application.Quit Erreur d'exécution 13

S

sg394

XLDnaute Nouveau
Bonjour!

J'aurais encore besoin de vos lumières!

Dans mon code, j'ai cette commande:
If Not Range("P4").Value Like "Version 0.3" Then Application.Quit

Étrangement, plutôt que de quitter immédiatement, j'ai un message d'erreur:
Erreur d'exécution "13":
Incompatibilité de type

Je n'arrive pas à comprendre pourquoi. Ne riez pas de moi, je débute en VBA!
 
Solution
S
Bonjour sg394, le fil,

tes 2 fichiers en retour. :)

pour ton 1er fichier, code VBA de Module1 :

VB: 
Sub maj()
  With Workbooks("Registre de production.xlsm").Worksheets("Feuil1")
    If .[P4] Like "*Version 0.3*" Then
      '================================
      'modifications
      .[M6:M10].Interior.Color = 49407
      '================================
      ActiveWorkbook.Save
    End If
  End With
  Application.Quit
End Sub

j'ai laissé Like "*Version 0.3*" ; mais si en P4 tu saisis toujours une donnée comme "Version 0.3" ou "Version 1.4" sans rien d'autre à gauche, ni à droite, alors...​
Trier par date Trier par votes

Discussions similaires

T
  • Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
311
Phil69970
Phil69970
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
943
Phil69970
Phil69970
H
  • Résolu(e)
XL 2019 Erreur 1004 et erreur d'exécution 13 après Inputbox
Réponses
4
Affichages
848
Phil69970
Phil69970
T
  • Question
Autres Erreur d'exécution 13 - Excel 2007
Réponses
9
Affichages
744
Tsegp
T
C
  • Question
Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients
Réponses
9
Affichages
1 K
fanch55
fanch55
J
  • Résolu(e)
XL 2016 Lancer une macro sur plusieurs feuilles
Réponses
3
Affichages
1 K
Janis
J
M
  • Résolu(e)
Microsoft 365 vba erreur 13 incompatibilité de type
Réponses
11
Affichages
3 K
Mwadepaname
M
P
  • Question
XL 2013 Erreur 13: Incompatibilité de Type
Réponses
4
Affichages
847
pierrof
P
B
  • Question
Not Application.Intersect + Hyperlinks : erreur 1004
Réponses
6
Affichages
1 K
benjaminxls
B
B
  • Question
Erreur Incompatible Type 13
Réponses
2
Affichages
1 K
BENAM69
B

Membres actuellement en ligne

15 membres et 128 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11