Problèmes enregistrement de macro

[JR.31]

Bonjour à tous,
J'aimerais avec une macro, éditer en deux exemplaires une feuille, l'enregistrer dans un dossier, éffacer certain éléments et repositionner sur un cellules défini.
Voici donc un dédut d'exemple, et si vous pouviez m'aider ce serait sympa.
Merci à toutes et tous.
JR.31

 

[titiborregan5]

Re : Problèmes enregistrement de macro

Bonjour JR, le forum,

Tu souhaites créer 2 fois cette feuille, mais où? dans ce classeur? Dans le classeur enregistré sous le nom de l'expéditeur??

Tibo

 

[JR.31]

Re : Problèmes enregistrement de macro

Bonjour, je souhaiterez éditer deux exemplaire de cette feuille, et l'enregistrer sous le nom de l'expéditeur dans un autre dossier.
Merci à toi

 

[titiborregan5]

Re : Problèmes enregistrement de macro

Re,
Editer = imprimer? Enregistrer?

 

[JR.31]

Re : Problèmes enregistrement de macro

Editer = Imprimer

 

[titiborregan5]

Re : Problèmes enregistrement de macro

re,
ok je comprends mieux maintenant! je ne savais pas si tu voulais dire modifier, enregistrer etc!

Je regarde ça et reviens vers toi si je trouve

Tibo

 

[titiborregan5]

Re : Problèmes enregistrement de macro

Et voilà, dis moi si ça marche

Private Sub CommandButton1_Click()
PrintOut , , 2
expediteur = Cells(4, 3).Value
emplacement = "c:\***\"
ActiveWorkbook.SaveAs (emplacement & expediteur & ".xls")
Range("C1" & "C2" & "C7").ClearContents

End Sub

Tibo

 

[titiborregan5]

Re : Problèmes enregistrement de macro

Code:
Private Sub CommandButton1_Click()
PrintOut , , 2
expediteur = Cells(4, 3).Value
emplacement = "c:\***\"
ActiveWorkbook.SaveAs (emplacement & expediteur & ".xls")
Range("C1" & "C2" & "C7").ClearContents

End Sub

En fait vaudrait peut être mieux mettre Activeworkbook.savecopyas(...) plutôt que saveas??
Voir si des personnes plus compétentes peuvent répondre...

Tibo