Macro fonctionne sur 2016 mais pas sur 2007

Davy -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai cree une macro sur excel 2016 mais sur excel 2007 avec un autre PC elle s arrete en plein millieu avec le message d'erreur : run time error 1004 application -defined or objected-definned-error.

merci d'avance

Cordialement

Davy

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Montrez le code avec la ligne en erreur
    0
    1. davy
       
      Bonjour

      Voici le code :
      Erreur arrive dans le block 07 sur la ligne :
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes

      Sub block01()
      Sheets("block 01").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="1"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 01").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block02()
      Sheets("block 02").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="2"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 02").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block03()
      Sheets("block 03").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="3"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 03").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block04()
      Sheets("block 04").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="4"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 04").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block05()
      Sheets("block 05").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="5"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 05").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block06()
      Sheets("block 06").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="6"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 06").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block07()
      Sheets("block 07").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="7"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 07").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block08()
      Sheets("block 08").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="8"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 08").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block09()
      Sheets("block 09").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="9"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 09").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block21()
      Sheets("block 21").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="21"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 21").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block22()
      Sheets("block 22").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="22"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 22").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block23()
      Sheets("block 23").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="23"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 23").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block24()
      Sheets("block 24").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="24"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 24").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block25()
      Sheets("block 25").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="25"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 25").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block26()
      Sheets("block 26").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="26"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 26").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block27()
      Sheets("block 27").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="27"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 27").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub
      Sub block31()
      Sheets("block 31").Select
      Columns("A:M").Select
      Selection.ClearContents
      Columns("A:A").Select
      Sheets("DATA BASE").Select
      ActiveSheet.showalldata
      ActiveSheet.Range("$A$2:$AH$3061").AutoFilter Field:=31, Criteria1:="31"
      Columns("A:AG").Select
      Selection.Copy
      Sheets("block 31").Select
      Columns("A:A").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Application.CutCopyMode = False
      ActiveSheet.Range("$A$2:$M$1045658").RemoveDuplicates Columns:=10, Header:= _
      xlYes
      End Sub

      Merci

      Davy
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > davy
       
      Bonjour,
      code enregistrer sur excel2016
      Excel 2007 sub block07 pas d'erreur!!

      Pouvez-vous mettre votre fichier sans donnees confidentielles a dispo sur ce site
      https://mon-partage.fr/
      0
    3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783 > davy
       
      Au lieu de faire 17 procédures similaires, en envoyant les paramètres ad hoc, une seule suffirait.
      0
    4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour Patrice33740,
      En effet, mais pourquoi une sur x, il y a erreur chez lui et pas chez moi ?????
      0
    5. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour f894009
      Chez moi aussi ça fonctionne (sous condition que la feuille soit filtrée).
      Il faudrait voir avec le fichier.
      Il faudrait aussi supprimer les Select & Co
      0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
désinstallation de office 2016
ILYC -
bazfile -

6 réponses
Faire évoluer un pack microsoft office 2007 vers 2010 ?
monikamedis -
monikamedis -

4 réponses
REPARER OUTLOOK 2007
belioffa -
Claude-Paul -

11 réponses