Bonjour à tous,
Tout d'abord, mes excuses si ce sujet a déjà été traité dans un autre post. J'ai cherché pourtant
Ensuite, voici l'exposé de mon problème.
Ma situation :
- J'ai une macro affectée à un bouton dans un 1er classeur.
- Cette macro crée un onglet dans ce classeur puis le déplace dans un nouveau.
- Je procède ensuite à un enregistrer sous de ce nouveau classeur, puis je le ferme.
- et la macro se termine.
Mon problème : à la fin de l'exécution le bouton de la macro pointe sur le nouveau fichier alors que l'affectation n'aurait pas du changer !?
L'un d'entre-vous pourrait me dire ce que j'ai fait de mal ?
Ci-dessous le bout de code correspondant.
Merci pour votre aide.
Variable
-----
Application.StatusBar = en_tete_statusbar & "Enregistrement."
wb.Sheets("Ch. MOE MOA").Move 'Transfère la feuille dans un nouveau classeur
Set wbS = ActiveWorkbook
'On demande d'indiquer le nom du nouveau fichier jusqu'à ce qu'on ait un nom
'ou que l'utilisateur ait confirmé l'annulation de la macro.
Do
Sélection_terminée = True
texte = "Enregistrer le fichier Charges_MOE_MOA sous..."
Sélection_fichier = Application.GetSaveAsFilename(Title:=texte, FileFilter:="Excel Workbook (*.xlsx), *.xlsx,")
If TypeName(Sélection_fichier) = "Boolean" Then
reponse = MsgBox("Pas de fichier indiqué. Voulez-vous quitter la macro ?", vbYesNo + vbCritical)
If reponse = vbYes Then
Exit Sub
Else
Sélection_terminée = False
End If
End If
Loop While Sélection_terminée = False
wbS.SaveAs Filename:=Sélection_fichier
wbS.Close