Nom de feuille ?

Bonsoir voici le début de ma macro et j'aimerai que la macro prenne en compte les feuilles et non le nom des feuilles, est-ce possible ? merci

Donc à la place de "p1", "p2" mettre Feuil1 et Feuil2

Merci les amis.

Option Explicit

Sub export()
Dim NbLg As Long
Dim WsSource As Worksheet
Dim Wb As Workbook
Dim n As Long
Dim Nom As String
Dim x As Integer

   On Error Resume Next
   Windows("export.xls").Activate
   On Error GoTo 0
   If Err.Number <> 0 Then
    MsgBox "Le fichier Liste est fermé, veuillez l'ouvrir", vbCritical
   Exit Sub
    End If

  Nom = "Liste.xls"

  For x = 1 To Workbooks.Count
    If Workbooks(x).Name = Nom Then Exit For
  Next x

  If x > Workbooks.Count Then
    Nom = OuvreFichier
  End If

  If Nom = "" Then Exit Sub

  Set Wb = Workbooks(Mid(Nom, InStrRev(Nom, "\", -1) + 1))

  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
  End With
  With Wb
    On Error Resume Next
    .Sheets("Fichier final").Delete
    .Sheets("Fichier final").Delete
    On Error GoTo 0

  ' Copier toutes les données sur une feuille provisoire

    Application.DisplayAlerts = True
    .Sheets.Add.Name = "Fichier final"
    .Sheets("P1").Rows(5).Copy .Sheets("Fichier final").Range("A1")
    '.Sheets("Fichier Final").Rows(1).Interior.ColorIndex = 40
    For Each WsSource In .Sheets(Array("p1", "p2"))
    'If WsSource.Range("A2") <> "" Then
    WsSource.Range("A6:AB" & WsSource.Range("A" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=.Sheets("Fichier final").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
'End If
Next WsSource
End With

Bonjour,

Si tu veux pouvoir modifier le nom de l'onglet, sans perturber ta macro, tu peux utiliser le Code Name de cet onglet ...

Si, par exemple, pour ton tout premier onglet , son CodeName sera Feuil1 que tu pourras utiliser à la place du nom actuel de l'onglet : Sheets("historique2006")

ci-dessous, une image explicative ....

Merci mais j'ai du mal m'expliquer.

Je voudrais que la macro ne tienne pas compte du nom des feuilles justement.

Bonjour,

Désolé ...

Donc, tu voudrais que ta macro tienne compte de quoi ...??? des indexes ...???

Qu'elle tienne en compte des feuilles tout simplement, peu importe le nom donné ou modifié.

DJ FA a écrit :

Qu'elle tienne en compte des feuilles tout simplement, peu importe le nom donné ou modifié.

Re,

Cela signifie que tu as besoin des CodeNames ... voir message précédent ... avec image ...

Ok je vais essayer, merci.

Quand je mets feuil1 ça bloque. Donc ce n'est pas cette solution.

Il va falloir que je trouve une autre solution alors.

Bonsoir,

Sheets(1), peut-être?

Bonne soirée

Bonjour,

Après avoir essayé les noms des onglets, les indexes et les codenames .... le tout sans succès ... on peut légitimement se demander comment les essais ont été efffectués ...

Et dire qu'en joignant le fichier ... la question aurait été réglée ... il y a quatre jours ... tant pis ...!!!