Supprimer les validations à la copie ?

[arnaudbu]

Bonjour,

J'ai des messages d'erreurs quand j'importe mes données depuis les autres fichiers. Il me dit que le nom des formules existe déjà dans le fichier et me demande si je veux la remplacer.

Ceci se produit à partir de l'import du deuxième fichier.

Je copie les données sans les formules donc ce n'est pas la peine de copier les validations avec. J'espère que vous comprenez ma demande.

Donc comment importer mes données sans les validations ?

Mon code:

Set Plg = _
W.Sheets("Config").Range("A2:A" & W.Sheets("Config").[A65536].End(xlUp).Row)
arrClass = Application.Transpose(Plg.Value)

For i = 1 To UBound(arrClass)
    Workbooks.Open Chemin & CStr(arrClass(i))
    With ActiveWorkbook
        .Sheets(onglet).Range(plage).Copy W.Sheets("Suivi_general").Range("A65536").End(xlUp).Offset(1, 0)
        .Close False
        Application.CutCopyMode = False
    End With
Next

 

[arnaudbu]

Re : Supprimer les validations à la copie ?

En fait en facilité j'ai mis cela:

application.displayalert = false
...
...
application.displayalert = true
rows("7:700").validation.delete

Bonne solution ou avez vous une autre ?