Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire
C:\sybille\devis. Je voudrais en cliquant sur un bouton, que la liste des
fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour
faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son
fichier.
Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans
une liste déroulante. Pourquoi pas ?
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
jps
bonjour sybille une macro est-elle bien nécessaire? si tu vas dans Outils Options d'un classeur quelconque et que dans l'onglet Général, tu mets dans Dossier par défaut C:sybilleDevis chaque fois que tu cliqueras sur le bouton Ouvrir de la barre d'outils de n'importe quel classeur, la boîte "Ouvrir" s'affichera à la hauteur de ton sous-répertoire "devis"... jps
"sybille" a écrit dans le message de news:
Bonjour,
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
Merci d'avance pour votre réponse Sybille
bonjour sybille
une macro est-elle bien nécessaire?
si tu vas dans Outils Options d'un classeur quelconque et que dans l'onglet
Général, tu mets dans Dossier par défaut
C:sybilleDevis
chaque fois que tu cliqueras sur le bouton Ouvrir de la barre d'outils de
n'importe quel classeur, la boîte "Ouvrir" s'affichera à la hauteur de ton
sous-répertoire "devis"...
jps
"sybille" <sybille@wanadoo.fr> a écrit dans le message de
news:eWxCfhuSFHA.2916@TK2MSFTNGP15.phx.gbl...
Bonjour,
Après une petite visite sur l'excellent site excelabo, j'ai pioché une
macro
que je n'arrive pas à adapter:
Sub test()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire
C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des
fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour
faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son
fichier.
Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans
une liste déroulante. Pourquoi pas ?
bonjour sybille une macro est-elle bien nécessaire? si tu vas dans Outils Options d'un classeur quelconque et que dans l'onglet Général, tu mets dans Dossier par défaut C:sybilleDevis chaque fois que tu cliqueras sur le bouton Ouvrir de la barre d'outils de n'importe quel classeur, la boîte "Ouvrir" s'affichera à la hauteur de ton sous-répertoire "devis"... jps
"sybille" a écrit dans le message de news:
Bonjour,
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
Merci d'avance pour votre réponse Sybille
jps
re si tu tiens à une macro sous un bouton, tu peux toujours écrire ceci :
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
Merci d'avance pour votre réponse Sybille
re
si tu tiens à une macro sous un bouton, tu peux toujours écrire ceci :
"sybille" <sybille@wanadoo.fr> a écrit dans le message de
news:eWxCfhuSFHA.2916@TK2MSFTNGP15.phx.gbl...
Bonjour,
Après une petite visite sur l'excellent site excelabo, j'ai pioché une
macro
que je n'arrive pas à adapter:
Sub test()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire
C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des
fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour
faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son
fichier.
Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans
une liste déroulante. Pourquoi pas ?
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
Merci d'avance pour votre réponse Sybille
sybille
Bonjour Jps et merci pour ta réponse.
Je suis d'accord avec toi sur la boite Ouvrir mais comme certains utilisateurs sont un peu... "neuneus, réfractaires, et autres" il faut leur mettre de gros boutons bien voyants avec "Choisir dans la liste le devis à ouvrir", visiblement tu sais pour certains c'est compliquer de retenir certaines manip comme Fichier, ouvrir! Je leur met des boutons pour sortir en sauvegardant etc....Avant, j'avais essayé de leur expliquer les manip sauvegarder, sauvgarder sous, ouvrir, impression ect, j'ai abandonné. Les boutons évitent les bêtises et ils sont heureux! Vive les gros boutons!
Ta manip fonctionne correctement Merci
Sybille
"jps" a écrit dans le message de news:
re si tu tiens à une macro sous un bouton, tu peux toujours écrire ceci :
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
Merci d'avance pour votre réponse Sybille
Bonjour Jps et merci pour ta réponse.
Je suis d'accord avec toi sur la boite Ouvrir mais comme certains
utilisateurs sont un peu... "neuneus, réfractaires, et autres" il faut leur
mettre de gros boutons bien voyants avec "Choisir dans la liste le devis à
ouvrir", visiblement tu sais pour certains c'est compliquer de retenir
certaines manip comme Fichier, ouvrir! Je leur met des boutons pour sortir
en sauvegardant etc....Avant, j'avais essayé de leur expliquer les manip
sauvegarder, sauvgarder sous, ouvrir, impression ect, j'ai abandonné. Les
boutons évitent les bêtises et ils sont heureux! Vive les gros boutons!
Ta manip fonctionne correctement
Merci
Sybille
"jps" <pensez@liege.be> a écrit dans le message de news:
uWlsh0uSFHA.3184@TK2MSFTNGP14.phx.gbl...
re
si tu tiens à une macro sous un bouton, tu peux toujours écrire ceci :
"sybille" <sybille@wanadoo.fr> a écrit dans le message de
news:eWxCfhuSFHA.2916@TK2MSFTNGP15.phx.gbl...
Bonjour,
Après une petite visite sur l'excellent site excelabo, j'ai pioché une
macro
que je n'arrive pas à adapter:
Sub test()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire
C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des
fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour
faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son
fichier.
Par contre, la macro ci-dessus visiblement fait afficher les fichiers
dans
une liste déroulante. Pourquoi pas ?
Je suis d'accord avec toi sur la boite Ouvrir mais comme certains utilisateurs sont un peu... "neuneus, réfractaires, et autres" il faut leur mettre de gros boutons bien voyants avec "Choisir dans la liste le devis à ouvrir", visiblement tu sais pour certains c'est compliquer de retenir certaines manip comme Fichier, ouvrir! Je leur met des boutons pour sortir en sauvegardant etc....Avant, j'avais essayé de leur expliquer les manip sauvegarder, sauvgarder sous, ouvrir, impression ect, j'ai abandonné. Les boutons évitent les bêtises et ils sont heureux! Vive les gros boutons!
Ta manip fonctionne correctement Merci
Sybille
"jps" a écrit dans le message de news:
re si tu tiens à une macro sous un bouton, tu peux toujours écrire ceci :
Après une petite visite sur l'excellent site excelabo, j'ai pioché une macro
que je n'arrive pas à adapter:
Sub test() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If End Sub
En fait j'ai mes fichiers.xls qui se trouvent dans mon répertoire C:sybilledevis. Je voudrais en cliquant sur un bouton, que la liste des fichiers contenus dans le répertoire s'ouvre :(une touche raccourcie pour faire Fichier/Ouvrir). L'utilisateur n'aura plus qu'à sélectionner son fichier. Par contre, la macro ci-dessus visiblement fait afficher les fichiers dans une liste déroulante. Pourquoi pas ?
