Pb macro Fermé

Question

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

melanie1324 · Answer

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

melanie1324 · Answer

Essaie et dis moi si c aa marché

melanie1324 · Answer

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

Pb macro

3 réponses

Discussions similaires

Newsletters