LeRevenant
XLDnaute Occasionnel
Salut les gens,
À savoir: Dans mon arborescence, j'ai un dossier rempli de sous-dossiers, et leurs noms sont forcément des chiffres (ce sont des n° de facture pour les intimes).
Objectif: Avoir une fonction qui compte le nombre de fichiers qu'ils soient .jpg.jpeg .gif etc etc. (je sais que ma macro ne prend que les jpg, mais je vois pas comment faire autrement).
Donc dans la fonction, il faudrait rentrer une coordonnée de cellule (genre A1) et dans A1 il y a par exemple 225223 => le numéro de facture auquel on cherche à savoir de combien de photos on dispose.
Je tiens à préciser que j'ai très souvent été satisfait de ce forum 🙂 Avec ma connaissance "intermédiaire - " de VBA, je me lance dans la création de fonctions via VBA=> il me manque et l'expérience et de la connaissance théorique. Malgré cet handicap, j'ai pu bien avancer ma 1ère fonction, il doit y avoir un petit truc à toucher pour que ça marche à mon avis:
Function NombreImages(i)
Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Dim i As Integer
Chemin = "H:\Sales\01-Users\Aymeric\Photos BWare\i\" 'a adapter
rep = Dir(Chemin & "*.jpg")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
End Function
Voila tout, jen espérant avoir été assez claire. Je me ferai un plaisir de voir et comprendre vos réponses 😉
À tôt bien
À savoir: Dans mon arborescence, j'ai un dossier rempli de sous-dossiers, et leurs noms sont forcément des chiffres (ce sont des n° de facture pour les intimes).
Objectif: Avoir une fonction qui compte le nombre de fichiers qu'ils soient .jpg.jpeg .gif etc etc. (je sais que ma macro ne prend que les jpg, mais je vois pas comment faire autrement).
Donc dans la fonction, il faudrait rentrer une coordonnée de cellule (genre A1) et dans A1 il y a par exemple 225223 => le numéro de facture auquel on cherche à savoir de combien de photos on dispose.
Je tiens à préciser que j'ai très souvent été satisfait de ce forum 🙂 Avec ma connaissance "intermédiaire - " de VBA, je me lance dans la création de fonctions via VBA=> il me manque et l'expérience et de la connaissance théorique. Malgré cet handicap, j'ai pu bien avancer ma 1ère fonction, il doit y avoir un petit truc à toucher pour que ça marche à mon avis:
Function NombreImages(i)
Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Dim i As Integer
Chemin = "H:\Sales\01-Users\Aymeric\Photos BWare\i\" 'a adapter
rep = Dir(Chemin & "*.jpg")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
End Function
Voila tout, jen espérant avoir été assez claire. Je me ferai un plaisir de voir et comprendre vos réponses 😉
À tôt bien