Discussion :

[le_sayan]

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 :

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

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

[SSJconsult]

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

[le_sayan]

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).

[SSJconsult]

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

Code :

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

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 :

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

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

[le_sayan]

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 :

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

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 :

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

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

[SSJconsult]

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 :

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

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.

[le_sayan]

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