XL 2016 ?Erreur visual basic erreur d'exécution 13?

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #2

Bonsoir le fil, le forum

@patrick965
Ne joins ton fichier original, mais une copie allégée (sans fioritures).
Juste une copie anonymisée qui respecte la structure de ton classeur original (même noms des feuilles, même nom de fichier)
Laisse également le code VBA (notamment celui dans ThisWorkBook)

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 8 Janvier 2018

• #3

Bonsoir.
IL semble que la ligne qui provoque l'erreur, à la regarder, elle ne veut pas dire grand chose
IIf? deux fois le signe =?...
Si tu retrouves une ancienne version compare le code, car je pense que ce code a été modifié par erreur

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #4

Bonsoir sousou

Je ne vois pas de double signe égal
Et ce petit test ne renvoie pas d'erreur

VB:

Sub test()
Dim n$
n = "2018123456789"
n = IIf(Left(n, 4) = CStr(Year(Date)), Val(Mid(n, 9)), 0)
MsgBox n
n = "2017123456789"
n = IIf(Left(n, 4) = CStr(Year(Date)), Val(Mid(n, 9)), 0)
MsgBox n
End Sub

 

Dernière édition: 8 Janvier 2018

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 8 Janvier 2018

• #5

Ok
Essai peut-être de mattre un point d'arret sur la ligne afin de vérifier si les valeurs engagées dans la ligne sont cohérentes en particulier n.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #6

Re

@sousou
Tu t'adresses à moi ou à patrick965? (ou tu n'as pas vu le message#4?)

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 8 Janvier 2018

• #7

autant pour moi, il est tard.Je devais m'adresser aux deux
Mais ceci est pour Patrick:
essai de diviser ton problème ainsi afin de voir quelle instruction bloque
MsgBox Left(n, 4)
MsgBox Val(Mid(n, 9))
MsgBox CStr(Year(date))
n = IIf(Left(n, 4) = CStr(Year(date)), Val(Mid(n, 9)), 0)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #8

Re

Il faudrait aussi tester chemin et nomfichier

Le plus simple ce serait quand même d'avoir un classeur exemple

 

Vote positif 0 Vote négatif

P

patrick965

XLDnaute Impliqué

• 9 Janvier 2018

• #9

merci beaucoup de votre temp.
vraiment je ne comprend pas rien a été modifier.
la seule chose qui a été fait est que nous avons réinstaller Excel.
vous trouverez mon fichier en piece jointe
merci beaucoup

 

Pièces jointes

• SOUMISSION test 2018.xlsm

  229.8 KB · Affichages: 58

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Janvier 2018

• #10

A voir aussi le fichier
Numero_Facture.xls

 

Vote positif 0 Vote négatif

P

patrick965

XLDnaute Impliqué

• 15 Janvier 2018

• #11

bonjour les amis
désoler du délais jetais a l'extérieur
avez vous eu le temp de trouver quel est la cause de mon bugg.
merci

 

Pièces jointes

• Numero_Facture.xlsx

  8.1 KB · Affichages: 24

Vote positif 0 Vote négatif

P

patrick965

XLDnaute Impliqué

• 17 Janvier 2018

• #12

il y a tu quelqu'un qui peu m'aider jai vraiment besoin de ce fichier fonctionnel et je ne trouve pas pourquoi il ne fonctionne plus.
svp merci

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Janvier 2018

• #13

Bonjour
reprenons
dans ta macro il y a l'appel à une macroexcel 4
Peux- tu en dire plus (le language macro excel4) c'est ancien. elle est où?

 

Vote positif 0 Vote négatif

P

patrick965

XLDnaute Impliqué

• 17 Janvier 2018

• #14

Bonjour sousou
Cest exactement ce fichier que jutilise depuis environ 2 ans sans souci.
Je ne comprend pas cest juste depuis que j'ai reformater et changer mon programme excel que ca a fait ca.
Avant quand jouvrais mon fichier soumission la date étais a jour et le numéro de soumission ce générais seul.
Je fesais ma soumission et cliquais sur enregistrer et ca créais un dossier pour ce client et enregistrais 3 format de fichier don't un format pdf a envoyer a mes client.
Ensuite chaqie modification que j'apportais a ma soumission lors de l'enregistrement une lettre a b c d etc apparaissait et bout du numéro de soumission.
Et lorsque je finissais les travaux et que javais un payment j'inscrivais un montant a payement ou dépot et lors de l'enregistrement le fichier ce transformais en facture.
Pourquoi ca ne fonctionne plus je ne comprend pas ce qui cloche.
Merci de ton aide

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Janvier 2018

• #15

re
En ouvrant le fichier essai ainsi(peut-être que lamacro excel4 n'est pas jouable dans les nouvelles version d'excel)
Si tu souhaites ne pas ouvri le fichier regarde avec la méthode ado dans ce forum
If nomfich <> "" Then
' n = ExecuteExcel4Macro("'" & chemin & "[" & nomfich & "]Feuil1'!R1C1")
Dim dest
Set dest = Workbooks.Open(chemin & nomfich)
n = dest.Sheets(1).Range("a1").Value
dest.Close savechanges:=False

 

Vote positif 0 Vote négatif