probl enregistrer sous

[antiphot]

Bonjour à toutes et tous

J'ai un problème concernant l'enregistrement de mon fichier par macro. Je m'explique:
J'ai une macro dans un module principal qui crée un planning (module1) ensuite une macro2 ajoute des liens hypertextes(module2). Ensuite je fais un saveas sous un nouvau nom de fichier. Jusque là tout va bien. J'ai rajouté une 3ème macro(module4) qui crée un bouton + code dans la page répertoire de mon fichier. Et là tout se gâte car il enregistre sous le nom du fichier initial. Il faut que l'appel de cette macro se fasse après mon saveas pour que le changement de nom ait lieu. Le pb c'est que si l'utilisateur répond non à la question enregistrer sous, mon fichier est enregistré sans le bouton commande

comme je me doute que mes explications sont peut-être un peu nébuleuses, je joins le fichier en qauestion.

En vous remerciant par avance
Philippe [file name=planning_20060522112141.zip size=18039]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planning_20060522112141.zip[/file]

 

[antiphot]

ordre du saveas dans macro

Re

Je reviens sur le fil pour essayer de clarifier un peu ma demande.

Voilà j'ai une macro qui se décompose comme suit:

sub test()
instructions.......
...................
CreationLiens '(macro2)
creerBouton '(macro3)
Dim fichier As String
fichier = ThisWorkbook.Path & '\\' & 'Année' & ' ' & '2006' & '.xls'
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

Or le fichier modifié en final s'appelle tjs test

par contre si je procède ainsi:

sub test()
instructions.......
...................
CreationLiens '(macro2)
Dim fichier As String
fichier = ThisWorkbook.Path & '\\' & 'Année' & ' ' & '2006' & '.xls'
ActiveWorkbook.SaveAs Filename:=fichier
creerBouton '(macro3)
End Sub

mon fichier est bien enregistré sous son nouveau nom. Mais les modifs de la macro3 ne sont pas prise en compte.

Je pense que le pb vient de la macro3 mais ???

Si quelqu'un a une idée ce serait cool


ci-dessous la macro2

Sub creerBouton()
Dim X As Byte
Dim Code As String
Dim NextLine As String

Worksheets('Répertoire').OLEObjects.Add 'Forms.commandButton.1', _
Left:=30, Top:=150, Height:=40, Width:=150
'Left position bouton par rapport au bord gauche de la feuille
'Top position bouton par rapport au haut de la feuille
'Width largeur bouton
'Height hauteur bouton

X = ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(X).Object.Caption = 'Modifications planning'
ActiveSheet.OLEObjects(X).Object.BackColor = RGB(204, 255, 255)

Code = 'Sub CommandButton' & X & '_Click()' & vbCrLf
Code = Code & 'userform1.show' & vbCrLf
Code = Code & 'End Sub'

On Error GoTo Message

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
End
Message:
MsgBox ('Attention pour exécuter correctement cette macro,') & Chr(10) _
& 'vous devez d'abord cochez la case:' & Chr(10) _
& ' (Faire confiance au projet Visual Basic) ' & Chr(10) _
& 'Pour cela aller dans:' & Chr(10) & '- Outils' & Chr(10) _
& '- Macros' & Chr(10) & '- Sécurité' & Chr(10) _
& '- Editeurs approuvés', vbCritical, 'erreur sécurité Macro'
End Sub

 

[antiphot]

Rerdre du saveas dans macro

Pour ceux ou celles qui se sont penchés sur mon pb, j'ai trouvé l'erreur.

J'avais oublié exit sub et resume next pour ma gestion d'erreur

A+