Discussion :

[badboysbe]

Bonjour à tous et d'avance merci de lire ma demande,

J’aurais aimé réaliser une macro pour Excel mais je me demande si celle-ci serait facilement réalisable avec des connaissances très basiques de Visual Basic.

L’idée est toute simple :
Il faudrait un document Excel dans lequel se trouverait un bouton à actionner qui permettrait d’ouvrir la totalité d’autres documents Excel placés dans un répertoire spécifique afin d’y effacer uniquement la case A1.

Sur le document Excel qu’il faut que je crée, il y aurait bien entendu le fameux bouton magique mais aussi une case qui permettrait d’indiquer au programme où se trouve le fichier rempli de documents (C:\...\répertoireX) afin de pouvoir choisir le répertoire dans lequel il faut trouver les fichiers Excel à traiter.

J’espère que mon explication est assez claire et que la réponse est relativement facile à appliquer afin que je puisse trouver une solution à ce petit problème.

Ps : actuellement, j’efface cette case manuellement fichier par fichier (et il y en a beaucoup…)

Un tout grand merci d'avance pour toute réponse qui pourrait m'aiguiller ou m'aider. Je suis aussi intéressé si vous avez des liens intéressants voir même des livres/manuels/pdf pouvant m'aider dans la gestion de fichiers excel au départ d'un seul fichier excel.

[drakkar_agfa]

Bonjour,

Si tu aimes les défis ce ne sera pas trop compliqué!

Il faut d'abord connaitre comment ouvrir un fichier (l'enregistreur de macro est la pour ça!) mais chance le code pour qu'il corresponde à ce que tu veux.

Pour boucler les fichier d'un répertoire, tu peux adapter ceci (petite macro qui affiche tout les fichier d'un répertoire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Sub ListerFichier()
    Dim Chemin As String, Fichier As String
    Dim i As Integer
 
    Range("A:A").ClearContents
    'Définit le répertoire contenant les fichiers
    MsgBox "Vous devez sélectionner un fichier dans le répertoire à lister."
    Fichier = Application.GetOpenFilename
    Chemin = Left(Fichier, InStrRev(Fichier, "\"))
 
    'Boucle sur tous les fichiers du répertoire.
    Fichier = Dir(Chemin & "*.*")
    Do While Len(Fichier) > 0
        i = i + 1
        'écrit le résultat dans le tableau.
        Cells(i, 1) = Fichier
        Fichier = Dir()
    Loop
End Sub

Modifie le code (au lieu de sélectionner un fichier dans mon exemple) utilise la cellule de l'adresse!

Commence à regarder ceci et commence un code, reviens nous avec tes questions

Bonne chance!

[laetitia]

bonjour badboysbe drakkar_agfa le forum

une autre piste interessante utiliser (ADO) ecrire dans un fichier ferme