Sur une feuille excell j'ai un UserForm ou j'ai mis un CommandButton et
quand je clique je voudrais qu'il me fasse aller au répertoire G:\Dossiers
où là je dois aller choisir un fichier, Je sais aller ouvrir un fichier
Dim MyAppID, ReturnValue
MyAppID = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE
G:\ALBERT\MODELES\CDS.doc", 1)
AppActivate MyAppID) mais curieusement j'ai des difficulté, probablement un
gros trou, avec le code pour n'ouvrir que le répertoire, Je suis paumé,
merci de m'aider.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir Albert,
Sub ouv() Application.Dialogs(xlDialogOpen).Show End Sub
devrait faire l'affaire -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Albert" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille excell j'ai un UserForm ou j'ai mis un CommandButton et quand je clique je voudrais qu'il me fasse aller au répertoire G:Dossiers où là je dois aller choisir un fichier, Je sais aller ouvrir un fichier Dim MyAppID, ReturnValue MyAppID = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE G:ALBERTMODELESCDS.doc", 1) AppActivate MyAppID) mais curieusement j'ai des difficulté, probablement un gros trou, avec le code pour n'ouvrir que le répertoire, Je suis paumé, merci de m'aider.
Bonsoir Albert,
Sub ouv()
Application.Dialogs(xlDialogOpen).Show
End Sub
devrait faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"Albert" <NoSpam-af0509@teledisnet.be> a écrit dans le message de
news:uoen5MKKEHA.2576@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous,
Sur une feuille excell j'ai un UserForm ou j'ai mis un CommandButton et
quand je clique je voudrais qu'il me fasse aller au répertoire G:Dossiers
où là je dois aller choisir un fichier, Je sais aller ouvrir un fichier
Dim MyAppID, ReturnValue
MyAppID = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE
G:ALBERTMODELESCDS.doc", 1)
AppActivate MyAppID) mais curieusement j'ai des difficulté, probablement un
gros trou, avec le code pour n'ouvrir que le répertoire, Je suis paumé,
merci de m'aider.
Sub ouv() Application.Dialogs(xlDialogOpen).Show End Sub
devrait faire l'affaire -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Albert" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille excell j'ai un UserForm ou j'ai mis un CommandButton et quand je clique je voudrais qu'il me fasse aller au répertoire G:Dossiers où là je dois aller choisir un fichier, Je sais aller ouvrir un fichier Dim MyAppID, ReturnValue MyAppID = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE G:ALBERTMODELESCDS.doc", 1) AppActivate MyAppID) mais curieusement j'ai des difficulté, probablement un gros trou, avec le code pour n'ouvrir que le répertoire, Je suis paumé, merci de m'aider.
