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

[onyirimba]

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.

 

[Staple1600]

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]

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

Merci beaucoup
Cordialement

 

[Dranreb]

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

 

[onyirimba]

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]

Re

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

 

[onyirimba]

C’est dim strpathfile as string ?

 

[Dranreb]

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

 

[onyirimba]

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]

Ç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]

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]

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 :
[

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]

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 :
[

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]

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 :
[

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]

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 ?