sélection de 2 feuilles identiques

[lesuisse]

Bonjour,

J'ai 2 fichiers :
- un ancien qui comporte un certain nombre de feuilles dont les noms sont A, B, C et D par ex.
- un nouveau qui comporte également des feuilles dont le nom peut être le même que dans l'ancien mais pourquoi pas le même. Disons A, C, E et F.

Les données sont dans les feuilles de l'ancien fichier.

Le processus consiste à chercher les données dans l'ancien fichier et à les importer dans le nouveau par le biais du nom de la feuille.

Mais comme les feuilles du nouveau fichier ne sont pas toujours dans celui de l'ancien, je ne sais pas comment faire pour sélectionner par exemple le A de l'ancien et le mettre dans le nouveau, mais pas le B parce qu'il n'est pas dans le nouveau.

Voilà une idée mais qui ne fonctionne pas :


Dim Nouveau_Sheet As Worksheet
Dim Ancien_Sheet As Worksheet
Dim C As String
Dim D As String

For Each Nouveau_Sheet In Worksheets
WF_Sheet.Activate

C = Workbooks("Working File").ActiveSheet.Name
D = Workbooks("Previous Statement").ActiveSheet.Name


For Each Ancien_Sheet In Workbooks("Previous Statement").Worksheets
Ancien_Sheet.Activate

Next Ancien_Sheet

Next Nouveau_Sheet

En fait, je sélectionne les feuilles les unes après les autres et si le nom est le même, je copie les données... Mais ça ne marche pas !!

Merci pour votre aide...

 

[omicron]

Bonsoir LeSuisse,

Tu trouveras en pièces jointes un exemple basé sur l'utilisation de deux fichiers :

CopySheetBefore.xls (Fichier Ancien)
CopySheetAfter.xls (Fichier Nouveau)

Tu ouvres les deux, puis tu lances la copie en utilisant le bouton situé dans la feuille "A" du fichier CopySheetBefore.xls

Voici le code déroulé :

=====================================================
Private Sub CommandButton1_Click()
For Each ShtB In Workbooks("CopySheetBefore.xls").Sheets
For Each ShtA In Workbooks("CopySheetAfter.xls").Sheets
If ShtA.Name = ShtB.Name Then ShtB.Cells.Copy Destination:=ShtA.Cells
Next ShtA
Next ShtB
End Sub
=====================================================

Je pense que celà devrait répondre à la question posée.

Cordialement.

Omicron.

 

[lesuisse]

Salut omicron, le forum,

Merci pour ton aide qui a résolu tous mes soucis !!!

Bonne après-midi encore

Le Suisse en Suisse