Discussion :

[jmtpat]

Bonjour,
j'ai fait une macro pour copier des données d'un classeur à un autre, ma macro marche en local.
dès que j'essaye sur un fichier partager en réseau, il ne copie aucune valeur.
il me donne come erreur copie selection multiple impossible alors que mes données sont continues.

je joins mon code si quelqu'un pouvaient m'aider.

Sub Import_Données_Dero()
On Error Resume Next
'Effacement des cellules existantes
Sheets("dero").Activate
Worksheets("dero").ShowAllData
Range("A2:ai3000").ClearContents
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'DERO

' pour un nouveau client = COPIER CE PARAGRAPHE TOUT EN BAS JUSTE AVANT "End Sub"
'IH


'IC
Sheets("clients").Activate
Range("C11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("dero").Activate
'If Sheets("dero").AutoFilterMode Then Sheets("dero").ShowAllData
If IsEmpty(Range("a2")) = True Then
Workbooks("fichier_Fille_IC.xlsm").Close
Else
ActiveSheet.ShowAllData
derlig = ""
derlig = ActiveSheet.[A3000].End(xlUp).Row
Range("A2:AC" & derlig).Copy
Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False
Application.CutCopyMode = True
Workbooks("fichier_Fille_IC.xlsm").Close
End If
Range("ai2").Formula = "=IF(AND(OR(ISBLANK(RC[-9]),YEAR(RC[-9])=2014),YEAR(RC[-23])<2014),""encours"","""")"
Range("ai2").Select
Selection.AutoFill Destination:=Range("ai2:ai" & l), Type:=xlFillDefault
Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
Range("M:m,o:P,R:z,y:y").Select
Selection.NumberFormat = "dd/mm/yy;@"
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

merci

[Nako_lito]

Attention, utilise les balises pour mettre du code.

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
50
51
Sub Import_Données_Dero()
    On Error Resume Next
    'Effacement des cellules existantes
    Sheets("dero").Activate
    Worksheets("dero").ShowAllData
    Range("A2:ai3000").ClearContents
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    'DERO
 
    ' pour un nouveau client = COPIER CE PARAGRAPHE TOUT EN BAS JUSTE AVANT "End Sub"
    'IH
 
 
     'IC
    Sheets("clients").Activate
    Range("C11").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("dero").Activate
    'If Sheets("dero").AutoFilterMode Then Sheets("dero").ShowAllData
    If IsEmpty(Range("a2")) = True Then
        Workbooks("fichier_Fille_IC.xlsm").Close
    Else
        ActiveSheet.ShowAllData
        derlig = ""
        derlig = ActiveSheet.[A3000].End(xlUp).Row
        Range("A2:AC" & derlig).Copy
        Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
        With Selection
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End With
        Application.CutCopyMode = False
        Application.CutCopyMode = True
        Workbooks("fichier_Fille_IC.xlsm").Close
    End If
    Range("ai2").Formula = "=IF(AND(OR(ISBLANK(RC[-9]),YEAR(RC[-9])=2014),YEAR(RC[-23])<2014),""encours"","""")"
    Range("ai2").Select
    Selection.AutoFill Destination:=Range("ai2:ai" & l), Type:=xlFillDefault
    Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
     Range("M:m,o:P,R:z,y:y").Select
    Selection.NumberFormat = "dd/mm/yy;@"
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
 
End Sub

[Nako_lito]

il semblerai que tu ne fasse jamais référence au classeur dans lequel tu veux copier tes données.

Code :

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

1
2
3
4
5
Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
        With Selection
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End With

Je pense que le problème vient de là.
Tu utilise la méthode select sur la mauvaise cellule a mon avis.
Ce n'est pas la cellule de "fichier_suivi_yggp_jl.xlsm" qui est utilisé mais la cellule du classeur d'ou est lancé la macro.

rapidement, si tu veux copier coller des données d'un classeur a un autre :

Code :

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

1
2
Thisworkbook.sheets("feuille_origine").Range(maRange).Copy
Workbooks("classeur_destination").Sheets("feuille_destination").Range(rangeDestination).PasteSpecial paste:=xlPasteValuesAndNumberFormats

Avec ce qui va avant évidemment pour définir quelle range tu veux copier, et la range où tu veux coller tes données.

[jmtpat]

il semblerai que tu ne fasse jamais référence au classeur dans lequel tu veux copier tes données.

Code :

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

1
2
3
4
5
Workbooks("fichier_Suivi_yqgp_jl.xlsm").Sheets("DERO").Activate
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
        With Selection
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End With

Je pense que le problème vient de là.
Tu utilise la méthode select sur la mauvaise cellule a mon avis.
Ce n'est pas la cellule de "fichier_suivi_yggp_jl.xlsm" qui est utilisé mais la cellule du classeur d'ou est lancé la macro.

rapidement, si tu veux copier coller des données d'un classeur a un autre :

Code :

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

1
2
Thisworkbook.sheets("feuille_origine").Range(maRange).Copy
Workbooks("classeur_destination").Sheets("feuille_destination").Range(rangeDestination).PasteSpecial paste:=xlPasteValuesAndNumberFormats

Avec ce qui va avant évidemment pour définir quelle range tu veux copier, et la range où tu veux coller tes données.

merci, je vais tester

[jmtpat]

merci, je vais tester

super ca fonctionne merci beaucoup