Discussion :

[rossemma]

Bonjour,

En cherchant un peu, j'ai trouvé et adapté un bout de code.

MAIS il me répond fichier introuvable, pq?

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
Sub export()
 
ChDir "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    ClasseurRegional = Dir("\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier*.xlsx")
    While Len(ClasseurRegional) > 0
        Workbooks.Open ClasseurRegional
        Range("A2:C" & ActiveSheet.UsedRange.Rows.Count - 1).Copy
        Sheets("MOIS-MAAND").Activate
        Range("P1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation _
            :=xlNone, SkipBlanks:=False, Transpose:=False
        Call ClearClipboard
        Workbooks(ClasseurRegional).Close
        ClasseurRegional = Dir
    Wend
    MsgBox ("Données exportées")
    Sheets("MOIS-MAAND").Range("D1").Activate
 
End Sub

Merci pour votre aide.

[unparia]

Bonjour

MAIS il me répond fichier introuvable, pq?

parce-qu'il ne le trouve pas.
Et si ta question est : pourquoi il ne le trouve pas ? -->> la réponse est :
Pour l'une des raisons suivantes :
- il n'existe pas (lui, ou son chemin d'accès)
- il a un attribut autre que "normal" (caché, lecture seule, etc ...) et ton Dir sans aucun argument ne recherche que parmi les "normaux" (sans attribut)
Notons au passage :
- que ton chdir est superfétatoire (dir n'en a aucun besoin)
-c que ta boucle While est également superfétatoire, puisque tu spécifie un fichier et non un dossier dans lequel rechercher des fichiers.

[rossemma]

pourtant, le fichier existe bel et bien. De plus, il est normal.

[unparia]

pourtant, le fichier existe bel et bien. De plus, il est normal.

Ah !
Si tu le dis !
Reste une explication (et une seule), dans un tel "cas" : ton os est devenu fou ... et ne sait plus ce qu'il a ...

EDIT : maintenant : tu t'es "abstenu" de dire sur quelle ligne était l'erreur.
Si elle est sur ta ligne 6, peut-être serait-il adroit de ne pas te contenter du nom de fichier et de mettre son chemin COMPLET.

[Menhir]

pourtant, le fichier existe bel et bien. De plus, il est normal.

Excel semble penser le contraire et Excel est têtu.
Si j'étais toi, j'essayerai de revenir sur cette conviction pour bien vérifier. Parce que ce n'est pas Excel qui changera d'avis tout seul...

[rossemma]

j'ai trouvé
si j'attribue une lettre au répertoire réseau, cela fonctionne.

Cependant le même lien vers le même fichier mais sans lettre fonctionne avec un autre code

quid ???

[Menhir]

Cependant le même lien vers le même fichier mais sans lettre fonctionne avec un autre code

Sans doute parce que dans cet autre code, le lecteur est celui par défaut.

[Philippe Tulliez]

Bonjour,

Cependant le même lien vers le même fichier mais sans lettre fonctionne avec un autre code

Comme l'a précisé Menhir

Sans doute parce que dans cet autre code, le lecteur est celui par défaut

Pour connaître le chemin d'un classeur sans te tromper ObjetClasseur.Path

Exemple

Code :

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

 MsgBox ThisWorkbook.Path

[rossemma]

j'ai modifié le code et il trouve bien mon premier fichier.
Il coince à la ligne 12 , il ne veut pas fermer le premier fichier et passer au suivant

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
Sub Export_Janvier()
 
    Sheets("MOIS-MAAND").Range("J2:L" & ActiveSheet.UsedRange.Rows.Count - 1).ClearContents
    ChDir "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    ClasseurRegional = ("\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier*.XLSX")
    While Len(ClasseurRegional) > 0
        Workbooks.Open ClasseurRegional
        Range("A2:C" & ActiveSheet.UsedRange.Rows.Count - 1).Copy
        ThisWorkbook.Sheets("MOIS-MAAND").Range("J1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation _
            :=xlNone, SkipBlanks:=False, Transpose:=False
        Call ClearClipboard
        Workbooks(ClasseurRegional).Close
        ClasseurRegional = Dir
    Wend
    MsgBox ("Données exportées")
    Sheets("MOIS-MAAND").Range("J1").Activate
 
End Sub

Je ne vois pas pourquoi il ne veut pas fermer ce fichier

[Philippe Tulliez]

Bonjour,

Il coince à la ligne 12 , il ne veut pas fermer le premier fichier et passer au suivant

Il "coince" comment ?
Un message d'erreur, si oui lequel.
Il s'arrête ???

[rossemma]

erreur d’exécution 9 / L'indice n'appartient pas à la sélection

???

[Philippe Tulliez]

Bonjour,
Sauf erreur de part ton problème vient du fait que tu tentes de fermer un classeur sans lui donner son nom mais le chemin + le nom
Tu dois récupérer son nom dès l'ouverture et c'est ce nom que tu dois utiliser pour fermer le classeur
Juste après la ligne 7

Code :

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

1
2
3
 FileName = Workbooks(Workbooks.Count).Name
 ' Traitements 
 Workbooks(FileName).Close

[rossemma]

Super il ferme bien le premier fichier

En fait, le répertoire comporte 4 fichiers comprenant "janvier" et je souhaiterai que la code passe les fichiers un par un

Voici le code modifié :

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
Sub Export_Janvier()
 
    ThisWorkbook.Sheets("MOIS-MAAND").Range("J2:L" & ActiveSheet.UsedRange.Rows.Count - 1).ClearContents
    ChDir "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    ClasseurMois = ("\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier*.XLSX")
    While Len(ClasseurMois) > 0
        Workbooks.Open ClasseurMois
        Filename = Workbooks(Workbooks.Count).Name
        Range("A2:C" & ActiveSheet.UsedRange.Rows.Count - 1).Copy
        ThisWorkbook.Sheets("MOIS-MAAND").Range("J1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation _
            :=xlNone, SkipBlanks:=False, Transpose:=False
        Call ClearClipboard
        'Workbooks(ClasseurMois).Close
        Workbooks(Filename).Close
        ClasseurMois = Dir
    Wend
    MsgBox ("Données exportées")
    Sheets("MOIS-MAAND").Range("J1").Activate
 
End Sub

Mais il bloque à la ligne 15 et dit : Erreur exécution 5 / Argument ou appel de procédure incorrect
Si j'enlève la ligne ==> il prend le même fichier en boucle

[joe.levrai]

Bonjour,

la réponse est présente dès le premier message

ton chdir est superfétatoire (dir n'en a aucun besoin)

non seulement tu as gardé CHDIR, mais tu as enlevé l'initialisation du Dir() sur la ligne suivante

[Philippe Tulliez]

Bonjour,
Lire la FAQ sur le sujet DIR
ou cette discussion

[rossemma]

J'ai lu la faq
J'ai adapté le code, je pense correctement

MAIS IL FAIT PLUS RIEN ET AFFICHE LE MSGBOX DIRECTEMENT

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
Sub Export_Janvier()
 
    ThisWorkbook.Sheets("MOIS-MAAND").Range("J2:L" & ActiveSheet.UsedRange.Rows.Count - 1).ClearContents
    Dim Chemin As String, Fichier As String
     'Définit le répertoire contenant les fichiers
    Chemin = "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "Janvier*.xlsx")
    'ChDir "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    'ClasseurMois = ("\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier*.XLSX")
    While Len(Fichier) > 0
        Workbooks.Open Fichier
        Filename = Workbooks(Workbooks.Count).Name
        Range("A2:C" & ActiveSheet.UsedRange.Rows.Count - 1).Copy
        ThisWorkbook.Sheets("MOIS-MAAND").Range("J1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation _
            :=xlNone, SkipBlanks:=False, Transpose:=False
        Call ClearClipboard
        'Workbooks(ClasseurMois).Close
        Workbooks(Filename).Close
        Fichier = Dir
    Wend
    MsgBox ("Données exportées")
    Sheets("MOIS-MAAND").Range("J1").Activate
 
End Sub

[Philippe Tulliez]

Bonjour,
De la manière dont tu écris le code, Fichier = Dir(Chemin & "Janvier*.xlsx"), tu ne peux obtenir que la liste des fichiers dont le nom commence par janvier et se termine par .xlsx comme par exemple janvier 2015.xlsx, janvier 2016.xlsx, janvier 2017.xlsx, etc.

[rossemma]

EXACT
le code sera rattaché à un bouton dans un USF
Y en aura 1 bouton pour chaque mois

petite question : y a t il moyen de mettre DIM CHEMIN pour tous les boutons

Au moins, on encode une fois le chemin

[Philippe Tulliez]

Bonjour,

petite question : y a t il moyen de mettre DIM CHEMIN pour tous les boutons
Au moins, on encode une fois le chemin

On peut tout faire en informatique. Cependant pour éviter des surprises dans le futur il faut organiser ses données de telles manières que l'ensemble des fichiers doivent idéalement se trouver dans le même répertoire ou sous répertoires de l'application. Ainsi comme je l'ai indiqué lus haut (fil #8), il suffit de récupérer la propriété Path du classeur qui va récupérer les noms du répertoire.

[rossemma]

merci pour la réponse
je m'attaquerai au path plus tard

POURQUOI IL FAIT PLUS RIEN ET AFFICHE LE MSGBOX DIRECTEMENT
J'ai détaillé pas à pas et je ne vois pas ce qui cloche