L'avis de ceux qui ont testé ...

Re : L'avis de ceux qui ont testé ...

MichelXld à dit:

rebonjour



ça fait toujours plaisir à lire apres voir passé une heure à te préparer une procedure ...
Si tu es pressé il existe des sociétés professionnelles qui répondront à tes questions contre rétribution

Lien supprimé

Code:

Option Explicit
Dim objWMIService As Object
Dim Lettre As String
Dim Resultat As Integer
 
Sub Test()
    Dim strComputer As String, Chemin As String
 
    strComputer = "."
    Chemin = "C:\Documents and Settings\mimi\dossier\general\excel"
    Lettre = Left(Chemin, 2)
 
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    SousDossiers Chemin, True
    MsgBox "Il y a " & Resultat & " classeurs Excel dans " & vbCrLf & "'" & Chemin & "'" & _
        vbCrLf & "et ses sous répertoires."
 
    Resultat = 0
    Set objWMIService = Nothing
End Sub
 
 
Sub SousDossiers(ByVal NomDossier As String, BoolSousRep As Boolean)
    Dim colSubfolders As Object, objFolder As Object
    Dim colFiles As Object
    Dim Repertoire As String
 
    Repertoire = Application.WorksheetFunction.Substitute(NomDossier, "\", "\\")
    Repertoire = Mid(Repertoire, 3) & "\\"
 
    '----------
    Set colFiles = objWMIService. _
        ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '" & Repertoire & "' " & _
        "AND Drive = '" & Lettre & "' AND Extension = 'xls'")
 
    Resultat = Resultat + colFiles.Count
    'Debug.Print NomDossier
    '----------
 
 
    If BoolSousRep Then
 
        Set colSubfolders = objWMIService.ExecQuery _
            ("Associators of {Win32_Directory.Name='" & NomDossier & "'} " _
            & "Where AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent")
        For Each objFolder In colSubfolders
            SousDossiers objFolder.Name, BoolSousRep
        Next
    End If
End Sub

Bonne journée
MichelXld

Cliquez pour agrandir...

Chapeau bas Mr MichelXld ...
Je n'aurais qu'un ensemble de mots bien de chez moi : "non dé diou le mec ! "

@++++

Kick

Re : L'avis de ceux qui ont testé ...

vigezzina à dit:

Bonjour à tous,

je vois que je ne suis pas la seule à avoir eu qq soucis d'adaptation
ça me rassure

à toutes fins utiles, voici un lien vers une appli flash qui m'a bien servi pour retrouver mes petits :
-
- cliquez ensuite sur Démarrer le guide

Il vous suffit de cliquer sur la commande que vous ne retrouvez plus, l'appli affichera la correspondance sur la version 2007.

bon courage

Cliquez pour agrandir...

Merci, cet outil est bien utile

Re : L'avis de ceux qui ont testé ...

Finalement
ça me rassure bien de ne pas être le seul à galérer.

Je crois que je vais me forcer.
Et vu que tous les membres de ce forum sont loins d'être idiots, ça va forcément finir par se faire accepter.

Et puis c'est vrai que je retiens 2 arguments, les efforts de design et la capacité ligne-colonne.
ça évite de recourir à accès ou de solliciter des outils type BO.

Mais c'est vrai que la productivité en prend un coup.
J'ai l'impression d'être dans la peau de mes parents lorsqu'il ont du lâcher la machine à écrire pour word.

Re : L'avis de ceux qui ont testé ...

slt


j'ai aussi la version 07, qui change completement la facon de penser.
je commence a l'utiiser plus facilement sans chercher trop longtemps, mais c'est vrai que ca deboussolle.
Par contre j'ai 2 versions excel à la maison 2003 et 2007. ce qui fait que je passe de l'un à l'autre en fonction des besoins, c'est plus pratique.
2007 a l'air vraiment bien sur ce qu'il propose. Il propose des icones qui faciliteront beaucoup la vie de ceux qui ne connaissent pas trop 2003. par contre pour les autres c'est dur de changer, il faut accepter de changer de logique de travail.
je m'accroche malgre cela, car bientot on n'aura pas le choix.

Re : L'avis de ceux qui ont testé ...

Bonjour,

Et bien au boulot on a acheté 3 pc et bien c'est 3 pc à la benne !
On travaille dans le technique et scientifique et nous utilisons les graphs nuage de points xy lissés .... et bien excel 2007 plante au moindre changement d'échelle suivi d'une tentative de sélection d'autre chose comme la courbe elle meme si on
fait un tableau de plus de 3000 lignes !!!!!

Alors si vous utilisé les graphiques nuage de points xy lissés .... faites attention !!