Sujet Précédent Sujet Suivant

Comment ouvrir un autre classeur a partire d'un bouton en VBA

Fermé
Malaussénois Messages postés 3 Date d'inscription samedi 13 avril 2013 Statut Membre Dernière intervention 18 avril 2013 - 13 avril 2013 à 07:47
 sarah92 - 18 août 2015 à 17:16
Bonjour à tous
Sur Excel 2013, je souchetterais à partir d'une lise Excel muni de bouton, ouvrir un autre classeur nommé Avril en sélectionnant des lignes bien définie. Le tous enregistré sur une clé USB pour être travailler sur d'autre PC.
Je suis novice en VBA, alors des explications simple seront plus à ma portée voir même les lignes de codage. Je vous remercie de l'aide que vous pouvez m'apporter.
Merci à tout le monde.
A voir également:

5 réponses

Réponse 1 / 5
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
Modifié par PHILOU10120 le 13/04/2013 à 10:44
Bonjour

'Choisir le chemin du disque exemple disque E

ChDir "E:\dossier\sous dossier\sous sous dossier"

'choisir le fichier dans un dossier et des sous dossiers

Workbooks.Open Filename:="C:\dossier\sous dossier\sous sous dossier\nom du fichier.xls"

'ouvrir sur une feuille

Sheets("nom de la feuille").Select

'sélectionner un champ

Range("nom du champ").Select

Pour fermer ce classeur

Windows("nom fichier.xls").Activate
ActiveWorkbook.Close
5
sarah92
18 août 2015 à 17:16
Merci, 2 ans après,ça sert toujours autant:)
0
Réponse 2 / 5
Malaussénois Messages postés 3 Date d'inscription samedi 13 avril 2013 Statut Membre Dernière intervention 18 avril 2013
14 avril 2013 à 19:18
Bonjour PHILOU10120

Super cela fonctionne parfaitement.
Je te remercie.

Sans vouloir abuser je souhaiterais en cliquant sur le même bouton du classeur listing chantier ouvrir
Le classeur horaire, feuil avril, ligne X à Z, OK jusque-là.
Est-il possible en faisant la même manip de passer automatiquement à la (feuil mai) toujours du classeur horaire, au terme du mois d'avril ?
En te remerciant du temps que tu me consacres.
0
Réponse 3 / 5
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
14 avril 2013 à 20:21
Bonjour

Je pense que c'est possible mais je ne suis pas assez pointu pour le faire Vaucluse ou Eriiic à l'aide!
0
Réponse 4 / 5
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
15 avril 2013 à 00:41
Bonsoir à tous,

pour sélectionner la feuille du mois en cours :
Worksheets(Format(Date, "mmmm")).Select

Les feuilles doivent s'appeller :
janvier février mars avril mai juin juillet août septembre octobre novembre décembre
Sans majuscules et en respectant les accents (août)

eric












0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
Modifié par PHILOU10120 le 15/04/2013 à 09:28
Merci Eriiic
Mais pour avoir un nom différent suivant la date
Si on met le nom de l'onglet dans une cellule par formule genre Mois(maintenant()) ou Mois(aujourdhui()) avec le format mmmm est ce qu'il est possible d'ouvrir la feuille correspondant au mois affiché exemple si je veux afficher une autre feuille que le mois en cours le précédent ou le suivant
Bonne journée
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
15 avril 2013 à 09:56
Bonjour,

Ben si tu mets Mois(maintenant()) ou Mois(aujourdhui()) ça sera forcément le mois en cours...
Sinon pour sélectionner la feuille dont le nom est en A1 :
Worksheets([A1]).Select

eric
0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
15 avril 2013 à 10:21
Merci beaucoup
0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
15 avril 2013 à 10:42
Bonjour Eriiic

Dans la cellule A1 j'ai cette formule

=MOIS.DECALER(AUJOURDHUI();B1)
en B1 je met un nombre de mois pour décaler -2 affiche février 2 affiche juin
Je reçois un message l' indice n'apartient pas à la sélection ou est le problème?
Merci de votre aide
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
15 avril 2013 à 10:57
Dans la cellule A1 j'ai cette formule
=MOIS.DECALER(AUJOURDHUI();B1)
Donc c'est une date, pas du texte. Mettre un autre format d'affichage n'y change rien ça restera un numérique.
Utiliser format() dans vba :
Worksheets(Format([A1], "mmmm")).Select

eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Malaussénois Messages postés 3 Date d'inscription samedi 13 avril 2013 Statut Membre Dernière intervention 18 avril 2013
18 avril 2013 à 18:41
je vous remercie tous
surtout a PHILOU10120

ça marche très bien
0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
18 avril 2013 à 19:16
Non ériiic nous à bien aidé il faut rendre à césar ce qui est à cézar
0

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses