Microsoft 365 Copier d'une excel à un autre

Keiko

XLDnaute Occasionnel
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,
 
C

Compte Supprimé 979

Guest
Bonjour Keiko,

Si dans la cellule H7 tu as le nom du fichier avec l'extension, il suffira de faire
VB:
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
VB:
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

XLDnaute Occasionnel
Ca y est ca fonctionne :)

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

Comment je dois faire pour sélectionner plusieurs cellulles?

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

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO