Comment reconnaître un raccourci en VBA ?

[marmotte18]

Bonjour,

Je souhaiterais savoir comment il faut procéder pour ne pas prendre en compte les raccourcis, dans une liste de fichiers appartenant à un dossier donné.

Comment reconnaît-on un raccourci en VBA ?

Merci par avance

 

[JNP]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir Marmotte18 🙂,
En principe, il n'y a pas de rapport avec VBA en particulier. Tes raccourcis sont en extension .ink, donc il te suffit de rajouter un filtre genre

If Not NomFichier Like "*.ink" Then

pour ne pas tenir compte des raccourcis.
Bon courage 😎

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonjour JNP,

Je prends bonne note de ta réponse et t'en remercie mais le problème est plus complexe qu'il n'y paraît :

• Mes raccourcis ne comportent pas le suffixe ".ink", ils ne comportent d'ailleurs aucun suffixe. Ceci est vrai également quand la case "masquer les extensions des fichiers dont le type est connu" est décochée.
• Dans ma macro jointe à mon 1er message, certains raccourcis ramènent le nom du fichier auquel ils se rapportent, même si ledit fichier n'appartient pas au dossier analysé. C'est vrai à mon lieu de travail (PC connecté au gros système). Ce n'est pas vrai sur mon PC personnel.
• Le pire, au bureau, un raccourci qui n'aboutit à aucun fichier parce que ledit fichier a changé de nom, fait planter ma macro !

 

[JNP]

Re : Comment reconnaître un raccourci en VBA ?

Re 🙂,
Je ne sais pas sur quel "gros système" tu travailles... Du Mac ? Du fichier sans extensions, sous Windows, je ne connais pas, mais bon, pourquoi pas... A moins que ce ne soit FileSearch (débranché au boulot, prends de la ressource sans améliorer grand chose...) qui néglige les extensions...
Dans le pire des cas, ne prends que les extensions qui t'intéressent (si elle ne sont pas trop nombreuses...).
Bon courage 😎

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir JNP,

Merci de t'occuper de mon problème.

Hé oui, mes raccourcis sur mon PC personnel et sur mon PC de bureau ne possèdent pas d'extension sous Windows. Ce ne sont d'ailleurs pas les seuls fichiers qui n'en n'ont pas à mon bureau.

Mon souci est de récupérer dans ma liste, tous les noms de fichier et pas seulement d'un type particulier. Je veux bien avoir les raccourcis dans cette liste, mais je ne veux pas qu'il me ramène le nom du fichier qui se trouve au bout du chemin.

D'où ma question : "comment reconnaître un raccourci qui n'a pas d'extension ?" et subsidiairement "comment faire en sorte qu'il ne me ramène pas le fichier correspondant ?"

 

[pierrejean]

Re : Comment reconnaître un raccourci en VBA ?

bonjour marmotte18

Salut JNP

En supposant que les raccourcis n'aient pas d'extension (ce qui chez moi est le cas general) on peut tester par

if instr(nom_du_fchier,".")=0 then
  msgbox("c'est surement un raccourci")
end if

 

[Habitude]

Re : Comment reconnaître un raccourci en VBA ?

Pourquoi ne pas valider à savoir s'il y a une extention ou pas ?

A partir de la droite, recherche un "."

 

[tototiti2008]

Re : Comment reconnaître un raccourci en VBA ?

Bonjour à tous,

Il n'y a pas d'extension ou bien les extensions ne sont pas affichées ?

il me semblait que les extensions des raccourcis étaient .lnk

mais bon... je peux me tromper

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir pierrejean,

Merci pour ta réponse.

Le problème est qu'il existe d'autres fichiers (issus de SmbExcel par exemple) sans extension et ce ne sont pas des raccourcis. Dans le cas cité, je les ouvre avec Excel et il propose de les sauvegarder par défaut en .csv

A la maison, les raccourcis sont complètement ignorés par ma macro (cela ne me dérange pas !)

Au bureau, les raccourcis me ramènent le nom du fichier (s'il existe) correspondant. S'il n'existe pas, ma macro plante. Ne pourrait-on pas ignorer ces raccourcis à condition de savoir les reconnaître.

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir Habitude,

Merci pour ta proposition qui rejoint celle de pierrejean. Je ne peux malheureusement que répéter la même chose.

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir tototiti2008,

En réponse à ta question, je précise que je fais afficher les extensions. Mes raccourcis n'ont pas d'extension comme d'ailleurs chez pierrejean.

Voir la réponse que je lui ai faite car au bureau, ce ne sont pas les seuls fichiers Windows qui n'ont pas d'extension.

 

[Pierrot93]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir à tous,

un lien qui j'espère pourra t'aider :

FAQ MS-Excel - Club des décideurs et professionnels en Informatique

bonne soirée
@+

 

[marmotte18]

Re : Comment reconnaître un raccourci en VBA ?

Bonsoir Pierrot93,

Ta proposition est savante et va me demander un peu de temps pour la décortiquer. Merci en tous les cas.

Je reviendrai probablement te demander des explications complémentaires.