Bonjour,

Je dispo de deux fichier Excel. Le premier appelé données et le deuxième appelé réception. Dans le classeur données, je veux copié les valeurs de la feuille 3 ( appelés villes ) pour les coller dans la feuille 2 du classeur informations. Mon code est le suivant mais ne fonctionne pas :

Merci de votre aide ,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Utilisation_FileDialog_Ouvrir()
 
Dim objOuvrir As FileDialog
Dim objFichiers As FileDialogSelectedItems
Dim wbsource As Workbook, wbdest As Workbook
 
Set objOuvrir = Application.FileDialog(msoFileDialogOpen)
 
With objOuvrir 'Affiche la fenêtre "Ouvrir"
    .Filters.Clear 'Efface les filtres existants.
    .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm" 'Définit une liste de filtres pour le champ "Type de fichiers".
    .Show
    Set objFichiers = .SelectedItems 'Définit les fichiers sélectionnés
End With
 
If Not objFichiers.Count = 1 Then Exit Sub 'On sort si aucun fichier n'a été sélectionné
 
Application.ScreenUpdating = False
 
Set wbdest = ThisWorkbook 'classeur exécutant où sera collée la feuille
Set wbsource = Workbooks.Open(objFichiers(1))
 
wbsource.Sheets("Villes").UsedRange.Copy Destination:=wbdest.Sheets("informations").Range("A3:BZ5000") '<<<<ADAPTER
wbsource.Close False
 
Application.ScreenUpdating = True
 
End Sub