Erreur 91 sur code VBA

Version imprimable

Bonjour,

Je ne comprend plus du tout et je cherche sans trouver...

Ce code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Function fichier_NS()
Dim xls As Excel.Application
On Error GoTo errHnd
Dim iStr_Repertoire As String
iStr_Repertoire = Nz(DLookup("[chemin]", "Param"), "")
If iStr_Repertoire = "" Then
    MsgBox "Répertoire non défini."
    GoTo fin
End If
Set xls = Nothing
Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open Filename:=iStr_Repertoire & "fichier-BIS-For creation - No Soft.xls"
xls.Visible = True
    xls.Rows("1:1").Select
    xls.Selection.Delete Shift:=xlUp
    xls.ActiveWorkbook.SaveAs Filename:=iStr_Repertoire & "IB - no soft.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    xls.Workbooks.Open Filename:=iStr_Repertoire & "fichier-For creation - No Soft.xls"
xls.Visible = True
    xls.Windows.Arrange ArrangeStyle:=xlHorizontal
    xls.Windows("IB - no soft.xls").Activate
    xls.Range("A1").Select
    xls.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    xls.Selection.Copy
    xls.Windows("fichier-For creation - No Soft.xls").Activate
    xls.Range("A1").Select
    xls.Selection.End(xlDown).Select
    xls.ActiveCell.Offset(1, 0).Activate
    xls.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    xls.Windows("fichier-For creation - No Soft.xls").Activate
    Call Flash_clip
    xls.Windows("IB - no soft.xls").Activate
    xls.ActiveWindow.Close savechanges:=False
    xls.Windows("fichier-For creation - No Soft.xls").Activate
    xls.ActiveWindow.WindowState = xlMaximized
    xls.Columns("J:K").Select
    xls.Selection.NumberFormat = "m/d/yyyy"
    xls.Cells.Select
    xls.Cells.EntireColumn.AutoFit
    xls.Range("B4").Select
    xls.ActiveWorkbook.SaveAs Filename:=iStr_Repertoire & "Fichiers fichier No Soft.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
GoTo fin
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
fin:
xls.Quit
Set xls = Nothing
End Function

Fonctionne au premier lancemant et génère une "Erreur 91 - Object variable or with block variable not set." si j'essaye de la refaire tourner apres...

Avez vous un idée SVP ?

Merci

31/08/2010, 18h22
marot_r

Sur quelle ligne est l'erreur ?
31/08/2010, 20h53
volganne
Merci Marot...

En général le code s'écroule sur cette ligne...

Code:

xls.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

En fait, j'ai l'impression qu'Excel ne se ferme pas, (il reste dans les process), même avec :
Code:

1 2 xls.Quit Set xls = Nothing
a la fin du code.
01/09/2010, 10h23
Ric500

Références d'objets

Une piste dans l'aide ACCESS:

Remarque Utilisez CreateObject lorsqu'il n'existe aucune instance en cours de l'objet. S'il en existe une, une nouvelle instance est lancée et un objet du type indiqué est créé. Pour utiliser l'instance en cours ou pour lancer l'application en chargeant un fichier, utilisez la fonction GetObject.
01/09/2010, 11h46
Jean-Philippe André
Salut,
utiliser les notions d'ActiveCell ou de Selection sous Access est tres deconseille.

La notion de Selection est faite pour marcher sous Excel, on recommande d'ecrire en totalite le code sous Access :
Code:

1 2 xls.Rows("1:1").Select xls.Selection.Delete Shift:=xlUp
devenant directement

Code:

xls.Rows("1:1").Delete Shift:=xlUp

en plus tu alleges ton code :ccool:
01/09/2010, 22h58
marot_r
Citation:
Envoyé par volganne

En fait, j'ai l'impression qu'Excel ne se ferme pas, (il reste dans les process), même avec :

Code:

1 2 xls.Quit Set xls = Nothing

a la fin du code.
C'est très possible, ce code ne fonctionne correctement QUE si le Excel est visible sinon Excel ferme le fichier actif MAIS reste en mémoire.

Peux-tu vérifier si ton XLS est visible ?

A+
02/09/2010, 14h03
volganne

Yesss.... Excel était pas visible...Ca va marcher maintenant.

Merci je fais mes tests.

:ccool: