Macro excel qui bloque avec un nom de feuille qui change tous les jours

Résolu
queffelec125 Messages postés 5 Statut Membre -  
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Tous les jours, je reçois un fichier excel comportant une seule feuille. Cette feuille porte un nom différent chaque jour, par exemple : JT_SACD_PARIS_79182426_181113 puis le lendemain JT_SACD_PARIS_79182426_181114)...

Pour mettre en forme ce fichier j'ai besoin d'exécuter une macro mais comme le nom de la feuille change cela bloque la macro. Avez-vous une solution pour que ma macro fonctionne quel que soit le nom de la feuille excel ?

Merci

6 réponses

  1.
    m@rina Messages postés 27975 Date d'inscription   Statut Modérateur Dernière intervention   11 570
     
    Bonjour,

    On ne connaît pas ta macro, mais bon s'il y a une seule feuille, on met le numéro de la feuille, c'est tout.
    Par exemple ActiveWorkbook.Sheets(1).Select

    m@rina
    0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 785
     
    Bonjour,

    Sans le code, il est difficile de donner une réponse efficace !
    Il y a différentes manières de s'affranchir du nom de la feuille, le plus simple est d'utiliser son index : 
      Set MaFeuille = Workbooks("MonClasseur").Worksheets(1)


    0
  3. queffelec125 Messages postés 5 Statut Membre
     
    ma macro bloque à ce niveau :

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False<gras>
    Sheets("JT_SACD_PARIS_79182426_181113 (").

    Attention, je suis un amateur en macro. Voici le contenu de ma macro :

    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AF$41").AutoFilter Field:=13, Criteria1:="=CB", _
    Operator:=xlOr, Criteria2:="=VISA"
    ActiveWindow.SmallScroll ToRight:=5
    ActiveSheet.Range("$A$1:$AF$41").AutoFilter Field:=20, Criteria1:= _
    "CAPTURED"
    Rows("3:3").Select
    Range("F3").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("J4").Select
    Selection.Copy
    Range("J3").Select
    ActiveSheet.Paste
    Range("M4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "CB"
    Range("O4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]>0,RC[-7]/100,"""")"
    Range("O4").Select
    Selection.Copy
    Range("O5:O324").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("O3").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC:R[375]C)"
    Range("O3").Select
    Selection.ClearContents
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[249]C)"
    Range("AG1").Select
    ActiveCell.FormulaR1C1 = "compte"
    Range("AG3").Select
    ActiveCell.FormulaR1C1 = "512206"
    Range("AH1").Select
    ActiveCell.FormulaR1C1 = "sens"
    Range("AG4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-25]>0,450101,"""")"
    Range("AG4").Select
    Selection.Copy
    Range("AG5:AG184").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "si("
    Range("O3").Select
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-19]>0,""C"",""D"")"
    Range("AH3").Select
    Selection.Copy
    Range("AH4:AH218").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "D"
    Range("AH4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-19]>0,""C"","""")"
    Range("AH4").Select
    Selection.Copy
    Selection.End(xlDown).Select
    Range("AH218:AH253").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH184").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH149").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH114").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH79").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH44").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH6").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH5:AH254").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH4").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Cells.Select
    Range("L1").Activate
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("JT_SACD_PARIS_79182426_181113 (").Select
    ActiveSheet.Range("$A$1:$AF$324").AutoFilter Field:=13, Criteria1:="SDD"
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll ToRight:=20
    Rows("8:8").Select
    Range("U8").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("J9").Select
    Selection.Copy
    Range("J8").Select
    ActiveSheet.Paste
    Range("AG8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "512206"
    Range("AG9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-25]>0,""450101"","""")"
    Range("AG9").Select
    Selection.Copy
    Range("AG35:AG390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH8").Select
    ActiveCell.FormulaR1C1 = "D"
    Range("AH9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-26]>0,""C"","""")"
    Range("AH9").Select
    Selection.Copy
    Range("AH35:AH390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.LargeScroll ToRight:=-1
    Range("M9").Select
    Selection.Copy
    Range("M8").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=-8
    Range("O9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]>0,RC[-7]/100,"""")"
    Range("O9").Select
    Selection.Copy
    Range("O35:O390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("O8").Select
    Selection.FormulaR1C1 = "="
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[374]C)"
    Range("O8").Select
    ActiveWindow.SmallScroll Down:=-18
    Rows("8:330").Select
    Range("H8").Activate
    Selection.Copy
    Sheets("Feuil1").Select
    ActiveWindow.SmallScroll Down:=24
    Rows("39:39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    End Sub
    0
    1. m@rina Messages postés 27975 Date d'inscription   Statut Modérateur Dernière intervention   11 570
       
      ça mérite un bon nettoyage ! :s
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. queffelec125 Messages postés 5 Statut Membre
     
    Merci à tous pour vos réponses.

    N'étant pas informaticien je construis mes macros de la manière suivante :

    En fait, je n'écris pas la macro, mais elle enregistre mes actions c'est pourquoi il y a certainement du nettoyage à faire.

    Mais mon problème demeure, les différentes réponses ne me permettent pas de lancer ma macro.

    Mon problème apparait à ce niveau :

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("JT_SACD_PARIS_79182426_181113 (").Select

    Par quoi faut-il remplacer "JT_SACD_PARIS_79182426_181113" pour que la macro ne se bloque pas chaque jour alors que le nom de la feuille est chaque jour différent ?

    Je remets ci-dessous ma macro et si quelqu'un peut m'aider, d'avance merci :

    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AF$41").AutoFilter Field:=13, Criteria1:="=CB", _
    Operator:=xlOr, Criteria2:="=VISA"
    ActiveWindow.SmallScroll ToRight:=5
    ActiveSheet.Range("$A$1:$AF$41").AutoFilter Field:=20, Criteria1:= _
    "CAPTURED"
    Rows("3:3").Select
    Range("F3").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("J4").Select
    Selection.Copy
    Range("J3").Select
    ActiveSheet.Paste
    Range("M4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "CB"
    Range("O4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]>0,RC[-7]/100,"""")"
    Range("O4").Select
    Selection.Copy
    Range("O5:O324").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("O3").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC:R[375]C)"
    Range("O3").Select
    Selection.ClearContents
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[249]C)"
    Range("AG1").Select
    ActiveCell.FormulaR1C1 = "compte"
    Range("AG3").Select
    ActiveCell.FormulaR1C1 = "512206"
    Range("AH1").Select
    ActiveCell.FormulaR1C1 = "sens"
    Range("AG4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-25]>0,450101,"""")"
    Range("AG4").Select
    Selection.Copy
    Range("AG5:AG184").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "si("
    Range("O3").Select
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-19]>0,""C"",""D"")"
    Range("AH3").Select
    Selection.Copy
    Range("AH4:AH218").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "D"
    Range("AH4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-19]>0,""C"","""")"
    Range("AH4").Select
    Selection.Copy
    Selection.End(xlDown).Select
    Range("AH218:AH253").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH184").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH149").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH114").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH79").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH44").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH6").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("AH5:AH254").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH4").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Cells.Select
    Range("L1").Activate
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("JT_SACD_PARIS_79182426_181113 (").Select
    ActiveSheet.Range("$A$1:$AF$324").AutoFilter Field:=13, Criteria1:="SDD"
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll ToRight:=20
    Rows("8:8").Select
    Range("U8").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("J9").Select
    Selection.Copy
    Range("J8").Select
    ActiveSheet.Paste
    Range("AG8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "512206"
    Range("AG9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-25]>0,""450101"","""")"
    Range("AG9").Select
    Selection.Copy
    Range("AG35:AG390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("AH8").Select
    ActiveCell.FormulaR1C1 = "D"
    Range("AH9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-26]>0,""C"","""")"
    Range("AH9").Select
    Selection.Copy
    Range("AH35:AH390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.LargeScroll ToRight:=-1
    Range("M9").Select
    Selection.Copy
    Range("M8").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=-8
    Range("O9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]>0,RC[-7]/100,"""")"
    Range("O9").Select
    Selection.Copy
    Range("O35:O390").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("O8").Select
    Selection.FormulaR1C1 = "="
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[374]C)"
    Range("O8").Select
    ActiveWindow.SmallScroll Down:=-18
    Rows("8:330").Select
    Range("H8").Activate
    Selection.Copy
    Sheets("Feuil1").Select
    ActiveWindow.SmallScroll Down:=24
    Rows("39:39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    End Sub
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
       
      Tu nous remets 2 fois ton code indigeste alors que l'on a répondu à ta question: 

      Sheets("JT_SACD_PARIS_79182426_181113 (").Select 


      Sheets(1).Select
      0
  7. queffelec125
     
    merci à tous pour vos réponses.

    Je n'ai pas pu les mettre en application car vos réponses s'adressent à un spécialiste que je ne suis pas. Toutefois, en effectuant de nouvelles recherches sur internet j'ai trouvé une autre solution avec la fonction excel "filtre textuel" ou "filtre numérique".

    Encore merci
    0
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 785
       
      « vos réponses s'adressent à un spécialiste » ?????
      Je vois pas en quoi il faut être spécialiste pour remplacer dans ta macro la ligne :
      Sheets("JT_SACD_PARIS_79182426_181113 (").Select
      par celle-ci :
      Sheets(1).Select
      0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses