Extraction des données vba

**Rob's** · 13/05/2014, 15h29

Bonjour à tous,

Je cherche à créer une macros qui serait capable d'aller récupérer les infos présent dans la feuille "Synthese" du document (MC_Shootage) et me les copier / coller dans mon nouveau document (MC_commun2) dans la feuille "Donnees".

Voici ce que j'aai essayé de faire mais, il m'affiche se message d'erreur: "\\Gpao\commun\30_QUALITE\307_Gestion_de_service\AA AA-Main-Courante-Atelier est introuvable". Alors que le lien est juste j'ai tout vérifié. Ce message s'affiche sur la ligne en rouge:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Dechet_Finition_Hebdo()
 
'Identification des chemins et des fichiers
 
    Dim Chemin As String
     Chemin = "\\Gpao\commun\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier"
     Dim Fichier As String
     Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
     If Semaine <= 9 Then
     Fichier = "MC_Shootage" & Semaine & ".xlsm"
     Else: Fichier = "MC_Shootage" & Semaine & ".xlsm"
     End If
     
'Transfert des données
 
    Dim j As Integer
     j = 1
     
    ChDir Chemin
    Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
     
    Sheets("Synthese").Copy Before:= _
         Workbooks("MC_commun2.xlsm").Sheets("Donnees")
     
    Workbooks(Fichier).Close SaveChanges:=False
 
    Workbooks("MC_commun2.xlsm").Activate
      
     j = Application.Run("Copie_MC_Shootage", "Synthese", j)
     
End Sub

Quelqu'un pourrait m'aider à résoudre mon pb svp (doc en PJ).

Merci pour votre aide

Rob's

**Marc-L** · 13/05/2014, 15h49

Bonjour, bonjour,

quelle est la différence pour l'affectation de la variable Fichier entre les lignes n°10 & 11 ?!

Sinon pour le problème, le chemin est faux donc vérifier le contenu des variables en mode pas à pas (touche F8) …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Rob's** · 13/05/2014, 16h19

Bonjour Marc-L,

Je viens de corriger l'erreur ligne 10/11 et revérifié mon chemin d'accès mais, ça ne fonctionne toujours pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Identification des chemins et des fichiers
 
    Dim Chemin As String
    Chemin = "X:\30_QUALITE\307_Gestion_de_service\Lyse\AAAA-Main-Courante-Atelier"
    Dim Fichier As String
    Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
    If Semaine <= 9 Then
    Fichier = "MC_Shootage" & Semaine & ".xlsm"
    End If
 
'Transfert des données
 
    Dim j As Integer
    j = 1
 
    ChDir Chemin
    Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
 
    Sheets("Synthese").Copy Before:= _
        Workbooks("MC_commun2.xlsm").Sheets("Donnees")
 
    Workbooks(Fichier).Close SaveChanges:=False
 
    Workbooks("MC_commun2.xlsm").Activate
 
    j = Application.Run("Copie_MC_Shootage", "Synthese", j)
 
End Sub

Pouvez vous m'aider svp

**Marc-L** · 13/05/2014, 16h24

Là la logique est fausse pour la variable Fichier !

Donc la vérification du contenu des variables en mode pas à pas n'a pas été faîte,
seul moyen pourtant afin de comprendre et de t'en sortir !

C'est pourtant pas compliqué ! Suffit de placer un point d'arrêt sur la ligne déclenchant l'erreur et une fois le code en attente
sur cette ligne, vérifier le contenu des variables soit directement dans le code soit via la fenêtre des Variables locales …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Rob's** · 13/05/2014, 17h11

J'ai tout repris et voila ce que j'ai fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Dechet_Finition_Hebdo()
 
'Identification des chemins et des fichiers
 
    Dim Chemin As String
    Dim Fichier As String
 
    Chemin = "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier"
 
    'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
     Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1
 
 Fichier = "MC_Shootage" & Semaine & ".xlsm"
 
'Transfert des données
 
      ChDir Chemin
     'ouverture du fichier en lecture seule
     Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
 
    'recopie l'onglet Synthese de MC_Shootage dans l'onglet Donnees de MC_Commun2.xlsm"
     Sheets("Synthese").Copy Before:=Workbooks("MC_commun2.xlsm").Sheets("Donnees")
 
    'fermeture du fichier source
     Workbooks(Fichier).Close SaveChanges:=False
 
  End Sub

Cependant, il y une erreur de chemin d'accés qui s'affiche car, le N° de la semaine se met dans le chemin d'accées se qui engendre une erreur.
CAD, au lieu d'aller chercher les données dans "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier\MC_Shootage.xlsm" il cherche dans "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier\MC_Shootage19.xlsm...

Quel est la méthode pour supprimer cette erreur?

**Marc-L** · 13/05/2014, 17h17

Erreur de conception : corriger alors l'affectation de la variable Fichier en ligne n°13 !

Encore une fois en suivant le code en mode pas à pas et en contrôlant les variables …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Rob's** · 13/05/2014, 17h35

