Discussion :

[Echizen1]

Bonsoir,
Je souhaiterai ouvrir un fichier Excel depuis un formulaire Access.
En fait plus précisément, j'arrive à ouvrir mon classeur Excel mais la pop-up me demandant si je souhaite ouvrir le fichier en lecture seul apparait me damandant mon choix. Je souhaite créer un processus de validation.

Comment faire SVP ?
Merci par avance.

[ft035580]

Salut,

Je souhaite créer un processus de validation

Qu'entends tu par ceci ?

Est ce que ceci pourrai t'aider .

[Echizen1]

Salut,
En fait dans mon formulaire Access j'ouvre 2 fichiers :
- le premier : je le crée puis l'ouvre.
- le second existe déjà et n'est disponible qu'en lecture seule.

Donc au moment d'ouvrir le 2nd, Excel me demande si je souhaite l'ouvrir en lecture seule. Je suis alors obligé de basculer d'access vers Excel pour valider la pop-up.

Je souhaite donc savoir s'il est possible de valider le message automatiquement ?

Merci

[ft035580]

Salut,

Donc au moment d'ouvrir le 2nd, Excel me demande si je souhaite l'ouvrir en lecture seule. Je suis alors obligé de basculer d'access vers Excel pour valider la pop-up.

C'est bizarre, je viens de faire un test afin d'ouvrir un classeur en lecture seule et je n'ai pas de message.

Code :

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

1
2
3
4
5
6
7
Dim AppliExcel As Excel.Application
Dim FichierExcel As Excel.Workbook
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("Chemin.Xls")
AppliExcel.Sheets("FeuilleDuClasseur").Select
...

[Pierre Fauconnier]

Salut

Essaie en insérant un DisplayAlerts= False

Code :

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

1
2
3
4
 
    AppliExcel.DisplayAlerts = False
    Workbooks.Open "MonFichierEnLectureSeule"
    AppliExcel.DisplayAlerts = True

Je n'ai pas testé. A toi de voir et de venir nous dire quoi

[Echizen1]

Salut

Essaie en insérant un DisplayAlerts= False

Code :

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

1
2
3
4
 
    AppliExcel.DisplayAlerts = False
    Workbooks.Open "MonFichierEnLectureSeule"
    AppliExcel.DisplayAlerts = True

Je n'ai pas testé. A toi de voir et de venir nous dire quoi

Bonsoir,
Impeccable, ça marche parfaitement !
J'étais partis sur une histoire de sendkeys mais trop galère !
Là ça fonctionne tout seul ^^

Merci encore !