Piloter excel depuis access : select

Bonjour, je début au VB sur access et j'aimerais savoir pourquoi je n'arrive pas à effectuer un vulgaire copier coller dans un fichier excel. Voici mon bout de code ( je vous épargne l'ouverture, fermeture, désallocation) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook   ' -- programme d'ouverture fichier blabla...   xlSheet.Range("A1:C8").Select Selection.Copy xlBook.Worksheets.Add.Name = "Projet" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True

---

J'obtient la même erreur 1004 " la méthode sélect de la classe range à échouer".
Je ne sais pas comment faire un copier coller sans utiliser la fonction select.
Merci d'avance

Avant de faire le Paste, tu dois sélectionner une cellule de ta nouvelle worksheet "Projet" pour lui dire où doit se faire la copie ;)

J'ai pourtant rajouté la ligne : xlSheet.Range("A1").Select juste avant le pastespecial mais cela ne fonctionne toujours pas.
D'ailleurs l'erreur intervient bien avant, dès le premier select (xlSheet.Range("A1:C8").Select).

Vérifie que xlSheet représente bien une worksheet valable (pour la première erreur) avant de faire le Select :

Code:

---

1 2	' declare xlSheet comme étant la première sheet Set xlSheet = xlBook.Worksheets(1)

---

Pour la deuxième erreur, il faut également que xlSheet pointe bien vers la nouvelle worksheet créée.

Code:

---

1 2 3 4 5 6 7 8

' crée une nouvelle worksheet comme étant la dernière xlBook.Sheets.Add After:=Worksheets(Worksheets.Count) ' Déclare la nouvelle sheet comme étant la sheet courante Set xlSheet = xlBook.Worksheets(Worksheets.Count) ' Renomme la sheet créée xlSheet.Name = "Projet" ' Sélectionne les cellules où copier xlSheet.Range("A1:C8").Select

---

Ca marche en déclarant proprement les sheets. Mais à quoi sert la déclaration Set xlSheet = xlBook.Worksheets(1) ? Et ce qu'on pourrait se contenter de faire :

Code:

---

1 2 3

Set xlSheet = xlBook.Worksheets.Add xlSheet.Name = "Projet" xlSheet.Cells(1, 1).Select

---

En outre, je pense avoir un problème car une fois le prog terminé, je ne peux pas lancer mon fichier excel ( il est "occupé"). Je pense avoir un problème au niveau de la fermeture :

Code:

---

1 2 3 4 5 6 7 8

'Fermeture   xlBook.Close xlApp.Quit ' désallocation mémoire Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing

---

La méthode .Add demande seulement à Excel de créer la sheet, rien de plus.
Si tu veux utiliser une variable pour désigner une sheet et qu'Access le sache, tu dois établir le lien entre la variable et la sheet, d'où le "SET".

Pour ce qui est du fichier Excel qui est "occupé", as-tu fermé le fichier dans ton code VBA ?

Code:

---

xlBook.Close True, "Le_Nom_de_Mon_Fichier"

---

Le "True" pour dire que tu veux enregistrer les changements et "Le_Nom_de_Mon_Fichier" pour lui dire sous quel nom de fichier.

En fait, j'avais un processus excel résiduel issu des plantages de mon précédent code. Maintenant tout roule.
Merci pour tout :ccool: