Discussion :

[roadmender]

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

[Jean-Philippe André]

salut,
ici tu actives un workbook, mais aucune worksheet, aussi ActiveSheet n'est pas vraiment en mesure de te retourner une valeur correcte
Je préconise l'utilisation de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks(source).Activate 
ActiveWorkBook.Worksheets(1).Activate

[Pierre Fauconnier]

Bonjour

Je te conseille de travailler avec des objets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim ClasseurCible As Workbook
    Dim FeuilleSource As Worksheet
    Dim FeuilleCible As Worksheet
    Dim PlageCible As Range
 
    Set FeuilleSource = ActiveSheet
    Application.Dialogs(xlDialogOpen).Show
    Set ClasseurCible = ActiveWorkbook
    Set FeuilleCible = ActiveSheet
    FeuilleSource.UsedRange.Copy
    ClasseurCible.Activate
    FeuilleCible.UsedRange.Cells(1, 1).Select
    FeuilleCible.Paste
    Application.CutCopyMode = False