[VBA] Boucle pour ouverture de classeur

  • Initiateur de la discussion Initiateur de la discussion AntoineM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

AntoineM

XLDnaute Junior
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
 

Pièces jointes

Re : [VBA] Boucle pour ouverture de classeur

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

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
 
Re : [VBA] Boucle pour ouverture de classeur

bonjour

peut-être quelque chose comme ça:

Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
124
Réponses
4
Affichages
225
Réponses
32
Affichages
978
  • Question Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
625
Réponses
20
Affichages
872
Réponses
4
Affichages
835
Retour