Johnny Armetos
XLDnaute Nouveau
Bonjour à tous,
Voilà mon soucis, je n'arrive pas à faire un collage spéciale avec la mise en forme et les valeurs des cellules. Ici, ça reprends tout: les liaisons, formules, etc
Un petit coup de pouce? Une idée? Merci d'avance
Voilà mon soucis, je n'arrive pas à faire un collage spéciale avec la mise en forme et les valeurs des cellules. Ici, ça reprends tout: les liaisons, formules, etc
Un petit coup de pouce? Une idée? Merci d'avance
VB:
Sub recup_donnes()
Workbooks("Backup-test.xlsm").Worksheets("Tabelle1").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données
Workbooks.Open Filename:="G:\Commun\GESTION DES STOCKS\GDS\GDS-BOISSONS-TESTS.xlsm" 'Ouvre le fichier Excel source
Workbooks("GDS-BOISSONS-TESTS.xlsm").Worksheets("Tabelle1").Cells.Copy _
Workbooks("Backup-test.xlsm").Worksheets("Tabelle1").Range("A1") 'Copie-colle le fichier
Workbooks("GDS-BOISSONS-TESTS.xlsm").Close False 'Referme le fichier source
End Sub