Bonjour à tous,
J'ai un soucis avec mon programme vba, qui est beaucoup trop long et qui génére un arrêt total d'Excel.
Dans mon fichier A, j'ai une macro qui permet d'aller chercher des données dans un fichier B et coller les infos du fichier B dans le fichier A.
Le beug se produit au moment de coller les infos.
Quelqu'un pourrait m'aider à résoudre ce problème svp?
Voici mon programme:
Private Sub Valider_Click()
' Champs obligatoires
If Atelier.Text = "" Then
MsgBox "Le champs Atelier n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
If N°Semaine.Text = "" Then
MsgBox "Le champs N°Semaine n'a pas été rempli. Veuillez le remplir.", vbOKOnly + vbInformation, "Champs manquants ou incorrects"
Exit Sub
End If
' Récupération des données dans classeur fermé
Workbooks("MC_essai.xlsm" ).Worksheets("Saisie" ).Cells.ClearContents
Workbooks.Open Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Main_courante_atelier\Fichier B.xlsm"
Set ws_Source = Workbooks("Fichier B.xlsm" ).Worksheets("Synthese" )
ws_Source.ListObjects("Tableau1" ).Range.AutoFilter Field:=2, Criteria1:= _
N°Semaine.Text
Set MaSelection = ws_Source.Range(Range("A5" ), Cells(Range("B65536" ).End(xlUp).Row, 19))
MaSelection.Select
Workbooks("Fichier B.xlsm" ).Worksheets("Synthese" ).Cells.Copy _
Workbooks("Fichier A.xlsm" ).Worksheets("Saisie" ).Range("A1" )
Workbooks("Fichier B.xlsm" ).Close False
UserForm1.Hide
End Sub
