Erreur 400 sur une macro qui fonctionne.

[Nahd]

Bonjour Ã* tous,

J'ai fait une macro sur Excel qui fonctionne correctement.

Parmi les fonctions, j'ai un onglet de saisie que je duplique une fois rempli via

ActiveSheet.Copy After:=Sheets(4) (sachant que l'activesheet est la feuille 4)

Il se trouve cependant qu'en faisant tourner la macro plusieurs fois de suite, pour dupliquer l'onglet de saisie jusqu'Ã* une dizaine d'exemplaires sur la même feuille, j'ai une erreur 400 au moment de l'exécution de cette ligne.

En enregistrant le fichier puis réouverture, la macro refonctionne parfaitement, mais ce bug m'ennuie car je dois livrer le fichier Ã* un client.

J'espère avoir été clair, si vous avez une idée sur le sujet... merci d'avance.

 

[roro69]

Re : Erreur 400 sur une macro qui fonctionne.

Bonjour
Peut tu donner le nom que tu as donné à ta procédure.
Le nom de ta procédure est peut être un mot réservé à VB
A++

 

[roro69]

Re : Erreur 400 sur une macro qui fonctionne.

Tu peux essayer autrement ceci pour savoir que erreur il y a:

'en début de codetu ajoutes ceci:
On Error GoTo chercheerreur
’Et à la fin de ton code ceci :
exit sub

chercheerreur:
MsgBox Err.Description

A++

 

[Nahd]

Re : Erreur 400 sur une macro qui fonctionne.

Les subs s'encastrent: ci-dessous un extrait de ce qu'il y avant. Tu me fais penser qu'il faudrait que je regarde du côté des variables aussi voir si je n'en déclarerais pas une réservée Ã* VBA.

Juste au-dessus, c'est outil/valeur cible.

(...)

Sub Valeurcible()
Dim Ciblerow As Integer
Dim Cible As Long

Sheets("Saisie").Select
Ciblerow = Range("A8").End(xlDown).Row
Cible = Range("L" & Ciblerow)

Range("L" & Ciblerow).GoalSeek Goal:=Range("C9"), ChangingCell:=Range("B9")

Call JourPrécis
End Sub


Sub JourPrécis()
Dim Dat As String


ActiveSheet.Copy After:=Sheets(4)

(...)

 

[roro69]

Re : Erreur 400 sur une macro qui fonctionne.

Re
Dans ta procédure à la place de :
Call JourPrécis
mets:
JourPrécis

A++

 

[Compte Supprimé 979]

Re : Erreur 400 sur une macro qui fonctionne.

Bonjour Nahd, Roro69

@Roro69 pourquoi supprimer "Call" 😕
Excel traite "Call Procédure" ou "Procédure" exactement de la même façon
C'est juste une question de lecture, plus facile à comprendre "Call Procédure"

@Nahd, essaye peut-être

Sheets(4).Copy After:=Sheets(Sheets.Count)

De plus je ne pense pas que l'erreur vienne de ce code, mais plutôt d'un évènnement lié
Il faudrait mettre le fichier à dispo pour ça 😉

A+

 

[roro69]

Re : Erreur 400 sur une macro qui fonctionne.

Bonjour Bruno45

Sheets("Feuille à copier").Copy After:=Sheets(Sheets.Count)

mais Nahd à ce qu'il dit plus haut il ne veut que copier qu'après la feuille n°4 pas à la fin
Pour le call je suis désolé nahd bruno45 à raison .
A++

 

[Nahd]

Re : Erreur 400 sur une macro qui fonctionne.

J'ai usé du Sheets("Feuille à copier").Copy After:=Sheets(Sheets.Count) mais sans effet, sauf celui de changer l'ordre des feuilles bien sûr.

et en update: ma macro bloque environ au centième onglet créé. Enfin quand je dis 100, c'est plutôt:

4 onglets créés (sheet.copy...), puis exportés et enregistrés dans un autre fichier, et supprimés du premier fichier de base,
2 onglets créés, puis exportés, etc,
12 onglets créés, puis exportés, etc,

jusqu'à réaliser environ l'opération 100 fois.

Est-ce que c'est du au fait qu'Excel numérote les onglets copiés par défaut et donc finit par bloquer (Feuil98, Feuil99, Feuil100 - erreur 400)?

 

[suistrop]

Re : Erreur 400 sur une macro qui fonctionne.

Bonjour,

Est ce que ca ressemble à ce type d erreur?

https://www.excel-downloads.com/threads/erreur-automation-deconnection-client.107913/

 

[Nahd]

Re : Erreur 400 sur une macro qui fonctionne.

Bien joué.

Par la méthode sheets.add le problème disparaît. Pas le mystère avec par contre.

Merci encore, et très bonne soirée.