Erreur 400 sur une macro qui fonctionne.

roro69

XLDnaute Impliqué

• 10 Mai 2010

• #2

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++

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 10 Mai 2010

• #3

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

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

N

Nahd

Guest

• 10 Mai 2010

• #4

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)

(...)

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 10 Mai 2010

• #5

Re : Erreur 400 sur une macro qui fonctionne.

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

A++

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Mai 2010

• #6

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

Code:

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+

 

Dernière modification par un modérateur: 10 Mai 2010

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 10 Mai 2010

• #7

Re : Erreur 400 sur une macro qui fonctionne.

Bonjour Bruno45

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

Cliquez pour agrandir...

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++

 

Vote positif 0 Vote négatif

N

Nahd

Guest

• 10 Mai 2010

• #8

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)?

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 10 Mai 2010

• #9

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/

 

Vote positif 0 Vote négatif

N

Nahd

Guest

• 10 Mai 2010

• #10

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.

 

Vote positif 0 Vote négatif