Bonjour,
j'essaie de copier une source de données d'un tableur pour les coller à un nouveau tableur, dont le nom est généré automatiquement avec la cellule D6 fiche_perso&"D6".
Nom_Sal = Range("D6").Value
Dim Nom_FicheRH
Nom_FicheRH = "c:Fiche_RH-" & Nom_Sal & ".xlsx"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"c:Fiche_RH-" & Nom_Sal & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Jusque là pas de soucis.
Or, quand je veux coller ma sélection sur le nouveau fichier en question, impossible de trouver un le nom ABSOLU de cette nouveau fichier.
Range("C1").Select
Windows(Nom_FicheRH).Activate
J'ai essayé de remplacer "Nom_FicheRH" par son expression "c:Fiche_RH-" & Nom_Sal & ".xlsx"
Mais rien n'y fait.
Et mes connaissances en VBA sont trèèès limités.