Vba créer nouveau tableau puis copier ... [Résolu/Fermé]

Signaler
-
 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

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 115
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+
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