Discussion :

[nberthonneau]

Bonjour,

après des recherches sur votre site, je trouve des éléments interressants mais je n'arrive pas à les appliquer à mon cas.

J'aimerai via un bouton ouvrir un fichier excel.

Mon besoin est tout simple, les réponses me le parait moins.

Merci de votre aide

[toto14]

Bonjour,

Je ne sais pas si je réponds complétement à ta question car ce que je vais t'indiquer ne sert qu'à ouvrir Excel (pas un fichier précis).
Dans une macro, tu indiques l'action "ExécuterApplication" et dans Ligne de commande, tu indiques le chemin pour atteindre le .exe d'excel.
Ensuite, tu appliques cette macro au bouton souhaité.
En espérant que cela t'aide un peu, sinon, je suis sure que queslu'un aura la réponse à ta question.
Bye

[nberthonneau]

Non, ça je savais faire !!


mon souhait est en vba ouvrir un fichier excel prédéfini.

[Julien Dufour]

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
 '--- Déclaration des variables
Dim xls As Excel.Application
Dim wkb As Excel.Workbook
Dim rng As Excel.Range
 
 
    '--- Ouverture du fichier où les données ont été exportées
    Set xls = CreateObject("Excel.Application")
    Set wkb = xls.workbooks.Open(strExport_File)
 
 
'Libération de la mémoire (à mettre dans la fonction de sortie, doit fonctionner même si une erreur survient)
    Set rng = Nothing
    Set wkb = Nothing
    Set xls = Nothing

Ensuite pour les fonctions de sauvegarde etc...

[nberthonneau]

Qu'entends tu par "fichier où les données ont été exportées" ?

Pour info, c'est un fichier excel qui existe déjà et qui n'a que pour but d'apporter des infos particulières à l'utilisateur.

[nberthonneau]

y a t il une bibliothèque particulière à charger afin que les Excel.application ou Excel.workbook fonctionne ? Et si oui laquelle ?

Merci

[nberthonneau]

Bon à force de chercher, on trouve !!

Pensez à cocher dans vba (dans les références (outils\références)) "Microsoft Excel 11.0 Object Library" puis à copier le code suivant :

Code :

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

1
2
3
4
5
6
Dim monexcel As Excel.Application
Dim wb As Excel.Workbook
 
Set monexcel = New Excel.Application
Set wb = monexcel.Workbooks.Open(FileName:="chemin_d'accès")
monexcel.Visible = True

Le fichier s'ouvre correctement.

Une question toutefois, il s'ouvre en lecture seule, comment modifier cet attribut afin que le fichier s'ouvre en lecture/ecriture ?

[coyott]

Je ne sais pas si je repond a ta question mais a tus regardé du côté de la fonction shell en vba ?

elle permet de lancer un fichier avec une aplication ?

maintenant si tu veux te placer sur une page précise de ton fichier j'avoue ne pas savoir faire mais ca doit être faisable (bien que si tu peux le faire sur une macro d'ouverture de ton fichier ca serait plus simple)

[nberthonneau]

Bon encore une fois j'ai trouvé !! Il faut croire que le fait d'écrire la question nous aide à y répondre !!

il faut rajouter à la ligne d'ouverture du fichier la commande

IgnoreReadOnlyRecommended:=True

Ce qui nous donne donc :

Code :

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

Set wb = monexcel.Workbooks.Open(FileName:="chemin_d'accès", ignorereadonlyrecommended:=True)

Désolé pour ces posts inutiles, j'espère qu'ils serviront à d'autre tout de même

[benoit_iund]

Si ton fichier est dans un repertoire du path


'Ouverture du fichier.xls

Code :

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

 i_rep = Shell("Excel.exe monfichier.xls", vbMaximizedFocus)

sinon ajoute le chemin complet

Code :

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

i_rep = Shell("Excel.exe C:\....\monfichier.xls", vbMaximizedFocus)

sa marche bien

[marc_calagac]

bien sûr qu'ils serviront, 'j'ai affaire à la même chose en ce moment