Erreur liée à une variable non définie dans 1 VBA

Résolu/Fermé

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 - 16 mars 2022 à 12:08
yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 - 1 avril 2022 à 11:55

Bonjour,

Lorsque je lance la Macro ci-dessous du fichier fraisFonction => j'ai le message d'erreur qui s'affiche ci-dessous "variable non définie" et les lignes de codage surlignées en jaune qui apparaissent
La Macro a été programmée sur Windows 7 => Est-ce que cela est lié au fait que j'utilise Windows 10 ?
est-ce que c'est ce codage qui est problématique ? " Set wbSourceMinx = Workbooks.Open(Filename:=strPathFile) "
J'ai joint ce fichier frais fonction et le fichier Achat au 28 02 22 lié au codage VBA

Merci de votre aide
Cordialement.

Le lien a été crée pour le fichier frais fonction : https://www.cjoint.com/c/LCqlgutlYWO
Le lien a été crée pour le fichier Achat au 28 02 22 : https://www.cjoint.com/c/LCqlheES5kO

Configuration: Windows / Chrome 99.0.4844.51

A voir également:

Erreur liée à une variable non définie dans 1 VBA
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word

8 réponses

Réponse 1 / 8

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 Ambassadeur 1 549
16 mars 2022 à 12:28

bonjour,
es-tu certain d'avoir pris une copie d'écran immédiatement après l'apparition du premier message d'erreur?
quelles actions fais-tu pour obtenir cette erreur?

Réponse 2 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
Modifié le 16 mars 2022 à 12:38

Bonjour,

ce sont les copies d'écran juste après le message d'erreur => Wbsourceminx.close surligné en jaune

La Macro fonctionne sur Windows 7 et c'est en passant sur Windows 10 elle ne fonctionne plus
est-ce que c'est ce codage qui est problématique ? " Set wbSourceMinx = Workbooks.Open(Filename:=strPathFile) "

Merci pour votre aide

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 1 549
16 mars 2022 à 13:35

Je ne comprends pas bien ce qui se passe.
Deux suggestions:
1) prendre une capture d'écran avec le message d'erreur affiché
2) supprimer, au moins temporairement, la ligne "on error ...". cela ne peux que cacher la vraie raison du soucis.

Réponse 3 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
16 mars 2022 à 14:03

voici le message d'erreur qui s'affiche :

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 1 549
16 mars 2022 à 14:56

Ah, ce n'est pas le message d'erreur que tu as communiqué au départ!

Cela confirme l'utilité de supprimer, au moins temporairement, la ligne "on error ...".

Réponse 4 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
16 mars 2022 à 14:39

je pense que c'est ce codage " Filename:=strPathFile " qui pose problème

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
16 mars 2022 à 15:54

et concernant le codage " codage Filename:=strPathFile ?
est-il correct ?

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 1 549
16 mars 2022 à 15:56

Cette ligne est protégée par le

on error

, qui cache une erreur éventuelle.
La suppression du

on error

va nous éclairer.

Réponse 6 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
16 mars 2022 à 16:09

j'ai une question :

Est-ce que ce codage est correct ? Sheets("Feuil1").Copy after:=wkFraisFonction.Sheets("Anomalie")
VBA me dit que les variables ne sont pas défini ? Pourquoi ?

Réponse 7 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
Modifié le 16 mars 2022 à 16:13

voici les captures d'écran lié au codage Sheets("Feuil1").Copy after:=wkFraisFonction.Sheets("Anomalie")
d'où provient le problème ?

Merci d'avance

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 1 549
16 mars 2022 à 16:38

Je ne vois aucune ligne de code qui assigne une valeur à la variable

wkFraisFonction

.
Elle me semble donc un bon suspect "variable objet non définie".

Si le fichier auquel devrait correspondre cette variable est le fichier dans lequel se trouve le code VBA, peut-être:

set wkFraisFonction = thisworkbook

Réponse 8 / 8

Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
16 mars 2022 à 18:00

merci pour l'information

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 1 549
1 avril 2022 à 11:55

Si cela répond à ta question, peux-tu marquer la discussion comme résolue?

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

VBA : Range avec références variables..

Erreur ! Signet non défini

Erreur de lecture sur iptv smarters

VBA erreur 1004