Discussion :

[bastba]

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.

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

Le range et le Selection ne fonctionne pas.
Pourriez vous m'aider svp ?

Merci d'avance

[User]

Bonjour,

Il faudrait ouvrir une discussion sur le forum Excel, plus approprié dans ce cas.

Peut-être essayer :

Code :

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

1
2
3
4
 
...
xlSheet.Range("I1,K1,Q1").EntireColumn.Select
...

Sans garantie

Cdlt,

[marot_r]

Bonjour.

Comme tu es sur un système français essaye en remplaçant les , par des ;.

Code :

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

xlSheet.Range("I:I;K:K;Q:Q").Select

Sinon

1. va dans Excel et lance l'enregistreur de macros
2. Exécute à la main ce que tu veux faire par code.
3. Arrète l'enregistreur.
4. Va voir le code généré par Excel.

C'est généralement un bon point de départ même si ce n'est pas forcément la solution optimale.

Et en effet, comme c'est un problème du côté de Excel, comme l'a suggéré User , le forum de Excel est là pour cela.

A+

[bastba]

D'accord merci beaucoup !
Je fais déjà ça régulièrement mais merci de la réponse

[nico84]

Bonjour,

Je ne pense pas qu'il soit possible en VBA de copier en une seule instruction 3 lignes non contigues, d'ailleurs cela ne marche pas dans excel non plus
Voici un exemple de copie qui fonctionne bien :

Code :

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

1
2
xlSheet.Range("i1").EntireRow.copy
xlSheet.Range("q1").EntireRow.insert

[Zekraoui_Jakani]

Bon, on n'est pas dans XL, mais exceptionnellement .......

La sélection d'une feuille est d'un range dépend de la version XL que l'on a. Il te faut essayer les 2 cas de figures
Parfois

Code :

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

sheets("feuil1").range("a1").select

fonctionne bien
parfois, il faut l'écrire en 2 lignes:

Code :

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

1
2
sheets("feuil1").select
range("a1").select