Discussion :

[tamtam64]

Bonjour,

J'ai cette erreur tout le temps alors qu'est ce qui n'est pas bien écrit?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim xlApp as excel.application
dim curbook as workbook : dim xlbook1 as workbook
dim dicoDeLiens as dictionary
Set dicoDeLiens = GetPath(ThisWorkbook.Worksheets("Lien fichiers").Range("Fichier"))
Set curbook = xlApp.ThisWorkbook
xlApp.Visible = False
'Détermine les différents PnL Pour nos périmètres
Set xlbook1 = xlApp.Workbooks.Open(dicoDeLiens("Fichiers P&L"), , True)
If Verif(xlbook1) Then
Call Main.PNL(xlbook1)

Je ne sais pas pourquoi je ne peux pas definire une autre appli excel en paralele thisworkbook ce n'est pas possible?
ps : getpath c'est une fonction perso pour recuperer les liens de diferents fichiers..
Merci aux gens qui m'aideront

[gnain]

Bonjour,
tu as oublier

Code :

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

Set xlApp = CreateObject("Excel.Application")

puis dans ton exemple Set curbook = xlApp.ThisWorkbook ne sert à rien

[tamtam64]

Oui mais j'ai mal recopié j'ai mis dim xlApp as new excel.application c'est pareil non? pas besoin du set a prioris

merci pour ta reponse en tt cas j'essaye de debugger , j'ai du mal a gerer les feuilles en fait

[gnain]

Enlève la ligne:

Code :

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

Set curbook = xlApp.ThisWorkbook

comme çela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_2()
 
Dim xlApp As New Excel.Application
Dim xlbook1 As Workbook
 
xlApp.visible = True
 
Set xlbook1 = xlApp.Workbooks.Open("C:\ton chemin\fichier.xlsm", , True)
 
Set xlApp = Nothing
Set xlbook1 = Nothing
 
End Sub

pour le reste on ne peut pas deviner!

[kiki29]

Salut,encore un drame du copier/coller

Oui mais j'ai mal recopié j'ai mis dim xlApp as new excel.application c'est pareil non?

pas exactement ..... à lire et assimiler : Early ou Late Binding