Aide Macro

ChaL -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

Je cherche à créer un macro permettant de faire une manip de mise à jour d'un document hebdomadaire.
Chaque matin, je copie/colle des données d'un document excel vers un autre document excel.
J'aimerais pouvoir cliquer sur le lancement de la macro, sélectionner le document à coller et ensuite le copiage se fera automatiquement.
Comment dois-je procéder ?

Merci d'avance pour votre aide !

Configuration: Windows / Chrome 84.0.4147.105

1 réponse

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    En vba faire Alt F11 pour accéder à l'éditeur.

    Ensuite insérer un module et y mettre ce code qui sera associé à un bouton ou raccourci clavier:

    Option Explicit
    Sub copie()
    Dim c As Range
    Dim strFichier As String
    Dim classeurDestination As Workbook
    strFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls") 'excel 2003 pour  les suivants remplacer par xlsx
    Set c = ActiveCell
    Set classeurDestination = Workbooks.Open(strFichier)
      'copier les données de la feuille active du classeur source vers la feuille "Feuil1" ' a adapter du classeur destination
    c.Copy Destination:=classeurDestination.Sheets("Feuil1").Range("A1") 'a adapter
    End Sub
    


    enregistrer en classeur acceptant les macros

    0