[VBA] Boucle pour ouverture de classeur

[AntoineM]

Bonjour !

Je viens vers vous pour une demande particulière.

J'ai un logiciel qui génére des fichier excel sous le format suivant :
"TOTO_""jj.mm.aa_hh.mm"

L'heure et la date variant donc en fonction de l'heure à laquelle on fait l'extraction.

J'ai crée un fichier excel pour importer les données. Sur ce classeur, j'ai crée plusieurs cellule au format de l'extraction en soustrayant une minutes à chaque fois (fichier en pièce jointe pour plus de clareté).

J'aimerais crée une macro qui demande à excel d'ouvrir un classeur en fonction du nom contenu dans la cellule.
La première cellule contenant lheure exacte et chaque cellule en dessous avec une minite en moins.

Je ne sais pas trop comment m'y prendre étant débutant en excel.

Des pistes ?

Bien à vous,

AMuneret

 

[AntoineM]

Re : [VBA] Boucle pour ouverture de classeur

J'ai déjç ca comme bout de code :

Sub putaindecsv()

'Chemin = "N:\PARTAGES\03-ExtractionsTmp\"
Chemin = "X:\Chemin"
Part = Range("A2").Value
Chem2 = Dir(Chemin & Part & "*.csv")

'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Dir(Chemin & Part & "*.csv"), Local:=True
nom_Csv = ActiveWorkbook.Name

End Sub

Le problème est que cela ne m'ouvre que le fichier clairement définis en A2, or je voudrais que si le nom A2 ne donne rien, il passe en A3 puis A4, etc etc

 

[Paf]

Re : [VBA] Boucle pour ouverture de classeur

bonjour

peut-être quelque chose comme ça:

For i = 3 To Range("A" & Rows.Count).End(xlUp).Row 'pour chaque cellule renseignée de la colonne A
    Chemin = "X:\Chemin\" ' ne pas oublier le dernier "\" !
    If Dir(Chemin & Range("A" & i).Value & "*.csv") <> "" Then
        'Ouverture du fichier
        Workbooks.Open Filename:=Chemin & Range("A" & i).Value & "*.csv", Local:=True
        nom_Csv = ActiveWorkbook.Name
        .......  'suite du code
    Else
        MsgBox "Classeur " & Range("A" & i).Value & "*.csv non trouvé"
    End If
Next

A+

 

[AntoineM]

Re : [VBA] Boucle pour ouverture de classeur

aaaaaaaaaaaaaaah.

ton "peut être quelque chose comme ça:" est juste parfait

Il fonctionne à merveille.


Merci beaucoup.