Discussion :

[Antibios]

Bonjour,

Cela fait maintenant quelques temps que j’utilise Excel. Je me débrouille dans tout ce qui est formules. Mais maintenant, on me demande de faire des choses un peu plus poussé qui demande des connaissances en VBA, choses que je n’ai pas naturellement.
Je comprends à peine les codes les plus simples que long peu trouver sur le net.

Mon patron m’a demandé de créer un listing de tous les chantiers effectués depuis 2012 (date de la dématérialisation).
Dans ce listing, doit figurer dans la même cellule le nom du fichier *.xlsm avec un lien hypertexte du pdf qui est déjà créé et classé par ordre alphabétique du nom des fichiers. Il faudrait également, d’autres informations comme le nom du client, le lieu etc… dans les cellules de droite.

Il m’a demandé de faire cela au plus vite, sauf que manuellement, difficile de le faire rapidement vue qu’il y a + de 600 missions par an sur 4 ans XD (2400 fichiers à saisir). Il faut donc que je trouve un moyen qu’Excel le face à ma place par une commande VBA pour répondre à cette demande.

J’ai regardé ce week-end sur la toile, les codes VBA existant. J’ai trouvé un truc qui fonctionne bien mais, je n’arrive pas à intégrer les liens hypertextes, ni à lui dire d’intégrer d’autres informations dans d’autres cellules.

J’aime bien le code ci-dessous parce je le comprends un peu et j’ai réussi à lui faire afficher les fichiers toutes les 2 lignes (choses que j’ai besoin).
Voici la base que j’ai adaptée :

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
19
20
21
22
23
24
25
26
27
Sub ListeFichiers()
Application.ScreenUpdating = False
Dim myPath As String, myFile As String
 
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\*.xlsm*")
 
c = 4
Do While myFile <> ""
    Cells(c, 1) = myFile
    myFile = Dir()
    c = c + 2
Loop
 
Dim myPathPDF As String, myFilePDF As String
 
myPathPDF = ThisWorkbook.Path
myFilePDF = Dir(myPath & "\*.pdf*")
 
c = 5
Do While myFilePDF <> ""
    Cells(c, 1) = myFilePDF
    myFilePDF = Dir()
    c = c + 2
Loop
 
End Sub

J’ai essayé de faire fonctionner ce code mais, je n’arrive pas à le faire fonctionné pour mon travail.
Les cellules fusionnées n’affichent que un fichier alors que pour le code il y en a 2. Les missions son divisé par 2 dans ce cas.

http://excel.developpez.com/faq/?pag...riptingRuntime

J’ai essayé sans succès d’intégrer le lien hypertexte mais, je ne sais pas pourquoi le code ne fonctionne pas :

Code :

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

1
2
ActiveSheet.Hyperlinks.Add Anchor:=Cells(c, 1), _
    Address:= myFile.ParentFolder & "\" & myFile.Name

J’ai donc besoin de votre aide pour créer ce code VBA qui me facilitera grandement le travail demandé. La cerise sur le gâteau serait que même si des informations sont déjà listé, que le classeur reclasse tout seul la liste par ordre alphabétique.

En vous remerciant d’avance pour votre aide.

[Invité]

Bonjour,

Il y a plusieurs réponses dans ce message proche de votre problème : recherche-formule

Dans ma solution, on part d'une liste de fichiers dans une colonne et le répertoire des fichiers Pdf est connu. Le code reconstitue les liens.

Cordialement.

[unparia]

