[macro] affichage des données n'importe où
Bonjour,
J'ai une macro qui doitrechercher le lien pour ouvrir des fichiers mais quand je l'exécute les chemins se mettent n'importe où sur la feuille excel (genre cellule PX431) alors que je les voudrais en ligne à partir de z25 par exemple.
Voici ma macro :
Sub recherche()
Dim i As Long
Dim recherche As ClFileSearch.ClasseFileSearch
Set recherche = ClFileSearch.Nouvelle_Recherche
With recherche
.FolderPath = "C:\Documents and Settings\hugo\Bureau\Commande"
.SubFolders = True
.Execute
For i = 1 To .FoundFilesCount
Debug.Print .Files(i).strChemin
Debug.Print .Files(i).strNom
ActiveCell.FormulaR1C1 = .Files(i).strChemin
ActiveCell.Offset(-1, 0).Range("y25").Select
ActiveCell.FormulaR1C1 = .Files(i).strNom
ActiveCell.Offset(-1, 0).Range("z25").Select
Debug.Print "---"
Next
End With
Range("X24").Select
Set recherche = Nothing
End Sub
Voilà donc si vous voyez un problème merci de ma le dire !!!!
Cordialement,
Hugo
Bonjour,
Et ce fil tu en est où là ? --> https://forum.excel-pratique.com/viewtopic.php?p=71918&highlight=#71918
Si terminé, pourquoi ne le mets-tu pas RESOLU comme je te l'ai expliqué.
De plus cela semble être la suite de ce fil en question et le code ne ressemble en rien à ce que l'on t'a proposé. tu peux expliquer ?
Merci de ta participation
Dan
Bonjour,
Pour le fil que tu cites j'attends des réponses, il n'est pas réellement terminé.
C'est vrai que ce fil pourrait être la suite du précédent, mais comme le problème est plus spécifique et différent, j'ai pensé qu'il serait mieux d'en faire un nouveau.
Le code ne ressemble pas je teste qqchose de nouveaux : si j'arrive à afficher (pas n'importe où) je pourrait facilement créer le lien !!
Cordialement,
Hugo
Bon appéti à tous
C'est bon j'ai résolu ce problème après plus ample recherche.
Pour info :
Sub recherche()
Dim i As Long
Dim recherche As ClFileSearch.ClasseFileSearch
Set recherche = ClFileSearch.Nouvelle_Recherche
With recherche
.FolderPath = "C:\Documents and Settings\hugo\Bureau\Commande"
.SubFolders = True
.Execute
For i = 1 To .FoundFilesCount
Debug.Print .Files(i).strChemin
Debug.Print .Files(i).strNom
Cells(7 + i, 24).Value = .Files(i).strChemin
Cells(7 + i, 25).Value = .Files(i).strNom
Debug.Print "---"
Next
End With
Range("X24").Select
Set recherche = Nothing
End Sub
Cordialement,
Hugo