Discussion :

[Jordmund]

Bonjour,

Je code sous Access une procédure VBA qui va :
- Créer un fichier Excel
- Copier des données "génériques" dans la première feuille du classeur
- Une fois la première feuille générée, je veux duppliquer la feuille n fois et appliquer un autre code => C'est ce point qui pose problème.

Je génère bien la première feuille, mais je n'arrive pas à la copier dans le même classeur.

Mon code :

Code :

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

1
2
3
4
5
 
Dim xlapp as Object
''' Traitement pour générer la feuille 1 : OK '''''
xlapp.Sheets(1).Copy _
        Destination:=xlapp.Sheets(Sheets.Count + 1)

Le copier coller ne fonctionne pas (code erreur 9)
J'ai également tenté un

Code :

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

1
2
 
xlapp.Sheets(1).copy After:=xlapp.Sheets(Sheets.Count)

Ca ne fonctionne pas non plus (code erreur 1004)

Pouvez-vous m'aider svp ?

Merci d'avance pour vos réponses.

[Kimy_Ire]

Bonjour Jordmund,

Est-ce que ta variable xlapp est setée par quelque chose du type Set xlapp = CreateObject("Excel.Application") ?
Si c'est le cas, ton xlapp ne connait pas l'argument Sheets(1) car tu ne spécifies pas le Workbook.

Ainsi, xlapp.Workbooks("mon_classeur").Worksheets("ma_feuille"). 'ce que je veux, te permettra d'accéder à ce que tu souhaites.

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Jordmund]

Oui je l'ai bien settée

J'ai également tenté

Code :

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

1
2
3
 
Workbooks(xlapp).Sheets(1).Copy _
    Destination:=Workbooks(xlapp).Sheets(Sheets.Count + 1)

Ca ne fonctionne pas.

J'ai également pensé que le soucis venait de faire un copier / coller sur un classeur fermé, j'ai fait un xlapp.Activate mais ca ne résoud pas le problème.

[Kimy_Ire]

Jordmund,

As-tu bien lu ce que je t'ai écris ?
Workbooks("mon_classeur") est une propriété de Excel.Application !

Donc c'est xlapp.Workbooks("mon_classeur").Worksheets("ma_feuille")...

Bref...

[Jordmund]

Merci de tes réponses Kimy_Ire,

Code :

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

1
2
3
 
xlapp.Workbooks("Classeur1").Sheets(1).Copy _
        Destination:=xlapp.Workbooks("Classeur1").Sheets(Sheets.Count + 1)

Ca ne fonctionne pas (erreur 9).

[Kimy_Ire]

Jordmund,

Aucun problème avec ça de mon côté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub creation()
 
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
 
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
 
xlSheet.Range("A1") = "test"
 
xlSheet.Copy After:=xlBook.Sheets(xlBook.Sheets.Count)
 
End Sub

Cordialement,
Kimy