Renseignement macro créa nouveau fichier

[ironangel]

Bonjour,

j'aimerais savoir s'il est possible de creer une macro sous excel permettant, lorsqu'on l'éxécute, de générer des nouveaux fichiers excel prédéfinis, c'est à dire contenant par exemple un tableau reprenant des donnés précédemment entré.

Amicalement

Seb

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

cf, cela ne vient pas du "définiton" ;-) je viens de réessayer

 

[mromain]

Re : Renseignement macro créa nouveau fichier

re,

j'ai essayé ton code (avec la partie en rouge en +), et il fonctionne :

Sub création_fichier()
Dim newWbk As Workbook, curWbk As Workbook, curSheet As Worksheet

Set curWbk = ThisWorkbook
Set newWbk = Application.Workbooks.Add

'ne garder que la première feuille
While newWbk.Sheets.Count > 1
Application.DisplayAlerts = False
newWbk.Sheets(2).Delete
Application.DisplayAlerts = True
Wend

'copier toutes les feuilles
For Each curSheet In curWbk.Sheets
curSheet.Copy after:=newWbk.Sheets(newWbk.Sheets.Count)
Next curSheet

'supprimer la première feuille du nouveau classeur
Application.DisplayAlerts = False
newWbk.Sheets(1).Delete
Application.DisplayAlerts = True
newWbk.SaveAs curWbk.Path & "\" & curWbk.Sheets("Définiton PF").Range("D8") [COLOR="Red"][B]& ".xls"[/B][/COLOR]
End Sub

il ne buge que si tu n'as pas de valeur dans la cellule "D8" de ta feuille "Définiton PF"

a+

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Je sais pas, ça bug toujours, pourtant il y a bien ecrit qqchose dans ma cellule, à savoir que c'est une cellule fusionnée.

Voila ce que j'ai écrit:
newWbk.SaveAs curWbk.Path & "\" & curWbk.Sheets("Définition PF").Range("C4") & ".xls"

Merci

 

[mromain]

Re : Renseignement macro créa nouveau fichier

m'est trompé...

 

[mromain]

Re : Renseignement macro créa nouveau fichier

re,

si c'est une cellule fusionné, il faut appeler la "de gauche".
je m'explique :
si tu fusionne A1, B1 et C1 et que tu écris "toto", alors tu auras "toto" dans A1 et rien dans B1 et C1.

ce que tu peux faire, c'est rajouter MsgBox curWbk.Sheets("Définition PF").Range("C4") avant la ligne d'enregistrement voir ce que ça donne.

bonne chance
a+

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Hello,

ça ne marche toujours pas, il me met bug sur la phrase saveas,il doit y avoir un soucis dans la notation peut être?

 

[mromain]

Re : Renseignement macro créa nouveau fichier

re,

as-tu essayer de rajouter MsgBox curWbk.Sheets("Définition PF").Range("C4") avant la ligne du saveas ?

si oui, est-ce que la MsgBox était vide ?

a+

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Oui j'ai essayé d'ajouté msgbox, mais la ligne saveas reste toujours en jaune, et pas possible de la débugé.

Qu'entends tu par la msgbox est vide?

Merci

 

[mromain]

Re : Renseignement macro créa nouveau fichier

est-ce qu'elle affiche la valeur de ta cellule, ou est-elle vide ?

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Hello

Ben j'ai copié texto le msgbox

(MsgBox curWbk.Sheets("Définition PF").Range("C4") )

au dessus de la ligne saveas mais je ne sais pas comment savoir si elle est vide ou pas, faut faire une manip particuliere pour cette msgbox?

Merci bien

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

'supprimer la première feuille du nouveau classeur
Application.DisplayAlerts = False
newWbk.Sheets(1).Delete
Application.DisplayAlerts = True
MsgBox curWbk.Sheets("Définition PF").Range("C4")
newWbk.SaveAs curWbk.Path & "\" & curWbk.Sheets("Définiton PF").Range("D8") & ".xls"
End Sub


Pour infos, le morceau du code identifié ;-)

 

[mromain]

Re : Renseignement macro créa nouveau fichier

re,

voici une MsgBox "vide"

est-ce que tu as ça, ou est-ce que ça affiche la valeur de ta cellule?

a+

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Salut,

En ce qui concerne la msgbox(fallait ajouter des parenthese avant et apres la msgbox) j'ai réussi à faire apparaitre la petite icone qui d'ailleurs reprend le contenu de ma cellule C4,
cependant, ça bug toujours au niveau du saveas, faut peut-être définir un emplacement d'enregistrement ou qqchose, je t'avouerais que je ne m'y connais pas assez

Amicalement

 

[mromain]

Re : Renseignement macro créa nouveau fichier

c'est bizarre quand même.

es-tu sur que ton fichier (de base) est bien enregistré?
essaye :
MsgBox (curWbk.Path & "\" & curWbk.Sheets("Définiton PF").Range("D8") & ".xls")
voir si tu as bien le chemin complet.

quand même bizarre...

a+

 

[ironangel]

Re : Renseignement macro créa nouveau fichier

Je t'avouerais que je ne sais pas du tt,
il est bien enregistré dans un dossier, mais cela ne marche toujours pas, toujours débugage, je suis désespéré lol:

je te redonne le code au cas ou:

Sub création_fichier()
Dim newWbk As Workbook, curWbk As Workbook, curSheet As Worksheet

Set curWbk = ThisWorkbook
Set newWbk = Application.Workbooks.Add

'ne garder que la première feuille
While newWbk.Sheets.Count > 1
Application.DisplayAlerts = False
newWbk.Sheets(2).Delete
Application.DisplayAlerts = True
Wend

'copier toutes les feuilles
For Each curSheet In curWbk.Sheets
curSheet.Copy after:=newWbk.Sheets(newWbk.Sheets.Count)
Next curSheet

'supprimer la première feuille du nouveau classeur
Application.DisplayAlerts = False
newWbk.Sheets(1).Delete
Application.DisplayAlerts = True
MsgBox (curWbk.Path & "\" & curWbk.Sheets("Définiton PF").Range("C4") & ".xls")
newWbk.SaveAs curWbk.Path & "\" & curWbk.Sheets("Définiton PF").Range("C4") & ".xls"
End Sub


Merci pour ton aide en tt cas