Discussion :

[Rob's]

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]

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]

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]

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]

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]

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 …