Pb macro vba copier coller sur nouveau classeur

[minouche]

Bonjour à tous,
Je viens vers vous car je n'arrive pas trouver solution à mon pb
j'ai créé un userform qui enchaine des inputbox et msgbox
Suite aux infos renseignées, celles-ci s'intègrent dans la feuil2 de mon document mais cette feuille sera masquée en fin de projet.
Je souhaite recopier l'ensemble de ces données sans les lignes vides sur un nouveau classeur (pas de chemin spécifique à intégrer) mais je pense qu'il doit y avoir un pb avec ma macro les données sont recopiées sur la feuil2 de mon doc actif
L'erreur doit être bête je sais mais étant débutante en vba....
De plus, ou dois-je écrire ma procédure pour incrémenter une numérotation de 1 à .... une fois les lignes copiées
Merci à tous ceux qui voudront bien y jeter un oeil🙄

voici mon code

Private Sub CommandButton2_Click()
Dim K, j As Integer
Dim Cel As Range

With Application
.DisplayAlerts = False
ActiveWorkbook.Worksheets(Array("feuil2")).Copy
ActiveWorkbook.Save
ActiveWorkbook.Close False
.DisplayAlerts = True
End With

Dim I As Long
For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
Next I


If Sheets("Feuil2").Range("A5:A" & [A65000].Row).Row >= 1 Then ActiveSheet.Rows.Range("A5:C" & [A65000].Row).ClearContents
With Sheets("Feuil2")
For Each Cel In .Range("B5:B" & .[B65000].End(xlUp).Row)
If Cel <> "" Then
With Sheets("Feuil2")
For j = 1 To 11
.Cells(7 + K, j) = ActiveSheet.Rows.Cells(Cel.Row, j)
Next
K = K + 1
End With
End If
j = 0
Next
End With

msgbox "transfert terminé"
end sub

 

[Yaloo]

Re : Pb macro vba copier coller sur nouveau classeur

Bonsoir minouche,

D'après ce que je vois (car pas de fichier pour tester) tu fermes ton classeur nouvellement créé, donc ton classeur actif redevient le classeur d'origine.

Donc tes données sont inscrites dans ton document d'origine en feuille 2

A+

Martial