Bonjour
Le code que tu montres (et qui, n'étant pas mis entre balises code, est pénible à suivre) :
Recense sur les lignes paires tous les fichiers *.xlsm et sur les lignes impaires tous les fichiers *.pdf présents (tous) dans le dossier ayant pour chemin celui de ton application.
Il est extrêmement risqué de procéder ainsi car :
- d'une part : la fonction Dir "parcourt" comme ELLE l'entend et rien, avec ta méthode, ne permettrait d'affirmer que le .pdf recensé en ligne 7 correspond au .xlsm recensé en ligne 6
- d'autre part : même si, par bonheur, le parcours se faisait dans le même ordre dans une séquence et l'autre, tu es soumis à deux aléas majeurs :
---- existence d'un .xlsm sans .pdf correspondant
---- existence d'un .pdf sans .xlsm correspondant
Il te faut donc "tirer une croix" sur une telle méthode et lui en substituer une autre.
Question (loin d'être inutile) : comment sont nommés les fichiers .pdf correspondant aux fichiers .xlsm ? Et cette règle de nommage est-elle TOUJOURS rigoureusement observée ?

[Antibios]

Merci pour vos réponse. Désolé, j'ai oublier de mettre le code en balise.

Unparia :

Les fichiers on comme nom l'année, le mois, le jour, une lettre du nom du client et un lettre du lieu genre 15J0105TE.xlsm. Le pdf a exactement le même nom sauf avec l'extension .pdf.
Si un fichier xlsm est créer automatiquement un fichier pdf de celui-ci existe dans le même dossier.
Jusque la, j'ai de la chance avec mon code car tout les fichiers xlsm ont comme binôme le fichier pdf, mais si il manque l'un ou l'autre ça va effectivement posé problème.
Malheureusement, pour le moment c'est la seul méthode que j'ai trouvé pour faire cette liste.

Eric KERGRESSE
Bonjour,
Il y a plusieurs réponses dans ce message proche de votre problème : recherche-formule
Dans ma solution, on part d'une liste de fichiers dans une colonne et le répertoire des fichiers Pdf est connu. Le code reconstitue les liens.
Cordialement.

je vais essayé ça dès demain.

Voici mon code :

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
19
20
21
22
23
24
25
Sub ListeFichiers()
Application.ScreenUpdating = False
Dim myPath As String, myFile As String
 
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\*.xlsm*")
c = 4
Do While myFile <> ""
Cells(c, 1) = myFile
myFile = Dir()
c = c + 2
Loop
 
Dim myPathPDF As String, myFilePDF As String
 
myPathPDF = ThisWorkbook.Path
myFilePDF = Dir(myPath & "\*.pdf*")
c = 5
Do While myFilePDF <> ""
Cells(c, 1) = myFilePDF
myFilePDF = Dir()
c = c + 2
Loop
 
End Sub

Je reste à l'écoute pour d'autres idées.

[unparia]

Les fichiers on comme nom l'année, le mois, le jour, une lettre du nom du client et un lettre du lieu genre 15J0105TE.xlsm. Le pdf a exactement le même nom sauf avec l'extension .pdf.

C'est alors facile

Jusque la, j'ai de la chance avec mon code car tout les fichiers xlsm ont comme binôme le fichier pdf, mais si il manque l'un ou l'autre ça va effectivement posé problème.
Malheureusement, pour le moment c'est la seul méthode que j'ai trouvé pour faire cette liste.

ah bon ? Il suffit pourtant de peu.
Tiens : à main levée et en reprenant la première partie de ton code (que j'indente et mets entre balises, hein ...):

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
Sub ListeFichiers()
  Application.ScreenUpdating = False
  Dim myPath As String, myFile As String
 
  myPath = ThisWorkbook.Path
  myFile = Dir(myPath & "\*.xlsm*")
 
  c = 4
  Do While myFile <> ""
    Cells(c, 1) = myFile 
    cells(c+1,1) = replace(myfile,".xlsm", ".pdf")
    myFile = Dir()
     c = c + 2
  Loop
end sub

Edit : et bien que tu dises avoir toujours la correspondance .pdf :
il serait très loin d'être idiot que de remplacer cette ligne :

Code :

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

cells(c+1,1) = replace(myfile,".xlsm", ".pdf")

par

Code :

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

1
2
3
if dir(replace(myfile,".xlsm", ".pdf")) <> "" then
 cells(c+1,1) = replace(myfile,".xlsm", ".pdf")
end if

[Marc-L]

Salut Jacques !

Le même sujet venant d'être ouvert sur un autre forum, ce n'est donc pas quelqu'un s'intéressant au code …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Antibios]

Ce n'est pas la bonne balise que j'ai mis?

Merci pour c'est correction unparia. Je vais essayé aussi ça demain.
Comme je ne peux pas essayé de suite, la correction du code met le lien du fichier?