Qui peut m'aider SVP. J'utilise un userform avec des champs à remplir et alimente des cellules spécifique dans le classeur de l'userform. Sauf qu'après enregistrement il doit sélectionner une feuille du classeur MAIS si un autre classeur est ouvert il me met le message d'erreur 1004 La méthode Select de la classe Worksheet à échoué.
Je souhaiterais que quand je clique sur le boutton, ce soit le fichier original qui s'"Enregistre sous" et non le classeur ouvert vu que je réduit la fenêtre original
En activant le ThisWorkbook on devrait éviter tout problème :
VB:
Private Sub CommandButton1_Click()
With ThisWorkbook
.Activate
.Sheets("Feuil1").Range("C4") = TextBox1
Application.Dialogs(xlDialogSaveAs).Show TextBox1
.Sheets("Feuil2").Select
End With
End Sub
Private Sub CommandButton1_Click()
With ActiveWorkbook
With .Sheets("Feuil1")
.Range("C4").Value = TextBox1.Value
Application.Dialogs(xlDialogSaveAs).Show Me.TextBox1.Value
End With
.Sheets("Feuil2").Select
End With
End Sub
Je souhaiterais que quand je clique sur le boutton, ce soit le fichier original qui s'"Enregistre sous" et non le classeur ouvert vu que je réduit la fenêtre original
Alors il faut garder pour source le classeur contenant la macro et enregistrer une copie sous le nom de la Textbox
VB:
Private Sub CommandButton1_Click()
With ThisWorkbook
With .Sheets("Feuil1")
.Range("C4").Value = TextBox1.Value
Application.Dialogs(xlDialogSaveCopyAs).Show Me.TextBox1.Value
End With
.Sheets("Feuil2").Select
End With
End Sub