Autres Application.Quit Erreur d'exécution 13

sg394 · 12 Mars 2021

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!

soan · 13 Mars 2021

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...

sg394 · 13 Mars 2021

soan à dit:
à toi de tester, puis à te lire pour avoir ton avis.

Mon avis? Si je vais au Royaume-Uni, je vais plutôt visiter le Nomadic!

Plus sérieusement, ton code me semble bien mieux que ce que j'avais fait. En comparaison, mon code c'est du bricolage!

Merci!

soan · 13 Mars 2021

@sg394, le fil

j'ai trouvé : Nomadic eh ben ! t'as des goûts de luxe !!!

merci pour ton appréciation sur mon code VBA !

soan

Autres Application.Quit Erreur d'exécution 13

sg394

XLDnaute Nouveau

soan

sg394

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Discussions similaires