Discussion :

[jesslab]

Bonjour,

je fais appel à vos lumières car là je n'y arrive plus... (je ne suis pas experte en vba)
Voilà j'ai un fichier avec une liste de personnel (fichier source) qui doit mettre à jour une liste de fichier (pour le moment je fais le test que sur 1) au fur et à mesure des arrivées, sorties

Alors la macro pour copier la feuille pour la mettre à jour dans un autre classeur est facile mais il s'agit de fichier xltm et je n'y arrive pas j'ai une erreur d'execution 9.
Voici à quoi ressemble ma macro :

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
Sub copie_feuille()
 
Application.DisplayAlerts = False
Dim Fichier As String
Dim FichierNDF As String
 
Fichier = "xxx\Liste Personnel.backup.xlsm"
FichierNDF = "C:xxx\Projets\NDF.xltm"
 
Workbooks.Open Filename:=FichierNDF, Editable:=True
 
ThisWorkbook.Worksheets("NOMS").Cells.ClearContents
 
Workbooks(Fichier).Worksheets("liste personnel").Cells.Copy _
Workbooks(FichierNDF).Worksheets("NOMS").Range("A1")
 
Workbooks(FichierNDF).Save
Workbooks(FichierNDF).Close False
 
Application.DisplayAlerts = True
 
End Sub

Par contre pour une automatisation totale, je voudrais savoir déjà si c'est possible que la macro aille voir dans la feuille "liens modèles" et aille exectuer la macro pour tous les chemins présent et aussi si un chemin est enlevé ou rajouté que cela soit pris en compte.

J'espère être claire dans mes explications
Merci pour votre aide !
Jess

[parmi]

Bonjour,

Premièrement, quand tu mets du code, sélectionne-le et utilise le bouton # pour le formater. Ça aide la lecture...

Pour ton problème, je présume que ta macro est dans le classeur Liste Personnel.backup.xlsm
est-ce qu'il y a une feuille "NOMS" dans celui-ci ?
Parce que cette ligne cherche dans ThisWorkbook et non pas ActiveWorkbook

Code :

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

ThisWorkbook.Worksheets("NOMS").Cells.ClearContents

[jesslab]

Bonjour,

Merci de l'info je ne manquerai pas de le faire.

Pour répondre à ta question, oui la macro s'execute depuis le fichier :
Liste Personnel.backup.xlsm

La feuille "NOMS" est dans l'autre fichier : NDF.xltm
Dans le fichier Liste Personnel la feuille qui doit être copié se nomme "liste personnel".
J'ai mis Thisworkbook car juste avant je lui demande d'ouvrir le fichier NDF dans lequel il doit supprimer les données.
Lorsque j'execute ma macro, elle ouvre bien le fichier NDF, efface les données dans la feuille "NOMS" est bloque au moment de la copie (du fichier source Liste Personnel.backup.xlsm) et du collage.

Merci pour ton aide

[mercatog]

Plutôt utilise une variable objet de type Workbook pour instancier ton fichier à ouvrir.

Exemple

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
Sub Copie_Feuille()
Dim Wbk As Workbook
Dim FichierNDF As String
 
FichierNDF = "Cxx\Projets\NDF.xltm"
If Dir(FichierNDF) <> "" Then                    'On test sir FichierNDF existe
    Set Wbk = Workbooks.Open(Filename:=FichierNDF, Editable:=True)
    With Wbk
        With .Worksheets("NOMS")
            .UsedRange.ClearContents
            ThisWorkbook.Worksheets("liste personnel").UsedRange.Copy .Range("A1")
        End With
        .Close True
    End With
    Set Wbk = Nothing
End If
End Sub

[jesslab]

Super, c'est exactement le résultat que je voulais, Merci beaucoup pour l'aide.

J'ai juste rajouté le code pour qu'il n'affiche pas d'alerte car les 2 feuilles n'ont pas le même nom.

Juste une dernière question, car la macro est destinée à mettre à jour au final 15 fichiers environ
je voudrais savoir si c'est possible que la macro aille voir dans une feuille que nous appèlerons "liens modèles" avec la liste de tous les fichiers à mettre à jour et aille exectuer la macro pour tous les chemins présent et aussi si un chemin est enlevé ou rajouté que cela soit pris en compte.

merci encore pour votre aide

[mercatog]

La procédure pourra être paramétrée par le chemin du fichier à ouvrir

Exemple à adapter

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
Option Explicit
 
Sub Test()
Dim c As Range
 
For Each c In ThisWorkbook.Worksheets("liens modèles").Range("A1:A20")
    If c.Value <> "" Then Call Copie_Feuille(c.Value)
Next c
End Sub
 
Private Sub Copie_Feuille(ByVal FichierNDF As String)
Dim Wbk As Workbook
 
Application.ScreenUpdating = False
If Dir(FichierNDF) <> "" Then                    'On test sir FichierNDF existe
    Set Wbk = Workbooks.Open(Filename:=FichierNDF, Editable:=True)
    With Wbk
        With .Worksheets("NOMS")
            .UsedRange.ClearContents
            ThisWorkbook.Worksheets("liste personnel").UsedRange.Copy .Range("A1")
        End With
        .Close True
    End With
    Set Wbk = Nothing
End If
End Sub