Discussion :

[Henri1830]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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

[Philippe PONS]

Salut,

Tu défini FichNumero comme un objet de type Workbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FichNumero As Workbook

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FichNumero As String

[Henri1830]

Merci à Joe, merci à Philippe.

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
With appxl
     .ScreenUpdating = False
    .Workbooks.Open Filename:=FichNumero, Password:="160302"
    .Visible = False
End With

[Henri1830]

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