excel vba pastespecial fonctionne pas Résolu/Fermé

Question

Bonjour, 


VOici mon promblème, j'aimerais que cette macro me colle le range avec un paste special xl value, n'ayant pas de selection, je ne sais pas comment faire (mes pistes avec un with ont échoué)

voici la macro 

   For Each WB In Application.Workbooks
            If WB.Name <> thisWorkbook.Name Then
            WB.Activate
                For Each WS In WB.Worksheets
                 WS.Activate
                    Application.DisplayAlerts = False
                    If Range("A2").value = "li" Then
                    Range("A7:Z205").Copy thisWorkbook.Sheets("Modes opératoires").Range("A65536").End(xlUp)(2)
                        
                    End If
                    Application.DisplayAlerts = True
                 Next WS
            End If
    Next WB


Même en mettant sour le mot en gras with specialpaste = xlvalue, ce la ne fonctionne pas 
(logique je n'ai pas de paste ...)
merci d'avance pour votre aide 

James 405


Configuration: Windows XP / Interne
Explorer 6.0

michel_m · Answer

Bonjour,

essaies en modifiant dans ta macro:
With Range("A7:Z205")
    ligs = .Rows.Count
    cols = .Columns.Count
    tablo = .Value
End With
With ThisWorkbook.Sheets("Modes opératoires")
   .Cells(Range("A65536").End(xlUp).Row + 1, 1).Resize(ligs, cols) = tablo
End With

james405 · Answer

Bonsoir,

J'ai essayé ton code, mais la mise en mage devient très moche, et le tour sur mes classeur ne se faitr plus. Je mee suis p-ê trompé en insérant ton code !


   For Each WB In Application.Workbooks
            If WB.Name <> thisWorkbook.Name Then
            WB.Activate
                For Each WS In WB.Worksheets
                 WS.Activate
                    Application.DisplayAlerts = False
                    
                    If Range("A2").value = "li" Then
                    With Range("A7:Z205")
                    ligs = .Rows.Count
                    cols = .Columns.Count
                    tablo = .value
                    End With
            With thisWorkbook.Sheets("Modes opératoires")
            .Cells(Range("A65536").End(xlUp).Row + 1, 1).Resize(ligs, cols) = tablo
                    End With
                                         
                    End If
                    Application.DisplayAlerts = True
                 Next WS
            End If
    Next WB
    

voila ce que ca donne !

mercipour ton aide 

James

Excel vba pastespecial fonctionne pas

2 réponses

Discussions similaires