Problème Macro copie sans certaines colonnes

Bonjour,

J'ai trouver cette macro sur internet que j'ai adapter pour mon classeur.

J'aimerais juste savoir comment changer une partie (wsIn.Range("A:A,C:C").EntireColumn.Hidden = True).

Actuellement quand je lance la macro elle me supprime les colonnes sur la première feuille alors que je veux copier la feuille entière sans les colonnes A et C mais sans les supprimer de la feuille 1.

Merci d'avance à ceux qui m'aideront.

Sub copyfiltered()

    Dim wsIn As Worksheet
    Dim wsOut As Worksheet

    Set wsIn = Worksheets("Feuil1")
    Set wsOut = Worksheets("Feuil3")

    wsIn.Range("A:A,C:C").EntireColumn.Hidden = True

    wsIn.AutoFilter.Range.Copy Destination:=wsOut.Range("A1")
End Sub

Bonjour

Essaie ça :

Sub copyfiltered()

    Dim wsIn As Worksheet
    Dim wsOut As Worksheet

    Set wsIn = Worksheets("Feuil1")
    Set wsOut = Worksheets("Feuil3")

    wsIn.Cells.Copy Destination:=wsOut.Range("A1")
    wsOut.Range("A:A,C:C").Delete
End Sub

Résultat ?

Bye !

Bonjour,

J'ai une erreur "La méthode Copy de la classe Range a échoué." au niveau de la ligne : "wsIn.Cells.Copy Destination:=wsOut.Range("A1")".

La copie se fait bien tout de même (malgrès un message " Excel ne peut pas terminer cette tâche avec les ressources disponibles etc.."), mais copie même les colonnes non voulues.

Je peux toujours faire une macro qui supprimes les colonnes après la copie si y'a pas de solution.