Discussion :

[Kounta]

Bonjour

J'ai le même genre de problème que sur cette discussion, sauf que dans mon cas les variable sous - je pense - bien déclarées :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add(Application.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")
Set xlSheet = xlBook.Worksheets("Planning")
oldname = xlBook.FullName
xlBook.Activate
xlSheet.Activate

Et pourtant j'ai le même genre de plantage - pas systématiquement, disons 4 execution sur 5 plantent, et pas toujours au même endroit !

[dumas.blr]

Bonjour kounta,

Juste une question
s'agit-il d'un nouveau classeur Excelou d'un classeur existant ?
car pour moi quand tu spécifie :

Code :

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

Set xlBook = xlApp.Workbooks.Add(Application.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

C'est que tu veux créer un nouveau classeur excel
et donc la ligne suivante :

Code :

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

Set xlSheet = xlBook.Worksheets("Planning")

ne pourra pas fonctionner, car si tu ouvre un nouveu classeur, la feuille par défaut se nommera "feuil1" ou "sheet1"
Il faut donc être cohérent :
- soit tu cherches la feuille "planning" du classeur existant "FF_PLANNING_ST.xlsx" et dans ce cas la ligne correcte sera

Code :

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

Set xlBook = xlApp.WorkbooksApplication.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

soit tu crée une nouvelle feuille dans un nouveau classeur et dans ce cas la syntaxe sera :

Code :

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

Set xlSheet = xlBook.Worksheets.Add("Planning")

Je pense que ton problème vient de là

[Kounta]

Très intéressant comme réponse, merci dumas.blr !
En fait, j'ouvre un classeur existant qui sert de modèle, ce classeur source ne devant pas être modifié car il sert de base à chaque execution.
Dans ce classeur modèle, il y a déjà la feuille "Planning" que je charge dans xlSheet.

Vous allez me dire: "si le classeur source n'est qu'un modèle, pourquoi ne pas utiliser le format de fichier modèle excel .xlt ?"
J'ai donc remplacé :

Code :

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

Set xlBook = xlApp.Workbooks.Add(Application.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

par:

Code :

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

Set xlBook = XlApp.Workbooks.Open(Application.CurrentProject.Path & "\FF_PLANNING_ST.xltx")

ça plante un peu moins, mais c'est pas encore ça. Je vais essayer selon ta méthode...

[Kounta]

Bon, ça marche pas, la ligne

Code :

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

Set xlBook = xlApp.WorkbooksApplication.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

renvoie une erreur 438 "Cet objet ne gère pas cette propriété ou méthode".

[Kounta]

Je retourne ton truc dans tout les sens mais en fait je ne vois pas où tu veux en venir:

Code :

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

Set xlBook = xlApp.WorkbooksApplication.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

Avec ce code j'affecte un chemin d'accès directement à un workbook, évidemment ça ne marche pas

[dumas.blr]

Bonjour Kounta,

Bon, je ne suis pas un pro du VBA sous excel, il faut que je creuse un peu.

As tu essayé la syntaxe

Code :

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

Set xlBook = XlApp.Workbooks.Open(Application.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

Car l'ouverture d'un template Excel me semble correspondre à une règle précise, du genre, je créé un nouveau fichier excel à partir du modèle untel

Dans ce cas (je n'ai pas regardé plus précisément, mais l'aide en ligne doit le spécifier), tu devrait pouvoir utiliser ton instruction

Code :

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

Set xlBook = xlApp.Workbooks.Add(Application.CurrentProject.Path & "\<nom de mon nouveau fichier excel>.xlsx"), <basé sur le modèle>

Je regarde si j'ai plus d'info et je reviens vers toi

[dumas.blr]

Voila ce que l'aide en ligne nous dit pour l'ajout d'un nouveau classeur

Référence du développeur Excel
Workbooks.Méthode Add
Cette méthode crée un nouveau classeur, qui devient le classeur actif.
Syntaxe

expression.Add(Modèle)

expression Variable qui représente un objet Workbooks.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Modèle Facultatif Variante Détermine la façon dont le nouveau classeur est créé. Si cet argument est une chaîne spécifiant le nom d'un fichier Microsoft Excel existant, le nouveau classeur est créé d'après le modèle de ce fichier. Si cet argument est une constante, le nouveau classeur contient une seule feuille du type spécifié. Il peut s'agir d'une des constantes XlWBATemplate suivantes : xlWBATChart, xlWBATExcel4IntlMacroSheet, xlWBATExcel4MacroSheet ou xlWBATWorksheet. Si cet argument est omis, Microsoft Excel crée un nouveau classeur avec un certain nombre de feuilles vierges (ce nombre est défini par la propriété SheetsInNewWorkbook).

Valeur renvoyée
Objet Workbook qui représente le nouveau classeur.

[dumas.blr]

Pour l'ouverture d'un fichier existant

Workbooks.Open, méthode
Afficher tout
Masquer tout
Cette méthode ouvre un classeur.
Syntaxe

expression.Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse, MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine, Séparateur, Modifiable, Notifier, Convertisseur, AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)

expression Variable qui représente un objet Workbooks.

effectivement , l'instruction

Code :

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

Set xlBook = xlApp.WorkbooksApplication.CurrentProject.Path & "\FF_PLANNING_ST.xlsx")

ne marchera que si ton classeur est déjà ouvert

[Kounta]

Add, Open, .xlts, .xlsx ... rien à faire, j'ai toujours des plantages et des processus EXCEL.EXE résiduels

[dumas.blr]

Il faut peut-être libérer les process en mettant une instruction du type

Code :

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

set xlApp = nothing

[Kounta]

Je l'ai fait en fin de procedure :
Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set xlSheet = Nothing
xlBook.Close
Set xlBook = Nothing
 
For Each wb In xlApp.Workbooks
    wb.Close SaveChanges:=False
    Set wb = Nothing
Next
 
xlApp.Quit
Set xlApp = Nothing

Comme j'ai un processus EXCEL.EXE résiduel, la boucle For ... Next était sensée fermer TOUS les classeurs ouverts, mais ça n'a pas résolu mon problème. Et j'ai des plantages intempestifs avec ou sans cette boucle.

[Kounta]

Le plantage a lieu le plus fréquemment à deux moments de l'execution :

Code :

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

If xlSheet.Cells(5, i).Value = "" Then lastcol = i

et :

Code :

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

1
2
3
4
5
6
txt = "FF_PLANNING_ST_" & Me.An.Value & "_S" & Me.[Semaine].Value + 1 & ".xlsx"
rep = xlApp.Application.GetSaveAsFilename(txt, "Classeur Microsoft Excel (*.xlsx), *.xlsx")
If rep <> False Then
    xlBook.SaveAs FileName:=rep
End If
xlBook.Saved = True

J'ai mis en rouge la partie surlignée par le debogger.

Pourtant il n'y a aucune erreur dans les variables.
Le message d'erreur le plus fréquent est 462 "Le serveur est indisponible" alors que tout est fait en local (ce message devrait apparaître lorsqu'on utilise CreateObject avec un fichier en réseau et que la connexion est perdue, ce n'est pas le cas ici). C'est comme si le lien avec xlApp était perdu subitement !