Mise à jour d'onglet dans autre fichier Excel selectionné

Bonjour,

Il est possible que cette question ait déjà été posée mais je ne trouve pas de réponse satisfaisante malgré mes recherches.

Je souhaite, à partir d'un fichier A, faire une mise à jour d'onglet du fichier B (ca n'a pourtant pas l'air compliqué).

Le code suivant marche jusqu'au moment de coller les données... rien ne se passe, je dirai même plus que je n'arrive pas à activer la sheet14 du classeur B.

Une idée? svp

Sub MAJ_Structure2()

'Application.ScreenUpdating = False

'Application.DisplayAlerts = False

Dim wbSource, wbFichierUsager As Workbook

Dim shA As Worksheet 'Feuille A

Dim strFileName As String

Dim intChoice As Integer 'Déclarer les variables de base

Set wbFichierUsager = ThisWorkbook

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

intChoice = Application.FileDialog(msoFileDialogOpen).Show

If intChoice <> 0 Then

strFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Workbooks.Open strFileName

Set wbSource = ActiveWorkbook

Else

MsgBox ("La procédure est annulée car aucun fichier n’a été entré.")

Exit Sub

End If

'Copier données fichier source

wbFichierUsager.Activate

Sheet14.Activate

Cells.Select

Selection.Copy

'Coller dans fichier cible

wbSource.Activate

Sheet14.Activate

Range("A1").Select

ActiveSheet.Paste

MsgBox "Le transfert de structure a bien été effectué."

End Sub

bonjour,

essaie ceci

wbFichierUsager.Sheet14.Cells.Copy WbSource.sheets("Sheet14").Range("A1")

au lieu de

'Copier données fichier source
wbFichierUsager.Activate
Sheet14.Activate
Cells.Select
Selection.Copy

'Coller dans fichier cible
wbSource.Activate
Sheet14.Activate
Range("A1").Select
ActiveSheet.Paste

Merci mais cette ligne me génère un message d'erreur Runtime error 438 "Object doesn't support this property or method""

bonjour,

utilise le nom de feuille plutot que leur code

wbFichierUsager.sheets("Sheet14").Cells.Copy WbSource.sheets("Sheet14").Range("A1")

Génial, j'avais trouvé un contournement mais ta solution optimise grandement mon code.

Merci beaucoup