Discussion :

[bigsexy]

Bonjour à tous,

Je suis novice dans l'utilisation des macros sous Excel.

Ce sujet a surement été traité mais je n'ai pas réussi à retrouver une solution existante.

Je vous explique ma problématique.

J'ai un fichier Excel avec une base de données comprenant environ 5000 lignes.
Chaque personne inscrite dans cette base de données détient une photo. Le chemin d'accès de cette photo se trouve dans la colonne "CH". J'aurais besoin dans la colonne "CK" d'une macro qui va me rechercher l'information de la date de modification du fichier dont le chemin d'accès se trouve dans la colonne "CH".

La macro doit aller chercher les informations sur toutes les lignes.

Merci d'avance.

[parmi]

Bonjour,

Si c'est la date de la dernière sauvegarde, tu peux essayer ainsi

Code :

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

Range("CK" & I) = FileDateTime("Chemin et nom du fichier")

Si c'est d'inscrire la date au moment où une personne fait la sauvegarde, il faudra retracer le nom de l'usager dans la colonne et inscrire

Code :

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

Range("CK" & I) = Date  ' ou = Now si tu veux l'heure

NB: "I" étant la variable de la ligne où inscrire la donnée.

[bigsexy]

Bonjour,

Merci cela m'a permis d'avancer... mais malheureusement, le programme s'arrête lorsque le lien n'existe pas...et j'ai besoin qu'il m'inscrive juste "Erreur" et qu'il passe au suivant. Voilà mon code.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton108_clic()
    Dim I As Long
    For I = 2 To 5000
        Range("CK" & I) = FileDateTime(Range("CE" & I))
        If Dir(Range("CE" & I).Value, vbNormal) = "" Then
        Range("CK" & I).Value = "Erreur"
            End If
    Next I
End Sub

Merci pour vos lumières...

[parmi]

Essaie comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton108_clic()
 Dim I As Long
 For I = 2 To 5000
    If Dir(Range("CE" & I))="" then
       Range("CK" & I).Value = "Erreur"
    Else
       Range("CK" & I) = FileDateTime(Range("CE" & I))
    End If
 Next I
 End Sub

PS: quand tu mets du code, sélectionne-le et utilise le bouton # pour formater le code

[bigsexy]

Merci.

Mais cela n'a pas marché...le code bloque dès qu'une ligne est vide. Pas vraiment compris pourquoi....mais j'ai contourné le problème avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton108_clic()
Dim I As Long
For I = 2 To 5000
File = Dir(Range("CH" & I).Value)
    If Len(File) > 0 Then
        Range("CK" & I) = Format(FileDateTime(Range("CE" & I)), "DD.MM.YYYY")
    End If
Next I
End Sub

Par contre, il me note une erreur à la fin : Erreur d'exécution '13': Incompatibilité de type

Une idée ? Dans tous les cas, un grand merci.

[parmi]

Où y a-t-il une ligne vide ? dans ton classeur ?
Si oui, vérifie si la cellule est non vide pour continuer

Code :

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

1
2
If Range("CH" & I) <> "" Then
'...

Sur quelle ligne survient l'erreur ?

Autre chose, évite des noms comme File qui pourraient être réservés par le système...