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

Malaussénois Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 sarah92 -
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

PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
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
 
Merci, 2 ans après,ça sert toujours autant:)
0
Malaussénois Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
Bonjour

Je pense que c'est possible mais je ne suis pas assez pointu pour le faire Vaucluse ou Eriiic à l'aide!
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
Merci beaucoup
0
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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
Malaussénois Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
je vous remercie tous
surtout a PHILOU10120

ça marche très bien
0
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
Non ériiic nous à bien aidé il faut rendre à césar ce qui est à cézar
0