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.

[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