Version imprimable
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
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
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.
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 :
Je ne comprends pas pourquoi cela ne fonctionne pas , alors que ça a tjs fonctionné jusqu'à présent... :( ...Code:
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
42Sub 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
Merci beaucoup pour votre aide :)
Bonne journée à tous !
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.
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 :)
Bizarre, chez moi cette ligne passe sans problème, le code s'arrête à Activesheet.Paste, probablement parce que je n'ai pas toutes les données.
En passant, je trouve qu'il y a beaucoup de .select dans ton code, pas sûr que ce soit nécessaire.
Si tu pouvais fournir ton classeur pour que je puisse tester, je pourrais peut-être optimiser.
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
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
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
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
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