Bonjour,
Je ne comprends pas pourquoi ma fonction ne marche pas... Pouvez vous m'aider s'il vous plait. Je fais juste un copie d'un fichier excel vers un autre fichier excel. Il bloque sur le Select... Encore 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
Sub Copie() 
Dim x As Integer 
Dim ici As String 
Dim ouvert As String 
x = Workbooks.Count 
source = ActiveWorkbook.Name 
Application.Dialogs(xlDialogOpen).Show 
new = Workbooks(x + 1).Name 
Workbooks(source).Activate 
ActiveSheet.UsedRange.Select '<-- Il bloque ici ?!?!?!?! 
Selection.Copy 
Workbooks(new).Activate 
ActiveSheet.UsedRange.Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
End Sub