Discussion :

[PedroBD]

Bonjour,

Je suis en train de faire un tableau de pilotage pour suivre des charges consommées sur des projets.
Pour cela, je dois lire ces charges dans des fichiers sur un réseau.
J'ai essayé en formule mais c'est trop lourd à maintenant.
Pourriez-vous me donner en gros la syntaxe en VBA pour:
- lire tous les onglets d'un fichier sur le réseau
- faire une recherche sur ce fichier de type "IF Cell = V1 THEN..."

Merci de votre aide, je suis débutant en VBA.

[Qwazerty]

Salut
Ta question est assez vague, je te conseil pour débuter de prendre le temps de lire les tutoriels mis à disposition sur ce site concernant Excel et VBA
++
Qwaz

[PedroBD]

Ok, je vais regarder plus en détail, mais comme je dois faire le fichier assez vite, est-ce que tu pourrais déjà me dire comment je dois écrire le code pour lire une cellule dans mon fichier qui est sur un réseau.
Je chercherai ensuite comment écrire la boucle for.
Je voudrais faire un truc style

for [toutes les cellules de tous les onglets du fichier]
IF [la cellule lue = la valeur souhaitée]
THEN [incrémenter le compteur de charges]

Merci de ton aide.

[Qwazerty]

Salut

lire une cellule dans mon fichier qui est sur un réseau.

Tu veux ouvrir ton fichier et lire ce qu'il contient? (car il y a aussi des méthodes permettant de lire le contenu d'un fichier sans l'ouvrir en se servant de ce fichier comme d'une base de données.)
Sans plus d'info

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
Sub Teste()
Dim ClasseurBase As Workbook
Dim TheCell As Range
Dim Total As Long
 
    'On ouvre le classeur et on pointe dessus
    Set ClasseurBase = Workbooks.Open("Le chemin de ton fichier.xls")
 
    'On boucle sur chaque cellules de la feuille
    For Each TheCell In ClasseurBase.Sheets("NomDeLaFeuilleALire").UsedRange
        'On traite le contenu de la cellule
        If TheCell.Value = "Valeur recherchée" Then Total = Total + 1
    Next
 
End Sub

Et pour info, c'est un forum d'entraide, pas une usine à code, y'a des entreprises pour ça... Les gens ici donnent de leur temps personnel, alors les notions d'urgences restent et doivent rester toutes relatives. Et lorsque l'on veut une réponse rapide, on donne le plus d'informations possible et on est le plus claire possible. Merci.

++
Qwaz