Aide Macro
ChaL
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 !
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
A voir également:
- Aide Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
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:
enregistrer en classeur acceptant les macros
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
