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

Dranreb à dit:

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

Cliquez pour agrandir...

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.

Cliquez pour agrandir...

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.

Cliquez pour agrandir...