Discussion :

[capi81]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=Proforma & Feuil1.Range("R1")

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.
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

[Marc-L]

Bonjour,

commencer donc par enfin contrôler les valeurs des variables et des cellules des lignes en erreur, cela aiderait bien aussi …

[parmi]

Dès les premières lignes

Dossier = "C:\"

Exercice = Dossier & "\EXERCICES "

ce qui donne "C:\\EXERCICES "

[capi81]

Salut Marc-L et le forum

Merci pour votre contribution.
J'ai pas bien compris votre remarque mais j'ai "tout" vérifié mais je sais pas pourquoi il y'a toujours le débogage.
Si vous voyez ou j'ai "péché" (depuis matin que je cherche mais en vain), merci de me corriger.

[parmi]

Qu'est-ce qu'il y a d'inscrit ici: Feuil1.Range("R1")

[capi81]

Salut Parmi et le forum

Qu'est-ce qu'il y a d'inscrit ici: Feuil1.Range("R1")

C'est le nom que doit porter le nouveau fichier.
Il s'agit d'une formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C17&"_"&GAUCHE(H17;5)&"_"&TEXTE(H18;"jj mm aaaa")&"_"&C27

Le problème concernant l'enregistrement a été résolu.
Effectivement il y'avait une erreur ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dossier = "C:\"
 
Exercice = Dossier & "\EXERCICES "

Que j'ai rectifié par ceci: Dossier = "C:"

Exercice = Dossier & "\EXERCICES " et ca fonctionne bien.
Il reste maintenant le problème concernant la feuille à copier.
J'ai souhaité que le nom de la feuille à copier soit celle de la cellule G2 de la feuille PARAMETRE.
Comment intégrer cette condition dans mon code?

[parmi]

Tu ne m'as pas dit ce que contenait la cellule, mais bon... peut-être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=Proforma & "\" & Sheets("PARAMETRE").Range("R1") & ".xlsx"

[capi81]

Salut Parmi

Merci pour votre solution qui fonctionne bien.
Et pourtant j'ai donné le contenu de la cellule dans le post#6.
Je ne sais pas si vous avez vu mon dernier besoin:

Il reste maintenant le problème concernant la feuille à copier.
J'ai souhaité que le nom de la feuille à copier soit celle de la cellule G2 (valeur de la cellule) de la feuille PARAMETRE.
Comment intégrer cette condition dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Devis").Copy

?

[parmi]

C17&"_"&GAUCHE(H17;5)&"_"&TEXTE(H18;"jj mm aaaa")&"_"&C27

Ceci me donne la formule inscrite, mais pas le résultat.
Ce n'est pas grave si ça fonctionne...

Pour ta question, c'est ce que je t'ai mis dans le message précédent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Sheets("Devis").Copy
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs Filename:=Proforma & "\" & Sheets("PARAMETRE").Range("R1") & ".xlsx"

[mercatog]

Attention au classeur actif

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
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
 
ThisWorkbook.Worksheets("Devis").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Proforma & "\" & ThisWorkbook.Worksheets("PARAMETRE").Range("G2")
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

[parmi]

Bien vu !

[capi81]

Salut Mercatog et Parmi

merci pour vos riches contributions.
Suis satisfait.