A
alaumajo
Guest
Bonsoir a tous,
Mon problème du moment est l'exportation des valeurs de 3 cellules dans un autre classeur. J'ai trouvé sur le forum ce code :
D2 = Replace(ActiveWorkbook.Path, "Dossier A", "Dossier B\")
Set Source = Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row, 6))
Set Desti = Workbooks.Open(D2 & "NomDuClasseur.xlsm")
Source.Copy Desti.Sheets(1).Range("H65536").End(xlUp)(2)
Une fois adapter a ma situation le résultat est concluant a un détail près.
Le code exporte les cellules et pas simplement les valeurs de ces cellules.
Cela a des conséquences esthétiques sur mon classeur de destination et son impression.
J'ai tenté d’adapter le code pour ne récupérer que les valeurs mais sans résultat.
Une petite aide serai la bien venue 🙂
Mon problème du moment est l'exportation des valeurs de 3 cellules dans un autre classeur. J'ai trouvé sur le forum ce code :
D2 = Replace(ActiveWorkbook.Path, "Dossier A", "Dossier B\")
Set Source = Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row, 6))
Set Desti = Workbooks.Open(D2 & "NomDuClasseur.xlsm")
Source.Copy Desti.Sheets(1).Range("H65536").End(xlUp)(2)
Une fois adapter a ma situation le résultat est concluant a un détail près.
Le code exporte les cellules et pas simplement les valeurs de ces cellules.
Cela a des conséquences esthétiques sur mon classeur de destination et son impression.
J'ai tenté d’adapter le code pour ne récupérer que les valeurs mais sans résultat.
Une petite aide serai la bien venue 🙂