Pb macro
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... Pouvez-vous m'aidez s'il vous plait
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
MsgBox ActiveWorkbook.Name
MsgBox ActiveSheet.Name
ActiveSheet.UsedRange.Select <-- Il bloque ici ?!?!?!?!
Selection.Copy
Workbooks(new).Activate
ActiveSheet.UsedRange.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
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... Pouvez-vous m'aidez s'il vous plait
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
MsgBox ActiveWorkbook.Name
MsgBox ActiveSheet.Name
ActiveSheet.UsedRange.Select <-- Il bloque ici ?!?!?!?!
Selection.Copy
Workbooks(new).Activate
ActiveSheet.UsedRange.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
Bonjour,
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
MsgBox ActiveWorkbook.Name
MsgBox ActiveSheet.Name
sheets("nomfeuille").select <-- remplace nomfeuille par la feuille que tu veux copier
cells.Copy
Workbooks(new).Activate
sheets("nomfeuille").select <--- remplace nomfeuille par la feuille d'arrivée
cells(1,1).select <--n'oublie pas de mettre ca
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
A plus -
Essaie et dis moi si c aa marché
-
Bonjour,
Alors essaie comme ca :
Sub Copie()
Dim x As Integer
Dim ici As String
Dim ouvert As String
source = ActiveWorkbook.Name
workbooks.add
new = activeworkbook.name
Workbooks(source).Activate
Sheets("nomfeuille").copy Before:=Workbooks(new).Sheets(1)
End Sub
