Discussion :

[volganne]

Bonjour,

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

Ce code :

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

[marot_r]

Sur quelle ligne est l'erreur ?

[volganne]

Merci Marot...

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

Code :

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

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 :

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

1
2
xls.Quit
Set xls = Nothing

a la fin du code.

[Ric500]

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.

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

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

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

devenant directement

Code :

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

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

en plus tu alleges ton code

[marot_r]

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

Code :

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

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+

[volganne]

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

Merci je fais mes tests.