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

onyirimba · 15 Mars 2022

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.

Dranreb · 7 Avril 2022

Bonjour.
En débogage, mettez des espions sur les expressions impliquées pour voir si elles sont correctes.
Remarque: je n'ai vu nulle part, dans tout le projet VBA, d'initialisation par un Set de wkFraisFonct.
Cela dit c'est le projet d'un classeur qui s'appelle "fraisFonction.xlsm". Ça y ressemble, je trouve . Si c'est bien ce classeur portant la macro que vous voulez désigner, remplacez simplement partout cette variable par ThisWorkbook.

Staple1600 · 15 Mars 2022

Bonsoir le fil,

Pas ouvert les PJ
Mais en me basant sur les images
Pas vu de
Dim sheetDataIni As Worksheet
Dim sheetData As Worksheet

onyirimba · 15 Mars 2022

Bonsoir
Merci pour l’information
Et pour wbsourceminx.close en jaune ?
Quel est le problème ?

Merci beaucoup
Cordialement

Dranreb · 15 Mars 2022

Bonsoir.
Je pense que le classeur n'a pas pu être ouvert.

onyirimba · 15 Mars 2022

Bonsoir

Est-ce que vous savez comment modifier le codage vba pour que le classeur soit ouvert ?
La macro fonctionne sur Windows 7 et non sur Windows 10
Cela doit être 1 spécificité de Windows 10 qui génère le message d’erreur ?

Merci beaucoup

Staple1600 · 15 Mars 2022

Re

Il manque aussi: strPathFile
Pas déclaré, ni défini
(Sauf erreur de ma part)

onyirimba · 15 Mars 2022

C’est dim strpathfile as string ?

Dranreb · 15 Mars 2022

Oui, et il faut l'initialiser à une référence de fichier existant

onyirimba · 15 Mars 2022

Dranreb à dit:
Oui, et il faut l'initialiser à une référence de fichier existant

Je n’ai pas compris la phrase…
Qu’est que cela signifie ?

Dranreb · 15 Mars 2022

Ça signifie mettre devant une instruction strPathFile = "C:\MonFichier.xlsx"
Ce n'est qu'un exemple évidemment. Il y a peu de chances que ce soit "C:\MonFichier.xlsx" qu'il faille mettre.

onyirimba · 16 Mars 2022

Bonjour,
J'ai essayé de mettre une instruction devant mais je n'ai pas trouvé la bonne instruction dons la Macro ne fonctionne toujours pas

Dranreb · 16 Mars 2022

Bonjour.
Ayant depuis ouvert un des fichiers pour y jeter un petit coup d’œil j'ai vu que c'était en fait une variable globale et Public. Vérifiez si elle est convenablement initialisée.
Je vous conseille d'écrire le début de la procédure comme ça :
[

Code:

Private Sub extractData2Fileini()
   Dim wbSourceMinx As Workbook
   ' Ouvrir le fichier et extraite la feuille 1 pour la mettre dans le classeur
   On Error Resume Next
   Set wbSourceMinx = Workbooks.Open(Filename:=strPathFile)
   If Err Then
      MsgBox "Workbooks.Open Filename:=""" & strPathFile & """" & vbLf & "==> Err " & Err _
         & vbLf & Err.Description, vbCritical, "extractData2Fileini"
      Exit Sub
      End If
   On Error GoTo 0

Laissez tomber partout cette procédure addAnomalie qui concatène un message dans un String qui n'est affiché nulle part.

onyirimba · 16 Mars 2022

Dranreb à dit:
Bonjour.
Ayant depuis ouvert un des fichiers pour y jeter un petit coup d’œil j'ai vu que c'était en fait une variable globale et Public. Vérifiez si elle est convenablement initialisée.
Je vous conseille d'écrire le début de la procédure comme ça :
[

Code:

Private Sub extractData2Fileini() Dim wbSourceMinx As Workbook ' Ouvrir le fichier et extraite la feuille 1 pour la mettre dans le classeur On Error Resume Next Set wbSourceMinx = Workbooks.Open(Filename:=strPathFile) If Err Then MsgBox "Workbooks.Open Filename:=""" & strPathFile & """" & vbLf & "==> Err " & Err _ & vbLf & Err.Description, vbCritical, "extractData2Fileini" Exit Sub End If On Error GoTo 0

Laissez tomber partout cette procédure addAnomalie qui concatène un message dans un String qui n'est affiché nulle part.

Bonjour,

Merci beaucoup je regarde

onyirimba · 16 Mars 2022

Dranreb à dit:
Bonjour.
Ayant depuis ouvert un des fichiers pour y jeter un petit coup d’œil j'ai vu que c'était en fait une variable globale et Public. Vérifiez si elle est convenablement initialisée.
Je vous conseille d'écrire le début de la procédure comme ça :
[

Code:

Private Sub extractData2Fileini() Dim wbSourceMinx As Workbook ' Ouvrir le fichier et extraite la feuille 1 pour la mettre dans le classeur On Error Resume Next Set wbSourceMinx = Workbooks.Open(Filename:=strPathFile) If Err Then MsgBox "Workbooks.Open Filename:=""" & strPathFile & """" & vbLf & "==> Err " & Err _ & vbLf & Err.Description, vbCritical, "extractData2Fileini" Exit Sub End If On Error GoTo 0

Laissez tomber partout cette procédure addAnomalie qui concatène un message dans un String qui n'est affiché nulle part.

Bonjour,

Le fichier en question "Achats au 28.02.22" ne s'ouvre pas au démarrage de la Macro lorsque je rajoute le codage que vous m'avez indiqué de rajouter
Le fichier se trouve dans le chemin ci-après : N:\17-SUIVI AFFAIRES\IBE\VBA\VBA Frais de fonctionnement
et il est dénommé : "Achats au 28.02.22"

qu'est-ce qui ne va pas ?

Merci d'avance

onyirimba · 16 Mars 2022

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 ?

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

onyirimba

XLDnaute Occasionnel

Pièces jointes

Dranreb

Staple1600

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

onyirimba

XLDnaute Occasionnel

onyirimba

XLDnaute Occasionnel

Discussions similaires