Microsoft 365 Copier d'une excel à un autre

[Keiko]

Bonjour,

j'ai trouvé il y a peu cette macro qui me correspond tout à fait.
Elle me permet de copier une cellule d'un excel vers la cellule d'un autre excel.
Mais je voudrais donner la possibiliter via une autre cellule de choisir le fichier xslm.
Car dans le codage de base, il fallait mettre le nom de l'excel dans la macro ce qui est assez fixe.
Je voudrais via la cellule choisie donner la possibilité de choisir le nom du fichier via cette cellule.

Voici le code : Workbooks("D14.xlsm").Sheets("L").Range("D16").Copy Workbooks("H7.xlsm").Worksheets("L").Range("D16")

Comme vous pouvez voir j'ai déja mis les cellules à coté du .xslm

Mais comment faire pour qu'il choississe le nom de la cellule?

Bien à vous,

 

[Compte Supprimé 979]

Bonjour Keiko,

Si dans la cellule H7 tu as le nom du fichier avec l'extension, il suffira de faire

Workbooks(Range("D14").Value).Sheets("L").Range("D16").Copy 
Workbooks(Range("H7").value).Worksheets("L").Range("D16")

Le mieux est de passer par des variables

Dim WbkSource as string, WbkDest as string
WbkSource = Range("D14").Value
WbkDest = Range("H7").Value
Workbooks(WbkSource).Sheets("L").Range("D16").Copy 
Workbooks(WbkDest).Worksheets("L").Range("D16")

@+

 

[Keiko]

Peut-on laisser la possibilité que le code ajoute le xslm?

Merci 🙂

 

[Compte Supprimé 979]

Re,

WbkSource = Range("D14").Value & ".xlsm"

Une petite formation VBA s'impose 😳

 

[Keiko]

Ca fonctionne pas ;(

 

[Compte Supprimé 979]

Re,
Tu as bien mis ".xlsm"

 

[Keiko]

Ca y est ca fonctionne 🙂

voici le code : Workbooks(Range("F7").Value & ".xlsm").Sheets("L").Range("D15😀21").Copy Workbooks(Range("D14").Value & ".xlsm").Worksheets("L").Range("D15😀21")

Comment je dois faire pour sélectionner plusieurs cellulles?

Car quand je répète le code avec différentes cellules, il me bloque.