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

Signaler
Messages postés
11
Date d'inscription
mardi 2 juillet 2013
Statut
Membre
Dernière intervention
15 mai 2014
-
Messages postés
11
Date d'inscription
mardi 2 juillet 2013
Statut
Membre
Dernière intervention
15 mai 2014
-
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

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
11
Date d'inscription
mardi 2 juillet 2013
Statut
Membre
Dernière intervention
15 mai 2014

Merci