poussy67
XLDnaute Occasionnel
Bonjour le forum
J’ai un classeur qui me sert de modèle, lors d’ouverture de ce classeur j’ai un USF qui me permet de faire un enregistrement sous, pour ne pas modifier le classeur modèle. J’ai un autre classeur ouvert dont le nom peut varier, j’ai une macro qui permet de copier une feuille de ce classeur, mais n’arrive pas a coller les données dans le nouveau classeur qui a été renommé. Peut on modifier une ligne dans la VBA lors de l’enregistrement sous (changer le nom du classeur de destination)
Private Sub CommandButton1_Click()
Workbooks.Open Rep & ComboBox1
Range("A1:E300").Select
Selection.Copy
Windows("Suivi_vente_F3.xls").Activate ‘ Nom du modèle
Windows("Nouveau nom.xls").Activate ' Après l'enregistrement sous
Range("A14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A14").Select
End Sub
Ou si il y a une autre solution je suis ouvert a tout suggestion
En remerciant d'avance du coup de main.
Poussy
J’ai un classeur qui me sert de modèle, lors d’ouverture de ce classeur j’ai un USF qui me permet de faire un enregistrement sous, pour ne pas modifier le classeur modèle. J’ai un autre classeur ouvert dont le nom peut varier, j’ai une macro qui permet de copier une feuille de ce classeur, mais n’arrive pas a coller les données dans le nouveau classeur qui a été renommé. Peut on modifier une ligne dans la VBA lors de l’enregistrement sous (changer le nom du classeur de destination)
Private Sub CommandButton1_Click()
Workbooks.Open Rep & ComboBox1
Range("A1:E300").Select
Selection.Copy
Windows("Suivi_vente_F3.xls").Activate ‘ Nom du modèle
Windows("Nouveau nom.xls").Activate ' Après l'enregistrement sous
Range("A14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A14").Select
End Sub
Ou si il y a une autre solution je suis ouvert a tout suggestion
En remerciant d'avance du coup de main.
Poussy