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

 
Tu copies quoi?

 
            Bonjour.

            En clair et sans décodeur ? …