Discussion :

[petit rabot]

Bonjour, je fais un petit bout de programmes qui me permet de récupérer des données à partir d'un fichier que je veux ouvrir avec excel 2007 en tant que tableau XML. Le problème est qu'à chaque fois que je veux ouvrir mon fichier, excel s'ouvre et me demande toujours comment je veux l'ouvrir:
"en tant que tableaux xml" ou
"en tant que classeur en lecture seule" ou
"utiliser le volet office source xml".
Comment faire pour que celui ci prenne toujours "en tant que tableau xml" sans avoir à cliquer sur quoi que ce soit??
Merci d'avance.

[guefrachi]

peux tu nous donner le code d'ouverture

[petit rabot]

Voici mon bout de 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
Private Sub Command11_Click()
 
    Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
 
'Ajoute \ à la fin s'il y en a pas
    If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
 
'Existance du fichier
    If FSO.FileExists(chemin & Label3(0).Caption) Then
 
        'Rendre invisible Excel
        waExcel.Visible = False
 
        'Importe le fichier texte vers une feuille Excel de façon Largeur fixe avec délimiteur : Tabulation et Space
        waExcel.Workbooks.OpenText chemin & Label3(0).Caption, True, True, True, True, True, True, True, True, True, True ', ":"
 
        'sélectionne l'aplication ouverte
        Set Sheet = waExcel.ActiveWorkbook.ActiveSheet
        Application.AlertBeforeOverwriting = False
 
        'enlève les alertes de fermeture sans enregistrement
        Application.DisplayAlerts = False
 
        'récupérer des donner excel
        square = Sheet.Application.ActiveSheet.Cells(52, 60).Value 'lie la celule
        circularity = Sheet.Application.ActiveSheet.Cells(20, 55).Value 'lie la celule
 
        Label6.Caption = square & "µm/m"
        Label7.Caption = circularity & "mm"
 
        'fermeture d'excel
        waExcel.Application.Quit
 
    End If
 
 
End Sub

[SfJ5Rpw8]

bonsoir,

avant d'aller plus loin
ici tu définie ta variable application ..

Code :

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

Set waExcel = CreateObject("Excel.Application")

utilise la ensuite partout ou tu aurais mis Application. .. dans ton code VBA .

supprime tout ces :

Code :

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

1
2
3
 
Application.quelquechose
waExcel.application.Autrechose

et remplace en utilisant ton objet application : waExcel par :

Code :

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

1
2
3
 
waExcel .quelquechose
waExcel .Autrechose

[petit rabot]

J'ai remplacé tous mes "application" par waExcel, mais toujours la même demande à l'ouverture de celui ci.

[pc75]

Bonjour,

Tu as essayé de rajouter :

Code :

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

1
2
 
waExcel.DisplayAlerts = False