Erreur dans code

Bonjour à toutes et à tous,

J'ai réalisé un code sous VBA en mélangeant à la fois mes maigres connaissances et l'utilisation de l'enregistreur de macro (ce qui je pense est un gros défaut mais comme on dit faut de merles on manges des grives).

Cependant j'ai une erreur dans mon code : erreur 424.

Une âme charitable pour m'aider ou me donner des pistes de réflexion?

Bonne soirée

Cordialement

Pierro26

Bonjour Pierro26,

Peux-tu préciser la ligne sur laquelle l'erreur se produit?

Bonjour toutes et tous

De mon côté 'erreur 8'

de l'image rafraîchir (Image 1) feuille 'Overview' ==> macro Actualiser ==> du Module 1

cause : Workbook absent SBB Fleet Overview _WO FC_1.4 (voir ci-dessous)

'Définir le raccourci wb pour le classeur PI work order Reporting
On Error Resume Next  ' j'ai  ajouté pour ne plus avoir cette erreur code 8
Set wb1 = Workbooks("SBB Fleet Overview _WO FC_1.4")
'Définir le raccourci ws pour l'onglet Reporting

mais pour le code 424 pas encore vu

après toujours dans la macro Actualiser des variables, i et j non déclaré

peut être mettre :

Dim i As Integer
Dim j

crdlt,

André

Bonjour à tous les deux,

Merci pour vos réponses! Effectivement j'ai changé le nom du fichier avant l'envoi et je n'ai pas adapté le code en conséquence.

J'ai deux erreurs qui s'affichent à la suite pour les lignes 138 et 140 :

ws2.Range("Tableau_Lancer_la_requête_à_partir_de_INFO_DB345").
    RemoveDuplicates Columns:=Array(2, 5), Header:=xlYes
ws1.Range("A").Select
Call Macro3

Je pensais qu'il s'agissait d'une erreur de ma part lorsque je faisais tourner la macro en mode pas à pas mais non le problème persiste.

Merci pour votre aide.

Bonne journée

Pierro26

Bonjour Pierro26,

Je te propose de remplacer les lignes 138 et 139 par :

ws2.Range("Tableau_Lancer_la_requête_à_partir_de_INFO_DB345") _
.RemoveDuplicates Columns:=Array(2, 5), Header:=xlYes

et de supprimer la ligne 140 (qui ne me semble pas servir à quelque chose...)

Bonjour Gvialles,

Je viens de faire quelques modifications et le code marche comme je souhaite.

Merci pour votre aide à tous les deux.

Bonne journée

Pierro26