Ouverture d'un onglet variable dans un fichier spécifique

Bonjour,

Voici ma petite problématique,

Je dois ouvrir un fichier variable et y coller des données dans un onglet dont le nom variable est dans le fichier de départ.

Je bloque à la partie sélection de l'onglet dans le fichier.

Est-ce que quelqu'un pourrait me donner une petite piste sur le comment : Il semble me manquer la partie qui sélectionnera la cellule dans le fichier de départ et non dans le fichier d'arrivée

Ci-joint le fichier avec les données de départ et le fichier à ouvrir.

Merci à l'avance

###########

' Dans le fichier CE, choisir quelle ligne sera copié de l'onglet liste

Sheets("Liste").Select

With ActiveSheet

DerLig = Range("C1")

Vaong = Range("C3")

Range("B" & DerLig & ":I" & DerLig).Select

Selection.Copy

End With

'ici ouvrir le fichier et coller

ChDir "R:\DRFL\Budget\CISSS\Commun\DOSSIER SP\PAIE\TEST CE-CA"

Application.CutCopyMode = False

Workbooks.Open Filename:= _

"R:\DRFL\Budget\CISSS\Commun\DOSSIER SP\PAIE\TEST CE-CA\Liste_CE_" & [C2] & ".xlsb"

'Dans ce fichier, ouvrir le bon onglet dont le nom se trouve sur le fichier de départ (fichier CE) à l'onglet "LISTE"........ cellule C3

ActiveSheet = (Vaong)

############

Bonjour spage,

après la ligne:

ChDir "R:\DRFL\Budget\CISSS\Commun\DOSSIER SP\PAIE\TEST CE-CA"

efface la ligne

Application.CutCopyMode = False

Remplace la ligne:

ActiveSheet = (Vaong)

par:

ActiveWorkbook.Sheets(Vaong).Activate 

Tu peux aussi supprimer les .Select dans ton code. Par exemple

Range("B" & DerLig & ":I" & DerLig).Select
Selection.Copy

devient

Range("B" & DerLig & ":I" & DerLig).Copy

Bon matin Sequoyah,

Merci beaucoup ça fonctionne à merveille. Belle Nouvelle pour un Lundi matin.

Ici il neige un brin.

Une vba qui fonctionne ça réchauffe