Discussion :

[adilissimo]

Bonjour,
en vb6 j'arrive a acceder a un fichier excel en l'ouvrant mais je reussis pas a ajouter des feuille non plus a activer une. voila mon code (ce qui est en rouge ne marche pas merci de m'aider

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
Private Sub File1_Click()
Dim xlApp As Excel.Application
Dim xlWkb As Excel.Workbook
Dim selectedfile As String
selectedfile = File1.Path & "\" & File1.FileName
 
Set xlApp = CreateObject("Excel.application")
 
    Set xlWkb = xlApp.Workbooks.Open(selectedfile)  
 
xlApp.Visible = True
Set xlWkb = Nothing
Set xlApp = Nothing

ThisWorkbook.Sheets.Add after:=Sheets(1), Count:=3
Sheets(1).Name = "pentagone"
Sheets(2).Name = "deb deta"
Sheets(3).Name = "deb tot"
Sheets(4).Name = "deb echelo"
End Sub

[ThierryAIM]

Déjà poster dans le bon forum, c'est mieux

Ensuite, il ne faut pas détruire tes objets avant de t'en servir mais les utiliser correctement

[adilissimo]

je vois pas ou je pourrais poster cette question, puisque ca concerne le vb6, puisque en vba j'ai aucun probleme en ca.
pr la distruction dis moi est ce que j'ai fait une bigg betise en tt cas vous m'excusez je suis un hyper debutant qui a une mauvaise histoire avec l'informatique surtout la programmation.
merci pour ta reponse

[ThierryAIM]

je vois pas ou je pourrais poster cette question, puisque ca concerne le vb6

évidement que maintenant c'est le bon forum, puisque j'y ai déplacé ton message, le forum général n'étant pas destiné aux questions techniques

Dans ton code tu fais :
création des objets :

Code :

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

1
2
Set xlApp = CreateObject("Excel.application")
Set xlWkb = xlApp.Workbooks.Open(selectedfile)

puis destruction des objets, avant de t'en servir :

Code :

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

1
2
Set xlWkb = Nothing
Set xlApp = Nothing

Utilise donc ton objet xlWkb pour faire ce que tu veux dans ton classeur

Ne détruis les objets que lorsque tu as fini

Je te laisse chercher un peu, il y a des exemples sur le forum

[adilissimo]

wi c'etais ca. apres je pense que tous le code que j'ai fait en VBA sera valable en Vb. je vais essayer et je reviens si je trouverais des prbs.
merci