Récupérer des donnés d'un fichier excel fermé avec vba

Fermé
Licoquelicot Messages postés 11 Date d'inscription mardi 2 juillet 2013 Statut Membre Dernière intervention 15 mai 2014 - 3 déc. 2013 à 11:22
Licoquelicot Messages postés 11 Date d'inscription mardi 2 juillet 2013 Statut Membre Dernière intervention 15 mai 2014 - 3 déc. 2013 à 12:03
Bonjour à tous,

Je voudrai faire un programme vba capable d'aller chercher des infos dans un classeur excel fermé situé sur le disque dur et que les données de ce classeur ce "colle" dans un autre fichier excel.

En clair, j'ai mon fichier "MC_essai" qui doit aller prendre des infos dans le fichier excel "MC_Plastique" et coller les infos de "MC_Plastique" dans "MC_essai" Cependant, je veux récupérer que les infos concernant un N° de semaine précis. Et je n'arrive pas à faire ce dernier point.

Quelqu'un pourrait il regarder mon programme et me dire ce qui ne va pas svp!

Merci, par avance, pour votre aide

Licoquelicot

Mon programme:

Dim newRecord As Long
Dim Date_D As Date
Private Sub Annuler_Click()
Unload Me
newRecord = Range("A" & Rows.Count).End(xlUp)(2).Row
Rows(newRecord).Select
Call viderFormulaire
End Sub
Private Sub UserForm_Activate()
Call chargerListes
End Sub
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\MC_Plastique.xlsm"
Workbooks("MC_Plastique.xlsm").Worksheets("Synthese").Cells.Copy _
Workbooks("MC_essai.xlsm").Worksheets("Saisie").Range("A1")
Workbooks("MC_Plastique.xlsm").Close False

UserForm1.Hide

End Sub

Private Sub chargerListes()

'Défauts par l'atelier

UserForm1.Atelier.AddItem "Contrôle SF-A"
UserForm1.Atelier.AddItem "Débit"
UserForm1.Atelier.AddItem "Expédition"
UserForm1.Atelier.AddItem "Finition"
UserForm1.Atelier.AddItem "Metal"
UserForm1.Atelier.AddItem "Plastique"
UserForm1.Atelier.AddItem "Qualité"
UserForm1.Atelier.AddItem "Luxe"
UserForm1.Atelier.AddItem "Réception Fournisseur"
UserForm1.Atelier.AddItem "Responsable Qualité"
UserForm1.Atelier.AddItem "Shootage"
UserForm1.Atelier.AddItem "Tri branches"
UserForm1.Atelier.AddItem "Tri faces"
UserForm1.Atelier.AddItem "TS"
UserForm1.Atelier.AddItem "Witech"

End Sub

Private Sub viderFormulaire()
Atelier.Text = ""
N°Semaine.Text = ""

End Sub

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
3 déc. 2013 à 11:31
2