J'ai suivi en mode pas à pas mais, je ne comprends pas se qui ne va pas.
De plus,je suis loin d'être un pro de VBA donc, si vous pouviez me dire se qui ne va pas dans ma ligne 13 se serai symphatique...

Merci, par avance, pour votre aide

**Theze** · 13/05/2014, 18h25

Bonjour,

Teste le code ci-dessous et en fonction du message reçu tu sauras si le chemin complet (chemin + fichier) est valide ou non. J'ai mis la suite du code en commentaire pour éviter l'éventuelle erreur du fichier introuvable. Si le message te dis que le fichier est bien à l'endroit indiqué alors, tu peux ôter les lignes en commentaire sinon, il te faut chercher si le chemin est bien construit. Tu peux aussi tester avec le chemin entièrement en dur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub Dechet_Finition_Hebdo()
 
    'Identification des chemins et des fichiers
 
    Dim Chemin As String
    Dim CheminComplet As String
    Dim Fichier As String
    Dim Semaine As String
 
    Chemin = "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier\"
 
    'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
     Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
 
    Fichier = "MC_Shootage" & Semaine & ".xlsm"
 
    CheminComplet = Chemin & Fichier
 
 
    If Dir(CheminComplet) = "" Then
 
        MsgBox "le fichier :" & vbCrLf & CheminComplet & vbCrLf & "est introuvable !"
 
    Else
 
        MsgBox "le fichier :" & vbCrLf & CheminComplet & vbCrLf & "est bien à l'endroit indiqué !"
 
    End If
 
    'Transfert des données
         'ouverture du fichier en lecture seule
    '     Workbooks.Open Filename:=CheminComplet, UpdateLinks:=0, ReadOnly:=True
    '
    '    'recopie l'onglet Synthese de MC_Shootage dans l'onglet Donnees de MC_Commun2.xlsm"
    '     Sheets("Synthese").Copy Before:=Workbooks("MC_commun2.xlsm").Sheets("Donnees")
    '
    '    'fermeture du fichier source
    '     Workbooks(Fichier).Close SaveChanges:=False
 
  End Sub

Hervé.

**Rob's** · 14/05/2014, 09h41

Bonjour Theze,

C'est le fichier qui est incorrect car, le pgm ajoute au nom du fichier le N° de la semaine.
Quand je selectionne la semaine n°19 dans ma boîte de dialogue, au lieu de m'ouvrir MC_Shootage, il veut ouvrir MC_Shootage19. Or, MC_Shootage19 n'existe pas donc, il beug...

Je ne sais pas comment faire pour ne pas qu'il prenne en compte le n° de la semaine dans le fichier...

Avez vous une idée?

Merci pour votre aide

**Marc-L** · 14/05/2014, 11h14

Envoyé par Marc-L

Erreur de conception : corriger alors l'affectation de la variable Fichier en ligne n°13 !

**arosec** · 14/05/2014, 22h39

Bonsoir Rob's,

Il me semble que Marc-L a donner toutes les solutions...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
   'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
     Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
 
    Fichier = "MC_Shootage" & Semaine & ".xlsm"

peut être remplacé par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Fichier = "MC_Shootage.xlsm"

Cdlt,

**Rob's** · 15/05/2014, 09h31

Bonjour arosec,

En fait, je voudrai qu'une fois le n° semaine rentrée ds l'inputbox, le pgm soit capable d'aller chercher se n° dans "MC_Shootage" (en sachant que n° semaine est en colonne B) et copier / coller les infos correspondantes dans l'onglet "Donnees" du document "MC_commun2".

Voici le pgm que j'ai mofidié qui me colle mes infos ou je veux mais, il tiens pas compte du n°sem...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Dechet_Finition_Hebdo()
 
'Identification des chemins et des fichiers
 
    Dim Chemin As String
    Dim Fichier As String
    Dim Semaine As Long
 
    Chemin = "X:\30_QUALITE\307_Gestion_de_service\AAAA-Main-Courante-Atelier"
 
'demande à l'utilisateur le numéro de semaine, semaine en cours par défaut
    Semaine = InputBox("N° de la semaine", "SEMAINE", DatePart("ww", Date, vbMonday) - 1)
    Fichier = "MC_Shootage.xlsm"
 
'Transfert des données
 
    ChDir Chemin
'ouverture du fichier en lecture seule
    Workbooks.Open Filename:=Chemin & "\" & Fichier, UpdateLinks:=0, ReadOnly:=True
 
'recopie l'onglet Synthese dans le fichier destination MC_Commun2.xlsm"
 
     Workbooks("MC_commun2.xlsm").Worksheets("Donnees").Cells.ClearContents
     Workbooks("MC_Shootage.xlsm").Worksheets("Synthese").Cells.Copy _
     Workbooks("MC_commun2.xlsm").Worksheets("Donnees").Range("A1")
 
'fermeture du fichier source
 
    Workbooks(Fichier).Close SaveChanges:=False
 
End Sub

En pj les docs

Extraction des données vba [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager