Vba créer nouveau tableau puis copier ...

Résolu
M&M -  
 M&M -
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

2 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Je n'ai pas tester tes variables mais il me semble que.. 
    Windows(adress1 & "-" & "abc").Activate

    n'est pas un nom de classeur valable, il manque .xls ?
    A+
    0
  2. M&M
     
    Au final j'ai utilisé une autre fonction:

    Sheets(1).Copy before:=Workbooks(adress1 & "-" & "abc.xls").Sheets(1)

    En tout cas merci lermite222, pr tes coups de main :)

    M&m
    0