Bonjour,
J'essaye de créer une modification d'un excel depuis access afin d'importer ma base de données ensuite.
J'ai essayé de rentrer le code suivant mais malgré les tutos, l'objet range ne fonctionne pas.
Le range et le Selection ne fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Suivi.xlsm") Set xlSheet = xlBook.ActiveSheet xlSheet.Range("I:I,K:K,Q:Q").Select xlSheet.Range("Q1").Activate Selection.Copy Sheets.Add After:=ActiveSheet ActiveSheet.Paste
Pourriez vous m'aider svp ?
Merci d'avance
Partager