Sujet Précédent Sujet Suivant

Macro Excel pour activer un fichier Excel à partir d'une cellule

Fermé
zizou83200 Messages postés 1 Date d'inscription dimanche 7 février 2016 Statut Membre Dernière intervention 7 février 2016 - 7 févr. 2016 à 23:33
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 8 févr. 2016 à 08:50
Bonjour

Merci d'avance à tous pour votre future réponse.

Je vous explique mon cas.

J'ai un fichier qui doit copier des données vers un autre fichier mais comme le nom du fichier qui va recevoir la copie des données va changer tous les mois j'ai donc besoin d'une macro qui va activer le classeur en question à partir d'une cellule.

Ce la m'éviterai de changer le nom du fichier manuellement dans le code macro car il faudrait le changer au moins une trentaine de fois.

J'espère que vous pourrez m'aider.

Merci d'avance.

Cordialement.
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 févr. 2016 à 08:14
Bonjour

Ce la m'éviterai de changer le nom du fichier manuellement dans le code macro


Sans le code----> boule de cristal !
0
Réponse 2 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
8 févr. 2016 à 08:50
Bonjour zizou83200,
bonjour michel_m,

Un exemple de macro pour l'ouverture d'un fichier dont le nom est indiqué en A1 (nom + extension) 
Sub test()
Dim MonFichier As String, Chemin As String
Dim WbExcel As Workbook
    MonFichier = Range("A1").Value 'Nom complet du fichier que tu veux ouvrir : "Classeur1.xls" par exemple
    Chemin = "C:\Users\Toto\Documents\" 'le chemin où il se trouve
    Set WbExcel = Workbooks.Open(Chemin & MonFichier)
    MsgBox "Vous venez d'ouvrir le classeur " & WbExcel.Name
End Sub

A+
0

Discussions similaires

Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses