Erreur introuvable en VBA

Bonjour,

Lors de l'exécution d'un code, un message d'erreur apparaît à l'exécution de la ligne :

Code:

---

1 2	FichNumero = "d:\Dossiers\DOCUMENTS GENERAUX\Sur mesure - originaux\Habari Kani\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx"

---

Il s'agit de Erreur d'exécution 91, variable objet ou variable de bloc With non définie.

D'après mes recherches, cela signifierait qu'il y a une boucle ou if ouvert et non fermé.
Voici le code, je sèche dessus depuis un bon moment, je ne vois pas ce qui manque.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Option Explicit   Sub b()   OpenFileExcel   End Sub Function OpenFileExcel() Dim appxl As Excel.Application Dim FichNumero As Workbook Set appxl = CreateObject("Excel.application")   If FichierExiste("C:\WinBooks\Office\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx") Then FichNumero = "C:\WinBooks\Office\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx" ElseIf FichierExiste("d:\Dossiers\DOCUMENTS GENERAUX\Sur mesure - originaux\Habari Kani\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx") Then FichNumero = "d:\Dossiers\DOCUMENTS GENERAUX\Sur mesure - originaux\Habari Kani\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx" Else MsgBox ("Ce fichier n'existe pas") End If   With appxl   .Workbooks.Open Filename:=FichNumero, Password:="160302" .Visible = False   End With   End Function     Function FichierExiste(NomFichier As String) As Boolean FichierExiste = Dir(NomFichier) <> "" And NomFichier <> "" End Function

---

Vous avez une idée ? Merci d'avance pour votre aide.

Bien à vous

Henri

Bonjour,

ta variable FichNumero est déclarée en temps qu'OBJET classeur. C'est à dire que cette variable est censée représenté un objet qui est un classeur Excel

or, tu l'utilises pour renseigner le chemin d'accès au fichier, c'est à dire un String

tu as le choix mais voici le plus simple en termes de modifications à apporter : déclarer FichNumero de type String au lieu de Workbook

Salut,

Tu défini FichNumero comme un objet de type Workbook

Code:

---

Dim FichNumero As Workbook

---

et ensuite tu lui affectes une chaine de caractères: ça c'est pas possible!

Code:

---

FichNumero = "d:\Dossiers\DOCUMENTS GENERAUX\Sur mesure - originaux\Habari Kani\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx"

---

C'est pas plutôt ça que tu veux faire, càd sauvegarder le classeur?

Code:

---

1 2	FichNumero.SaveAs "d:\Dossiers\DOCUMENTS GENERAUX\Sur mesure - originaux\Habari Kani\160302 - Habari Kani - Numerotation des ordres de paiements bancaires.xlsx"

---

Ou alors il faut définir FichNumero comme un String

Code:

---

Dim FichNumero As String

---

Merci à Joe, merci à Philippe.

La solution String m'a permis de tomber sur un autre problème :lol:

Le fichier que je souhaite ouvrir est censé le faire sans apparaître à l'écran, hors il apparaît à l'écran et demande le mot de passe, alors qu'il est indiqué dans l'instruction.

Code:

---

1 2 3 4 5 6 7

With appxl   .Workbooks.Open Filename:=FichNumero, Password:="160302" .Visible = False   End With

---

Serait-ce à cause de la méthode de valorisation de FichNumero ?

Henri

Bonjour,

c'est le fichier ou l'application Excel qui doit être masquée ?

là c'est l'application ... qui se masque APRES ouverture du fichier

essaye déjà comme ça :

Code:

---

1 2 3 4 5 6

With appxl .ScreenUpdating = False .Workbooks.Open Filename:=FichNumero, Password:="160302" .Visible = False End With

---

Bonjour,

Merci beaucoup pour la solution "IsNumeric(Num)", c'est effectivement tout aussi efficace et nettement moins alambiqué que la fonction que j'avais imaginée.

Henri