Discussion :

[rberniga]

Bonjour à tous,

Je suis un peu novice en la matière alors j'aurais d'un petit coup de main

Je cherche à ouvrir un fichier Excel par le biais d'une macro VBA (voir code en dessous). J'aurais deux petites questions :

1) Est-il possible de lier le chemin du fichier à ouvrir à celui du fichier où se trouve le bouton de commande et sui est déjà ouvert ?
Il faudrait que VBA aille chercher : "chemin du fichier actuellement ouvert"\Source1.xls. Comment faire ?
2) Je souhaiterais que ce fichier s'ouvre mais en mode normal et non en lecture seule comme c'est le cas par défaut. C'est pour çà que j'ai ajouté ReadOnly:=False mais cela ne fonctionne pas, il s'ouvre toujours en mode lecture seule. Une idée ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = True
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("D:\profiles\P469UXE\Bureau\ESSAI VBA\Source1.xls", ReadOnly:=False)
    appExcel.SaveWorkspace
    appExcel.Workbooks.Close
    appExcel.Application.Quit
End Sub

Merci beaucoup par avance.

[zyhack]

Bonjour

pour le premier point

Code :

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

Chemin = Workbooks ("Source1.xls").Path

pour le second je ne peux pas te dire car j'ai essayé ton code et il fonctionne chez moi. A tout hasard il ne serait pas en lecture seul dans l'explorateur window?

[fring]

Bonjour

1) Est-il possible de lier le chemin du fichier à ouvrir à celui du fichier où se trouve le bouton de commande et sui est déjà ouvert ?

Si je comprend bien la question Thisworkbook.Path te donnera le chemin du fichier contenant la macro.

Pour ce qui est de la propriété "ReadOnly" il faudrait la modifier avant d'ouvrir le fichier. Jette un oeil au chapitre IV-A de ce tuto --> http://silkyroad.developpez.com/VBA/...etesClasseurs/