Bonjour, bonjour je cherche a savoir si quelqu'un peut m'aider en vba pour copier une fichier nomée A dans le rep S:/a classer et coller le racourci nomée pareil dans le rep S:/trié merci Configuration: Windows 7 / Internet Explorer 9.0

Salut Lermitte222, gnioler Excusez l'incruste... Si j'ai bien compris la problématique du jour (et je dit bien SI...), j'ai eu à utiliser cette fonction glanée sur le net (je sais plus ou...) qui créé un raccourci avec 3 paramètres : - le chemin d'accès complet au répertoire ou sera stocké le lien, - le nom de ce lien, - le chemin d'accès complet au fichier. Cette fonction utilise la bibliothèque "Windows Script Host Object Model". Pour l'activer : - Sous VBE Outils/références (ALT+F11 depuis la feuille) - chercher puis cocher "Windows Script Host Object Model" En voici le code : Sub LancerFonction() Dim RepDestination As String, NomLien As String, CheminFichierInitial As String 'pour toi : RepDestination = "S:\a trier\" toujours SI j'ai bien compris... 'Ne pas oublier le \ en fin de répertoire.... RepDestination = "C:\Documents and Settings\Travail\Bureau\" NomLien = "Nom de mon lien" 'ici j'ai pris un fichier pdf au hasard CheminFichierInitial = "E:\Utilisateurs\Mes documents\TRAVAIL\2012\Commandes.pdf"" Création_Raccourci RepDestination, NomLien, CheminFichierInitial End Sub 'Activer la bibliothèque "Windows Script Host Object Model" : 'Sous VBE Outils/références (ALT+F11 depuis la feuille) 'chercher puis cocher "Windows Script Host Object Model" Public Function Création_Raccourci(Repertoire As String, NomLien As String, AccesFichier As String) Dim Lien As String Dim Raccourci As WshShortcut Dim wShom As WshShell Lien = Repertoire & NomLien & ".lnk" Set wShom = New WshShell Set Raccourci = wShom.CreateShortcut(Lien) With Raccourci .Description = NomLien .TargetPath = AccesFichier .WindowStyle = 3 .Save End With Set Raccourci = Nothing Set wShom = Nothing End Function

Copier coller racourci fichier excel vba - Page 2

Résolu

Réponse 21 / 25

gnioler Messages postés 83 Date d'inscription Statut Membre Dernière intervention 3

par contre si je veux crée des lien automatique sur les dossier lister que faut il rajouter
pour que je puisse cliquer sur le nom et qu'il m'ouvre directement le dossier

Réponse 22 / 25

lermite222 Messages postés 9042 Statut Contributeur 1 199

Pourquoi tu veux réinventer la roue. ?
Ce que tu demande est fait directement dans l'explorateur Windows
A+

Réponse 23 / 25

gnioler

bonjour
oui effective ce que tu dit est tres juste, mais en fait je cherche juste a racourcir des manipulation,
car les dossier que je veut lister se trouve en général dans le 10eme ou 11eme sous dossier,
si tu prend la structure dans l'exporateur, ca implique d'ouvrir 10 dossier avant d'arriver au bon c'est pour ca qu'en listant tous ce que je veut dans une feuille excel j'ai juste a cliquer sur le bon dossier ca va beaucoup plus vite

lermite222 Messages postés 9042 Statut Contributeur 1 199

Met un raccourci de ce 10ém dossier sur ton bureau ?

Réponse 24 / 25

lermite222 Messages postés 9042 Statut Contributeur 1 199

Ou encore plus simple et peut-être plus pratique pour toi,
Un bouton.. avec dans le code

Private Sub CommandButton1_Click()
    ChDir ("C:\test")
    Application.GetOpenFilename
End Sub

Bien entendu mettre le bon chemin dans ChDir
A+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 25

gnioler

bonjour et merci pour ton astuce
effectivement je cherchai a faire quelque chose de compliqué alors qu'il y a plus simple
tres pratique

Discussions similaires

dessin avec symbole clavier

Discussions similaires

Newsletters