Discussion :

[poupich]

Bonjour,

A chaque fois que j'essaie d'ajouter une feuille à un classeur excel à partir d'un modèle que j'ai crée j'ai une:
Exception de HRESULT : 0x800A03EC
Est-ce que quelqu'un pourrait m'expliquer exactement à quoi ça correspond j'ai du mal à comprendre, ainsi qu'une démarche à suivre pour que ça marche.
SVP. Merci beaucoup.

PS: J'utilise la méthode Worksheets.Add(Type:="Chemin du classeur") et ça me met cette exception.

[olsimare]

Bonjour.

Peux-tu poster le code complet ?
--> lancement de l'appli excel
--> création du workbooks
...

Comme ça c'est un peu court pour t'aider ;-)

[poupich]

Private Sub verifierfeuilles()

Dim appexcel As Microsoft.Office.Interop.Excel.Application
appexcel = CreateObject("excel.application")
appexcel.Visible = False
Dim classeur As Microsoft.Office.Interop.Excel.Workbook
classeur = GetObject("C:\Documents and settings\Classeur contrôles\Paramétrage CQ.xls")
Dim feuillesélectionnée As String
feuillesélectionnée = choixcontrôlecb.Text
Dim feuillevérifiée As Microsoft.Office.Interop.Excel.Worksheet
Dim feuille As Microsoft.Office.Interop.Excel.Worksheet

'Ouverture de la feuille si elle existe

For Each feuillevérifiée In classeur.Worksheets
If feuillevérifiée.Name = feuillesélectionnée Then
Me.Hide()
appexcel.Visible = True
appexcel.Workbooks.Open("C:\Documents and settings\Classeur contrôles\Paramétrage CQ.xls")

For Each feuille In appexcel.ActiveWorkbook.Worksheets
If feuille.Name = feuillesélectionnée Then
feuille.Activate()
End If

Next feuille
Exit Sub
End If
Next feuillevérifiée

'Création d'une nouvelle feuille si elle n'existe pas

Me.Hide()
appexcel.Visible = True
appexcel.Workbooks.Open("C:\Documents and settings\Classeur contrôles\Paramétrage CQ.xls")
Dim nouvellefeuille As Microsoft.Office.Interop.Excel.Worksheet
nouvellefeuille = appexcel.ActiveWorkbook.Worksheets.Add(Type:="C:\Documents and settings\Classeur contrôles\Modèle Lots contrôles.xlt")
nouvellefeuille.Name = feuillesélectionnée


End Sub

Voici le code en question. Tout le début marche bien, c'est cette ligne d'ajout qui provoque l'exception. Lorsque je laisse uniquement "Add" sans précision j'ai bien une feuille vierge excel qui est ajoutée et renomée correctement. Si quelqu'un a une petite idée...
Merci beaucoup ça fait un moment que je galère et vais de rubriques d'aide en tutoriels, forums... Sans succès

[olsimare]

Bonjour.

Il me semble que la mêthode Add n'accepte pas ce type d'argument.

expression.Add(Before, After, Count, Type)

Dans l'aide d'excel j'ai :
Type --> Argument de type Variant facultatif. Type de la feuille. Il peut s'agir de l'une des constantes XlSheetType suivantes : xlWorksheet, xlExcel4MacroSheet ou xlExcel4IntlMacroSheet. La valeur par défaut est xlWorksheet.

Si ce que tu veux faire c'est ajouter un feuille basée sur un modèle personnel, le plus simple est peut être de copier cette feuille dans ton classeur de destination.

cdt.

[poupich]

Merci Olsimare ,

J'ai suivi ton conseil et ça marche en faisant comme ça. Ca m'étonne un peu qu'avec la méthode "Add "je ne puisse pas ajouter de modèle perso car dans les aides que j'ai consulté ça avait l'air possible mais bon... Cette solution palie bien à mon problème.
Si toutefois quelqu'un à une autre réponse, je prends.