Discussion :

[anais83]

Bonjour à tous ,

Malgré mes recherches je trouve la solution nulle part, peut être pourrez vous m'aider !

Lorsque je lance ma macro le message suivant s'affiche: " System Error &H80070057 (-2147024809). The parameter is incorrect. " .
Je suis donc allée voir dans mon Visual basic , pour voir ce qui bug dans mes macros mais lorsque je lance ma macro depuis VB , le fichier se ferme....

Si quelqu'un a une idée du problème je suis preneuse !

Merci de m'avoir lu et bonne journée à vous à tous !

A

[ONTAYG]

Bonjour,

Il faut que tu donnes plus de détails, entre autre que tu mettes le code qui plante sur le forum.

Là c'est comme si tu dis au garagiste que ta voiture est en panne et qu'il faut la réparer sans la lui emmener.

ONTAYG

[Franc]

une recherche Google donne ceci:

L'erreur `System Error &H80070057 (-2147024809). The parameter is incorrect.` peut être liée à un problème avec les macros dans un classeur Excel. Certains utilisateurs ont signalé avoir résolu ce problème en ouvrant le module de code VBA et en sélectionnant `Debug` puis `Compile VBAProject` ¹. D'autres ont suggéré d'ouvrir une copie de sauvegarde du fichier (si vous en avez une), d'exporter le module endommagé, puis dans votre fichier actuel, de supprimer le module endommagé et d'importer la version propre ¹.

Avez-vous essayé l'une de ces solutions?

(1)Getting System Error &H80070057 (-2147024809) - Stack Overflow. https://stackoverflow.com/questions/...057-2147024809 Consultée 04/04/2023.
(2) System Error &H80070057 (-2147024809). The parameter is incorrect.. https://answers.microsoft.com/en-us/...b-d0ecf977ca98 Consultée 04/04/2023.

[anais83]

Bonjour à tous les deux,

Et merci pour votre retour .

Comme proposé par Franck , j'ai ouvert le module de code VBA et en sélectionnant `Debug` puis `Compile VBAProject` , ce qui m'a permis de voir le module et la ligne de code qui bug.
Le message d'erreur est maintenant le suivant :

"Erreur d'exécution '-2147319767 (80028029)' : Erreur Automation Référence future non valide, ou référence à un type non compilé."

Vous trouverez ci dessous la macro qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Zb_Corrections()

Sheets("Corrections").Select "(=> ligne qui ne fonctionne pas )"
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("TDB").Select
    Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Corrections").Select
    Range("A2").Select
    ActiveSheet.Paste
    
    Columns("A:A").Select
    Selection.Replace What:="-", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" _", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="_", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
 Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TDB").Select
    Range("C7").Select
    ActiveSheet.Paste
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End Sub

Je ne comprends pas pourquoi cela ne fonctionne pas , alors que ça a tjs fonctionné jusqu'à présent... ...

Merci beaucoup pour votre aide
Bonne journée à tous !

[Franc]

Salut,
Peut-être parce que tu as mis des guillemets à "(=> ligne qui ne fonctionne pas )" et donc il considère que c'est un argument de .select, supprime ce commentaire ou remplace par une apostrophe.

[anais83]

Salut ,

non non ça n'y est pas dans ma macro je l'ai seulement ajouté dans le code ici pour indiquer la ligne qui se surligne en jaune lorsque je fais le débugage.

Merci

[goninph]

Bonjour,

Depuis quelques jours mes fichiers qui fonctionnent depuis plusieurs années ont ce code d'erreur

Hier, j'ai travaillé sur le fichier comme tous les jours tout fonctionnait et ce matin lorsque je veux ouvrir le fichier plus rien ne fonctionne

Toutes les macros plantent avec ce code d'erreur

Aucun code n'est visible, seuls les Userform sont visibles, mais le code est invisible

Impossible de supprimer ou d'insérer des modules, le fichier plante

Mon fichier est inutilisable HELP c'est la panique merci

Même problème avec un autre PC

[goninph]

Bonjour,

Toutes les sauvegardes effectuées hier sont corrompues
Incroyable

J'ai pu récupérer mon fichier
Ouvrir Excel
Sélectionner le fichier avec 1 seul clic
Cliquer en bas à droite sur le bouton ouvrir
Ouvrir et réparer
Les macros sont de nouveau accessibles
Le fichier fonctionne à nouveau
En 15 ans c'est la première fois que je rencontre ce type de problème

Bon dimanche

[goninph]

Jeudi passé j'ai ajouté une modif dans une macro Outlook
Durant la journée, j'ai utilisé mes macros et tout fonctionnait impeccable
En fin de journée, à la fermeture, Outlook m'a posé la question, voulez-vous enregistrer les modifications et j'ai dit oui forcément

Le lendemain les macros ne fonctionnaient plus et impossible de voir le code, seul les Userform apparaissent dans l'éditeur VBA, mais pas le code
Incroyable ces macros fonctionnent depuis 3 ans sans problème
A ce jour je n'ai pas encore réussi à récupérer mes macros
Par contre, je les avaient sauvegardées dans un dossier

Mais impossible de supprimer ou d'importer des modules ou autre

Incroyable

Ce beug est similaire à celui du message ci-dessous concernant Excel

Si l'un d'entre vous a une idée je suis preneur

Je vous remercie et vous souhaites un agréable dimanche

[goninph]

Bonjour,

La solution pour récupérer le code VBA corrompu Outlook :
PC1 = VBA corrompu
Ouvrir le dossier du PC1 : C:\Users\xxxxxx\AppData\Roaming\Microsoft\Outlook
Couper le fichier du PC1 : VbaProject.OTM
Coller le fichier dans le même dossier du PC2, si le fichier existe déjà dans le PC2 le renommer avant de coller le fichier du PC1
Ouvrir Outlook puis l'éditeur VBA du PC2, effectuer une petite modification du code et enregistrer
Couper le fichier du PC2 et le coller sur le PC1
Ouvrir Outlook et tout fonctionne
Ne pas oublier de renommer le fichier original dans le PC2

La solution pour récupérer le code VBA corrompu Excel et le fichier :
Ouvrir Excel
Nouveau classeur
Fichier
Ouvrir
Parcourir
Rechercher dossier du fichier corrompu et sélectionner avec un seul clique
En bas à droite, cliquer sur le menu déroulant du bouton ouvrir
Ouvrir et réparer
Le fichier s'ouvre et toutes les macros fonctionnent à nouveau

Bonne soirée

[Louarey]

Salut

Merci pour la solution.

Ça a fonctionné pour moi (ouvrir en réparant).
Je n'ai pas vu de dégâts dans mes macros suite à la réparation.
Ça sent quand-même la mise à jour Microsoft foireuse à plein nez ...

Bonne journée