[XL-2007] Copie plage données [Résolu]

[familledacp]

Bonjour à tous et toutes

Alors là, je ne comprends pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande129_Click()
 
    Dim xlApp As Object
    Dim Rep As String
    Rep = ""
    Rep = Forms("FAffaire").Controls("Repertoire").Value
    Dim Chemin As String
    'Chemin = "e:/1-aff/aaa/" & Rep & "/liste.xlsx"
    'MsgBox Chemin
    '> Ouvre le fichier excel materiels de l'affaire
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("e:/8 - AFF/" & Rep & "/9-BASES/Liste Materiels.xls")
 
    Sheets("Feuil2").Range("b1;b10").Value = Sheets("Feuil2").Range("A1;a10").Value
 
 
End Sub

J'ai l'erreur suivante sur le 2e "sheets" de la ligne 15

Erreur de compilation
Sub ou fonction non définie

Merci d'avance pour votre aide

Daniel

[gFZT82]

Bonjour,

Essaie avec ":" plutôt que ";"

Code :

Sheets("Feuil2").Range("B1:B10").Value = Sheets("Feuil2").Range("A1:A10").Value

Cordialement.

[familledacp]

Bonjour

J'ai intégré cette correction et l'erreur est toujours là .....

daniel

[lenovo49]

L'erreur doit etre differente maintenant?

Peux tu nous l'indiquer?

[familledacp]

Bonsoir

Toujours la même erreur, j'ai purgé le code pour voir s'il n'y avait pas des éléments parasites : "Erreur de compilation, sub ou function non définie"

J'ai la 1ere ligne qui est surlignée en jaune et le mot "workbooks" de l'avant dernière ligne qui est également surligné

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Commande129_Click()
 
    Dim xlApp As Object
    Dim Rep As String
    Rep = ""
    Rep = Forms("FAffaire").Controls("Repertoire").Value
    '> Ouvre le fichier excel materiels de l'affaire
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("e:/8 - AFF/" & Rep & "/9-BASES/Liste Materiels.xls")
 
    Dim Chemin As String
    Chemin = "e:/8 - AFF/" & Rep & "/9-BASES/Liste Materiels.xls"
    MsgBox Chemin
 
    Dim valeur As String
    valeur = Workbooks(Chemin).Worksheets(Listemater).Range("B5").Value
    MsgBox (valeur)
 
End Sub

Est ce que cela ne viendrait pas du fait que cette sub est lancée depuis Access et que je cherche à manipuler des données excel ?

Merci pour votre aide

Daniel

[gFZT82]

Bonjour,

Peux-tu préciser si Listemater est une variable string ou un nom de feuille ?
S’il s’agit d’un nom de feuille, tu dois écrire

Code :

valeur = Workbooks(Chemin).Worksheets(“Listemater”).Range("B5").Value

Cordialement.

[bbil]

C'est quoi ce code ?

ou l'utilise tu ?

si c'est sous excel pourquoi créer un "objet application excel " ?


si c'est pas sous excel ... pourquoi perd tu en route tes xlApp. ?

[familledacp]

Bonsoir

Ce code est lancé depuis un formulaire sous Access.

J'ai corrigé selon la remarque de gFZT82, le problème reste le même

Au plaisir de vous lire

Daniel

[bbil]

Envoyé par bbil

...
si c'est pas sous excel ... pourquoi perd tu en route tes xlApp. ?

[familledacp]

Bonjour Bbil

Merci pour ta réponse, j'ai compris.... J'essaye la rédaction du code complet

Bonne journée

Daniel

[familledacp]

Re bonjour BBil

Cela fonctionne parfaitement

MErci beaucoup

Daniel