Discussion :

[familledacp]

Bonjour à tous et toutes

Je copie d'un fichier à un autre une plage de données et j'ai des résultats très surprenants

Voici tout d'abord la fonction qui copie les valeurs

Code :

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

1
2
  'Copie les données depuis le fichier base vers le fichier de travail
     xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("A4:k1500").Value = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Listemater").Range("A4:k1500").Value

Le fichier de base, dans mon exemple (liste OPR et RECE) ne comporte des données que sur les lignes 4 à 8

Le fichier destinataire comprend bien les bonnes données sur les lignes 4 à 8 mais aussi :
- des données aléatoires sur des lignes à partir de la ligne 52
- des cellules marquées #N/A à partir de la ligne 400

De plus, les numéros de lignes apparaissent en bleu et de nombreuses lignes disparaissent -59 à 76 par exemple-

C'est grave docteur ?

Merci de votre aide

Daniel S

[mercatog]

Bonjour

Mets ton code en entier pour pouvoir faire un diagnostic

De plus, les numéros de lignes apparaissent en bleu et de nombreuses lignes disparaissent -59 à 76 par exemple-

Tu as un filtre.

Je me demande pourquoi tu travailles avec une autre instance Excel xlApp

[Daniel.C]

Bonjour,

En complément de la réponse de mercatog, y a-t-il des lignes masquées dans les plages concernées de l'un ou l'autre classeur ?

[familledacp]

Rebonjour

Voici le code en entier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Commande224_Click()
'Lancement OPR et RECEPTIONS
 
    Dim Rep As String
    Rep = ""
    Rep = Forms("FAffaire").Controls("Repertoire").Value
 
 
 
    '> Ouvre le fichier excel OPR de l'affaire
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("e:/1 - AFF/" & Rep & "/9-BASES/Liste OPR et RECE.xls")
    xlApp.Workbooks.Open ("e:/1 - AFF/" & Rep & "/9-BASES/Locaux.xls")
    xlApp.Workbooks.Open ("E:\1 - aff\AA divers novorest\00 - gestion affaires\00 Base\Modeles\NovoOPRmodele.xls")
 
 
    'Dim valeur As String
    'valeur = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Listemater").Range("B5").Value
    'MsgBox (valeur)
 
    'Effacer tout ce qu'il y a dans NovoOPRModele
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("A4:az6000").Clear
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("BB1").Clear
 
    'Copie les données depuis le fichier base vers le fichier de travail
     xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("A4:k1500").Value = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Listemater").Range("A4:k1500").Value
        'xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listelocaux").Range("A2:c6000").Value = xlApp.Workbooks("Locaux.xls").Worksheets("Loc").Range("A2:c6000").Value
    'xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Lots").Range("A3:az6000").Value = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Lots").Range("A3:az6000").Value
    'xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("MOV").Range("A1:az6000").Value = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("MOV").Range("A1:az6000").Value
    'xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("MOE").Range("A1:az6000").Value = xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("MOE").Range("A1:az6000").Value
 
 
    'Colorie les cases dans le fichier
 
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("ListeMAter").Range("A4:K6000").Interior.ColorIndex = 40
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("ListeMAter").Range("A4:K6000").Borders.ColorIndex = 2
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("ListeMAter").Range("A4:K6000").RowHeight = 25
 
 
 
    'Copie le nom de l'affaire pour le retour
    xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("BB1").Value = Rep
 
    'Ferme les fichiers de travail
    xlApp.Workbooks("Liste OPR et RECE.xls").Close
    xlApp.Workbooks("Locaux.xls").Close
 
End Sub

Par ailleurs, la ligne 3 des fichiers propose un filtre pour trier un peu mes données au besoin

A bientot

Daniel

[mercatog]

Peut être il serait mieux de travailler avec les variables objet.
Tu pilote excel à partir de VB?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Commande224_Click()
Dim XlApp As Object
Dim WbOPR As Object, WbLoc As Object, WbNov As Object
Dim Rep As String
 
Rep = Forms("FAffaire").Controls("Repertoire").Value
If Rep <> "" Then
    Set XlApp = CreateObject("Excel.Application")
    With XlApp
        .Visible = True
        'il faudra ajouter ici un test sur l'existence des fichiers à ouvrir
        Set WbOPR = .Workbooks.Open("e:/1 - AFF/" & Rep & "/9-BASES/Liste OPR et RECE.xls")
        Set WbLoc = .Workbooks.Open("e:/1 - AFF/" & Rep & "/9-BASES/Locaux.xls")
        Set WbNov = .Workbooks.Open("E:\1 - aff\AA divers novorest\00 - gestion affaires\00 Base\Modeles\NovoOPRmodele.xls")
 
        With WbOPR.Worksheets("Listemater")
            If .FilterMode Then .ShowAllData
        End With
 
        With WbNov.Worksheets("Listemater")
            If .FilterMode Then .ShowAllData
            .Range("A4:AZ6000").Clear
            .Range("A4:K1500").Value = WbOPR.Worksheets("Listemater").Range("A4:K1500").Value
            .Range("A4:K6000").Interior.ColorIndex = 40
            .Range("A4:K6000").Borders.ColorIndex = 2
            .Range("A4:K6000").RowHeight = 25
            .Range("BB1").Value = Rep
        End With
        WbNov.Close True
        Set WbNov = Nothing
        WbOPR.Close False
        Set WbOPR = Nothing
        WbLoc.Close
        Set WbLoc = Nothing
    End With
    XlApp.Quit
    Set XlApp = Nothing
End If
End Sub

EDIT: Déclarer en Object les variable WbXX

[Daniel.C]

Essaie :

Code :

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

1
2
     xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Listemater").Range("A4:k1500").Copy
     xlApp.Workbooks("Liste OPR et RECE.xls").Worksheets("Listemater").Range("A4").pastespeciam xlPasteValues

[familledacp]

Bonsoir Daniel C

Merci pour ces éléments

Petit souci, j 'ai une erreur 438 sur la ligne

Code :

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

 xlApp.Workbooks("NovoOPRmodele.xls").Worksheets("Listemater").Range("A4").pastespeciam xlPasteValues

D'ailleurs, excel me demande de me positionner sur la cellule A4 où je dois coller (je précise que ce code est lancé depuis Access)



Mercatog, je regarde ce que tu as envoyé

Merci à tous les deux pour votre aide

Daniel