Bonjour,
Je rencontre un problème et je ne vois pas lequel est-ce :
J'ai fini de remplir un tableau et je voudrais copier la Sheet créée dans un nouveau classeur
créé par la macro.
J'ai donc fait:
Dim courant As String
Dim adress1path As String
adress1 = Nomfichier(UserForm1.TextBox1.Text)
courant = ThisWorkbook.Name
adress1path = ActiveWorkbook.Path
(...)
adress1 = Replace(adress1, ".xls", "")
Workbooks.Add.SaveAs (adress1path & "\" & adress1 & "-" & "abc")
Windows(courant).Activate
Sheets(1).Copy
Windows(adress1 & "-" & "abc").Activate
Sheets(1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Pour la création, du nouveau classeur avec le nom pas de problème, pour la copie pas de problème
sauf qu'il me le fait dans un tableau appelé Classeur 3
En gros en plus d'avoir mon nouveau classeur (bien nommé) ouvert, il en ouvre un autre et me copie ma Sheet dedans.
J'aurais donc besoin d'un autre regarde dessus.
Merci d'avance.
M&m
