Comment ouvrir un classeue

[Eric D]

Bonjour à toutes et à tous,

Je sais que ce post fait doublon avec mon précédent, mais personne ne répond à cette question, qui je pense n'est pas très compliquée et comme il y a eu réponse, on doit ce dire que ça a été traité, mais pas du tout. La voici donc:

Comment on ouvre un classeur'mon_classeur' sur une feuille particuliaire et variable(ma_feuille x, et positionner le focus en range('A1'), du style:

Workbooks(mon_classeur).Worksheets(ma_feuille).range('A1').Open

où mon_classeur et ma_feuille sont des variables

enprécisant que ce classeur est ouvert par le classeur actuellement utilisé. Merci pour votre réponse.

Bonne journée.

Eric D

 

[Franz63]

Bonjour Eric,

en passant par la génération automatique de macro, j'obtiens le code suivant pour l'ouverture d'un classeur

Sub Macro2()
Workbooks.Open Filename:='D:\\Classeur1.xls'
End Sub

pour le rendre paramétrable, je pense qu'il faut définir une variable qui donne le chemin d'accès aux classeur
de type

dim chemin as string
chemin ='D:\\Classeur1.xls'

une autre qui donne la feuille et rajouter le code

sheets(MaFeuille).select
ou Mafeuille = 'Feuil1'

et la fonction
range('A1'). select pour se positionner sur la cellule

en gros je verrais bien une décomposition en trois phases

je n'ai pas essayé sauf pour l'ouverture du classeur qui fonctionne

le plus dur à mon avis est de récupérer le chemin d'accès au classeur souhaité.

j'espère que cela pourra vous aider

François

 

[Denis]

Bonjour François, Eric et le Forum
voici un petit bout de code à essayer
Workbooks.Open Filename:='C:\\' & mon_Classeur & '.xls'
'ne pas oublier le chemin complet
Sheets(maFeuille).Select
Range(ma_Cellule).Select
Windows(monClasseurdOrigine & '.xls').Activate
Bon courage et à +
Denis

 

[Baside]

Bonjour Eric D, le Fil, le Forum,

J'ai dabord utilisé la méthode indiquée dans l'aide, c'était bien mais avant de t'envoyer le dossier, j'ai dézipper et tester et patatras, le chemin changeait donc les macros étaient devenues invalides.
Je me suis repenché sur le problème pour que cela fonctionne même s l'on déplace le dossier et voila le travail.

Seule condition : les fichiers doivent rester dans le même dossier.

Pour la démo, j'ai mis des cases pour choisir le dossier puis la feuille.

Il est possible d' ajouter des fichiers mais il faudra ajouter du code en conséquense

J'espère que cela répond à ta demande, merci de me tenir au courant.

Baside.

Fichier à ouvrir : Ouvre Workbook pour ouvrir les autres [file name=OuvertureDeFichier.zip size=32719]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/OuvertureDeFichier.zip[/file]

 

[Eric D]

Bonsoir Baside, le forum,

Autant pour moi, j'avais oublier de te dire ma satisfaction.C'est effectivement très bien. Mais là ce que je souhaite, C'est de mettre les liens à jour sans que la fenêtre de circonstance ne le demande.

Cordialement,@+,

Eric D