Discussion :

[mel--]

Bonjour,

Je suis débutant en VBA et je sollicite votre aide concernant les lignes de code vba suivantes:

Code :

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

1
2
Dim fichier_gestionnaire As Workbook
Set fichier_gestionnaire = Workbooks.Open("C:\Users\lecleuzm\Desktop\Dossier 2019\Envoie automatique anomalie\Gestionnaires au *")

En sachant que l'erreur est "fichier introuvable", que le chemin d'accès est correct, et que le nom complet de mon fichier est "Gestionnaires au 01_11_2019.xlsx".
Puisque j'automatise la tâche, je ne peux pas utiliser le nom complet de mon classeur dont la date change. J'utilise habituellement le "*" et cela fonctionne (habituellement) parfaitement. Je n'arrive donc pas du tout à cerner l'erreur.

J'ai consulté énormément de forums sur ce sujet, mais je n'ai pas trouvé de réponse ou de solution.

Un trèèèèèès grand merci à tous ceux qui auront bien voulu m'aider.

Merci beaucoup.

[Phil Free]

Bonjour,

Code :

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

1
2
3
4
5
6
7
    Dim NomFichier As String
    Dim Chemin As String
    Dim fichier_gestionnaire As Workbook
 
    Chemin = "C:\Users\lecleuzm\Desktop\Dossier 2019\Envoie automatique anomalie\"
    NomFichier = Dir(Chemin & "Gestionnaires au *.xlsx")
   Set fichier_gestionnaire = Workbooks.Open(Chemin & NomFichier)

Attention ceci ne fonctionne que si dans ton répertoire tu n'as qu'un fichier qui correspond à : "Gestionnaires au *.xlsx"
En effet Dir(Chemin & "Gestionnaires au *.xlsx") renvois la première correspondance trouvée

A+

[unparia]

Bonjour

J'utilise habituellement le "*" et cela fonctionne (habituellement) parfaitement.

Avec la méthode workbooks.Open ???
Vraiment ?
Je vais donc te demander de me montrer un seul exemple de ce que tu affirmes-là. avec cette assurance-là.

[Yves_VBA]

Bonjour mel,

il me semble avoir eu des démêlées avec des noms de fichiers (ou de répertoires) qui contiennent des espaces.
Je crois que Vba n'aime pas trop.

Yves

[mel--]

Je me suis également rendue compte que dans mes dossiers (au niveau précédent), deux commence par "envoie automatique" et c'est peut être ici que mon code s'emmêle les ligne.

Merci beaucoup Yves j'éviterai les espaces dans mes noms de fichiers à présent.

[Igloobel]

Bonjour à tous,

D'une manière général pour tous les fichiers il est préférable de n'utiliser que certains caractères :

de A => Z
de a => z
de 0 => 9

et Underscore "_"

et c'est tout !

Je me souviens d'une anecdote concernant une utilisatrice (avec une position assez élevée dans la hiérarchie). Cette personne utilisait un classeur Excel important pour elle puisque tout son travail était recensé dedans.
Bien évidemment elle sauvegardait son travail sur le serveur de sauvegarde.

Un jour (loi de Murphy) son classeur s'est vérolé impossible de l'ouvrir. Elle demande la sauvegarde de la veille jusque-là rien d'anormal, Sauf que le fichier comportait des caractères spéciaux qui n'ont pas pu être interprété, et le serveur ne voulait pas le réexporté (je l'ai vu de mes propres yeux).

Du coup, là, c'est le drame. Les personnes du service informatique n'osait pas lui expliqué le problème. J'étais jeune et je trouvais que mettre la tête dans le sable ne servait à rien et j'y suis donc allé.

J'ai été incendié en bonne et due forme, mais je m'y attendais, et je lui ai expliqué, posément, les caractères à utiliser pour le nom des fichiers. Une fois l'orage passé elle m'a expliqué qu'elle n'avait rien contre moi. Mais vu qu'elle avait perdu son travail cela n'allait pas en resté là. Effectivement quelques jours après le chef de service est venu me voir pour savoir ce que je lui avais dit exactement, car il venait de recevoir une soufflante d'au-dessus et il était pas très content.

Quelques temps après ils ont mis le logiciel du serveur à jour.

Cela fait longtemps que j'ai quitté cette société mais cette aventure est restée gravé dans ma mémoire.



Vu que tu as dit que tu étais autodidacte, peut-être que personne ne te l'as dit et que c’est pour cela que je me suis permis d'apporté mon vécu.


Bonne journée à tous

[mel--]

Bonjour,

Cela fonctionne parfaitement, je vous remercie énormément!!!!!

Si je comprends bien, il faut un peu forcer en mettant le chemin d'accès et le nom constant en variable.

Je vous remercie beaucoup pour votre aide!

Mell

Oui tout à fait, cela fonctionne très bien dans tous mes fichiers sauf celui pour lequel j'ai créée le post. Pour répondre à ta demande, je l'écris comme cela (par exemple - pour une étude annuelle - l'année change):

Code :

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

1
2
3
4
5
Dim Fichier_demande As Workbook
Dim effectifs As Workbook
 
    Set Fichier_demande = Workbooks.Open("P:\SCRH-BRSF\FORMATION\Dem PF20*")
    Set effectifs = Workbooks.Open("P:\SCRH-BRSF\FORMATION\Actifs au *")

Ce n'était pas spécialement assuré, je pensais juste que c'était l'écriture normale (je suis principalement autodidacte donc j'ai parfois/souvent une mauvaise syntaxe/méthode).

Fichier_demande (nom complet): Dem PF2020 (cela fonctionne depuis 3 ans)
effectifs (nom complet): effectifs au 25-11-2019 (idem)

Cela a bien refonctionné aujourd'hui. Je ne vais pas perdre mon temps à écrire des bobards sur des forums vba excel

A nouveau, je remercie tout le monde