Discussion :

[Yabagi]

Bonjour,

J'ai créé une macro Excel qui me permet de copier des données d'un fichier Excel et de les coller vers un autre fichier.

Voici le code vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub actu1()
'
' actu1 Macro
'
 
'
    Workbooks.Open ("C:\Users\Y7147505\Desktop\Nouveau dossier\erreur.xlsx")
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.WindowState = xlNormal
    Workbooks("erreur").Close True
    Workbooks.Open ("C:\Users\Y7147505\Desktop\Nouveau dossier\erreur 2.xlsx")
    Dim DLig As Long
    DLig = Range("A1").End(xlDown).Row + 1
    ActiveSheet.Paste
    Range("A2").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Workbooks("erreur 2").Close True
End Sub

Par soucis d'automatisation et de simplification, je souhaite exécuter cette macro via un bouton Access sans ouvrir les fichiers Excel.

Est-ce possible? Si oui, que dois-je faire sur Access ?

Voici les différents fichiers :

Les données copiées --> erreur.xlsx
Emplacement des données collées --> erreur 2.xlsx

Merci de votre aide,

Si vous avez besoin d'informations complémentaires, n'hésitez pas