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