Salut le forum
Je viens vers vous pour obtenir de l'aide.
dans mon fichier joint, j'ai un code qui doit me permettre d'enregistrer une feuille de mon classeur sur un nouveau classeur dans un dossier déjà défini. Le nom du nouveau classeur est égale à la valeur de la cellule DEVIS!R1.
Lorsque j’exécute le code, il y'a debogage ici :Aussi, comment faire pour que le nom de la feuille à copier soit la valeur de la cellule PARAMETRE!G2 (en effet dans mon classeur final, j'ai au moins 20 feuilles et dans parametre!G2 j'ai mis une formule qui correspond au nom de la feuille à copier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveWorkbook.SaveAs Filename:=Proforma & Feuil1.Range("R1")
Merci de m'aider à intégrer cette condition dans mon code en plus du problème de débogage déjà décelé.
Ci-dessous le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Enreg_Proforma() Dim Dossier As String, Exercice As String, Proforma As String Dossier = "C:\" Exercice = Dossier & "\EXERCICES " & Format(Date, "yyyy") If Dir(Exercice, vbDirectory) = "" Then MkDir Exercice Proforma = Exercice & "\PROFORMA " & Format(Date, "yyyy") If Dir(Proforma, vbDirectory) = "" Then MkDir Proforma 'copie de la feuille dans un nouveau classeur Sheets("Devis").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Proforma & Feuil1.Range("R1") Application.DisplayAlerts = True ActiveWorkbook.Close 'ThisWorkbook.SaveAs Filename:=Proforma & "\" & Feuil1.Range("R1") ', FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub
Partager