XL 2019 Débute en vba, exécuter mon code dans une cellule précise

kiki29

XLDnaute Barbatruc

• 6 Mars 2023

• #2

Salut, commence par lire Support de cours complet pour le VBA d'Excel
de plus commence par formater ton code !

 

Pièces jointes

• Formatage Code stp.png

  4.8 KB · Affichages: 21

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 6 Mars 2023

• #3

Bonjour,

Do While Fichier <> ""
i = i + 1

Cliquez pour agrandir...

i n'ayant pas été initialisé, il a la valeur 0 au début, donc i=i+1 --> 1 .
Si vous voulez débuter à la ligne 3 il faut donc dire que i=2 au début :

VB:

    i=2
    Do While Fichier <> ""
        i = i + 1

Ceci est le b-a-ba de la programmation .
Persévérez mais faites appel à votre logique ...

 

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #4

Merci kiki29 pour le lien.

fanch55, j'avais mis i=2 après do while fichier.

Merci à vous deux

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #5

Bonjour Telemarrk, Kiki, Fanch,
Comme Workbook_Open est une macro événementielle ( qui se déclenche sur un événement ) et qu'elle concerne le fichier complet, elle doit être mise dans ThisWorkbook.
( si la macro ne concernait qu'une feuille il faudrait la mettre dans la feuille )
Un ex en PJ avec :

VB:

Private Sub Workbook_Open()
    Dim Dossier As String, Fichier As String, i As Integer
    Range("A:A").ClearContents  ' Efface la colonne A
    Dossier = ThisWorkbook.Path & "\" ' Utilise le dossier en cours, à mettre à jour avec le dossier désiré : "D:\chemin..."
    i = 2
    Fichier = Dir(Dossier)
    Do While Fichier <> ""                          ' Tant qu'il existe un fichier
        i = i + 1
        Sheets("Feuil1").Range("A" & i) = Fichier   ' Inscrire fichier en colonne A, commence en A3
        Fichier = Dir                               ' Prochain fichier
    Loop
    Columns.AutoFit                                 ' Ajuste la largeur des colonnes
End Sub

 

Pièces jointes

• Telemarrk.xlsm

  13.8 KB · Affichages: 2

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #6

Merci Sylvanu pour le code que je vais certainement utiliser car il utilise le dossier en cours.

Par contre peut-on inclure dans la colonne B par exemple la date de dépôt du fichier dans le dossier.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #7

Re,
Il suffit de rajouter :

VB:

Sheets("Feuil1").Range("B" & i) = FileDateTime(Fichier)

 

Pièces jointes

• Telemarrk.xlsm

  14.4 KB · Affichages: 1

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #8

Sylvanu, cela ne fonctionne pas, j'ai mis ton fichier dans un dossier avec des fichiers PDF et il me lance la fenêtre de débogage

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #9

telemarrk à dit:

il me lance la fenêtre de débogage

Cliquez pour agrandir...

Mais encore ?
Quelle erreur ? Sur quelle ligne ?
Chez moi cela fonctionne, XL2007 Windows10 :

Vous êtes sur PC, pas sur MAC ?

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #10

Je suis sur Windows 11 et excel 2019
je te joins une capture

 

Pièces jointes

• Capture d’écran 2023-03-06 105803.png

  31.5 KB · Affichages: 15

Dernière édition: 6 Mars 2023

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #11

Peut être avez une version VBA plus récente que la mienne et moins permissive. Je suis en 6.3.
Un autre essai en PJ avec :

VB:

On Error Resume Next
Sheets("Feuil1").Range("B" & i) = FileDateTime(Dossier & Fichier) ' Date de dernier enregistrement

Je précise le dossier concerné.
Le On error permet de dérouler la macro même s'il y a erreur. Si la colonne B est vierge, c'est que ça a raté.

Fonction FileDateTime (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

learn.microsoft.com

 

Pièces jointes

• Telemarrk.xlsm

  14.8 KB · Affichages: 1

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #12

Cela fonctionne, je vois également que tu as rajouté dossier avec fichier entre parenthèse

Je suis en version 7.1

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #13

telemarrk à dit:

je vois également que tu as rajouté dossier avec fichier entre parenthèse

Cliquez pour agrandir...

C'est ce que je dis :

sylvanu à dit:

Je précise le dossier concerné.

Cliquez pour agrandir...

Donc c'est bien un souci de version VBA. il faut que je note ça quelque part.

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 6 Mars 2023

• #14

Ok, je peux t'embêter encore.

Je viens de tester ton fichier dans plusieurs de mes dossiers et dans l'un d'eux il ne me tri par dans l'ordre croissant mes fichiers alors que je les ai numérotés comme tu peux voir dans la capture ci-jointe.

Il commence par le N° 2

 

Pièces jointes

• capture2.png

  18.5 KB · Affichages: 14

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2023

• #15

???
Il ne range pas par ordre croissant, mais dans l'ordre où il les trouve dans le dossier.
A aucun moment vous avez demandé un rangement par ordre alpha !
Testez cette PJ, j'ai rajouté :

VB:

DL = Range("A65500").End(xlUp).Row
Range("A3:B" & DL).Resize(DL).Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlYes

 

Pièces jointes

• Telemarrk.xlsm

  15.5 KB · Affichages: 2

Vote positif 0 Vote négatif