XL 2010 Copier feuille excel par macro

[gbstyle]

Bonjour, a tous
Je souhaiterai pouvoir améliorer mon code qui me permet de copier une feuille excel pour l'enregistrer sous un autre classeur :
Mon premier soucis, et que cette feuille à une procédure activate puisque mise a jour automatique par clic, et donc quand je copie cette meme feuille sur le nouveau classeur il m'ouvre l'application visualbasic pour débogage qui est logique car la feuille copié n'est plus lié.

Et j'aimerai pouvoir identifier un chemin, ainsi qu'un paramétrage de titre avec la date, (je n'arrive pas à intégrer la fonction now)

Ci joint petit fichier pour que vous compreniez bien mon soucis

Sub export_Suivis_Stocks()
With ThisWorkbook
.Worksheets("Suivis_Stocks").Copy
ActiveWorkbook.SaveAs .Path & "\" & Suivis_Stocks
End With
End Sub

 

[Lone-wolf]

Bonjour jbstyle, le Forum

ActiveWorkbook.SaveAs .Path & "\" & Suivis_Stocks. Si Suivis_Stocks est le nom du nouveau classeur, il faut mettre les guillemets.
Pour le paramétrage, pas trop compris. À moins que ce soit comme ceci

Dim chemin$, nom$

chemin = ThisWorkbook.Path & "\"
nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"

Il manque aussi le format de sortie; est-ce que tu veux l'enregistrer avec les macros ou sans?

 

[gbstyle]

Bonjour Lone-wolf
En faite pour le paramétrage je ne sais pas si tu as essayé le fichier mais lors de mon clic et de l'ouverture du fichier il m'ouvre le nouveau classeur mais à mon avis il faudrait que j'enregistre le fichier sans la macro
Je n'ai pas très bien compris comment tu veux que j'intégre tes infos, je voudrais pouvoir définir le chemin de sauvegarde

Sub export_Suivis_Stocks()
With ThisWorkbook
.Worksheets("Suivis_Stocks").Copy
ActiveWorkbook.SaveAs .Path & "\" & "Suivis_Stocks"
End With
End Sub

 

[Lone-wolf]

Re

Sauvegarder sans macros, à adapter. Tu copie cette macro dans le module 2, en supprimant auparavant tout ce qu'il y a dedans.

Sub export_Suivis_Stocks()
Dim chemin$, nom$

    chemin = ThisWorkbook.Path & "\"
    nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"
 
    Sheets("Suivis_Stocks").Activate
    ActiveSheet.Copy
 
    Application.ScreenUpdating = False                                             'xlOpenXMLWorkbook = xlsx
    ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close True
End Sub

 

[gbstyle]

A prioris j'ai toujour mon message d'erreur de débogage sur mon fichier copier, et le fichier qui s'ouvre se nomme classeur1 :/
je souhaiterai ajouter ce chemin de destination :
"F:\Projet \SL\03_PR\03_B\Exportation"

 

[gbstyle]

Je n'ai toujour pas réussis à avancer, je ne sais pas si ca a fonctionné pour toi avec ton code en essais car moi j'arrive meme pas à ouvrir le classeur avec le nom et la date :/

 

[Lone-wolf]

Re

Est-ce que tu as regardé la dernière macro??

chemin ="F:\Projet \SL\03_PR\03_B\Exportation\"

Ceci est le nom du classeur que tu vas créer
nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"

Chez moi je l'ai créé sans problèmes.

 

[gbstyle]

biensur j'ai appliquer rigoureusement ton code, j'avais également essayer la proposition avec chemin="F...."
mais voici mon réusltat quand je clique sur mon bouton macro,
- débogage
- fichier nomé classeur 11
et j'ai exactement ton code :

Sub export_Suivis_Stocks()
Dim chemin$, nom$

     chemin = "F:\Projet \SL\03_PR\03_B\Exportation\"
     nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"
 
     Sheets("Suivis_Stocks").Activate
     ActiveSheet.Copy
 
     Application.ScreenUpdating = False                                             'xlOpenXMLWorkbook = xlsx
     ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook
     ActiveWorkbook.Close True
End Sub

 

[Lone-wolf]

Re

Le Module MGigogne ainsi que les modules de classe sont de DRANREB, il faut voir avec lui comment procéder.

 

[gbstyle]

ok merci beaucoup je vais lui poser la question, il m'a beaucoup aider donc je voulais pas l'embeter plus :/ je vais essayer a nouveau