Corrigez moi cette macro

kadelmalin · 27 Février 2017

Bonjour,
Qui veut bien me corriger cette macro qui me tracasse. Je voudrai copier la plage A2:G26 du classeur source dans le classeur cible; mais ce sont des #REF qui apparaissent.Merci de votre aide.

libellule85 · 27 Février 2017

Bonjour kadelmalin, le forum,
Peux-tu modifier le titre de ta demande ? Car on a l'impression que c'est un ordre !!!

kadelmalin · 27 Février 2017

Pas du tout c'est un appel de détresse !

grisan29 · 27 Février 2017

bonsoir kadelmalin, libellule85
je rejoint libellule85 car le titre est donne l'impression d'un ordre a exécuter alors je vais t'en donner un
dans ton code 'sub ouverture" ne vois tu rien qui manque comme la déclaration de variables

Code:

Sub ouverture()
'vu
    Application.ScreenUpdating = False
    For Each Wb In Workbooks
        If Wb.Name = "XLC_Source.xls" Then    'modifier nom du fichier..........
            Workbooks(Wb.Name).Activate: k = 1
        End If
    Next
    If k = "" Then
        Chemfich = ThisWorkbook.Path & "\XLC_Source.xls"    'ici aussi.........
        On Error Resume Next
        Workbooks.Open Chemfich
        If Err <> 0 Then MsgBox "XLC_Source.xls non trouvé":  Exit Sub    'là aussi..
    End If
    ActiveWindow.WindowState = xlMinimized
    ThisWorkbook.Activate
    ActiveWindow.WindowState = xlMaximized
    With Workbooks("XLC_Source.xls").Sheets(1)    'encore ici...................
        'Feuil1.[A2:Q1000].Clear
        Feuil6.[A2:I30].Value = .[A2:I30].Value
        Feuil6.[L2:Q30].Value = .[L2:Q30].Value
    End With
    Workbooks("XLC_Source.xls").Close False    'encore ici.......................
End Sub

Corrigez moi cette macro

kadelmalin

XLDnaute Occasionnel

Pièces jointes

libellule85

XLDnaute Accro

kadelmalin

XLDnaute Occasionnel

grisan29

XLDnaute Accro

Discussions similaires