Bonjour
je vous écrit pour une petite question sur excel.
dans le passer des gens sur ce forum mon grandement aider a crée mon system de facture excel.
depuis 2 semaine jais du initialiser mon portable et réinstaller Excel.
quand j'ai voulue aller faire une facture j'ai eu une boite erreur visual basic erreur d'exécution 13 .
je ne comprend pas quel est cette erreur et pourquoi elle est apparue.
pourriez vous tu m'aider a nouveau svp.
si il serais plus facile de comprendre l'erreur avec le fichier complet faite le moi savoir et je le posterez.
merci beaucoup.
@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)
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
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
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)
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
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
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