Discussion :

[tomaix]

Bonjour,

En appliquant cette methode avec la fonction "Countifs", j'ai un message d'erreur "#VALEUR!". Cette macro marche uniquement si j'ouvre le fichier en parallèle, je ne comprend pas car c'est la même chose :

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
20
21
Private Sub cmdValider_Click()
 
    Dim Chemin As String
    Dim Classeur As String
    Dim Feuille As String
    Dim PlageC As String
    Dim PlageQ As String
 
 
    Chemin = "C:\Users\E51973\Desktop\"
    Classeur = "recherche.xls"
    Feuille = "Sheet1"
    PlageC = "C5:C500"
    PlageQ = "Q5:Q500"
 
 ' Nombre en cours 
 
        Range("M32").Formula = _
            "=COUNTIFS('" & Chemin & "[" & Classeur & "]" & Feuille & "'!" & PlageQ & ",""étude demandée"",'" & Chemin & "[" & Classeur & "]" & Feuille & "'!" & PlageC & ",""Etude"")"
        Range("M32").Select
End Sub

Est ce quelqu'un pourrait me renseigner ?

Merci d'avance et bonne fêtes

[tomaix]

Bonjour,

Quelqu'un a une idée sur le problème avec la fonction countifs détaillé ci-dessus ?

Merci d'avance de votre aide, car cela bloque mes requêtes journalières.
Salutations

[Theze]

Bonjour,

Déjà, ce n'est pas "COUNTIFS" mais "COUNTIF" et ensuite, je crois que cette fonction ne marche que si le classeur est ouvert. Pour récupérer le chemin et nom du classeur depuis l'explorateur, tu peux utiliser "Application.FileDialog" mais pour la plage et la feuille, il te faux soit le mettre en "dur" dans le code, soit passer par un InputBox :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub Recup()
 
    Dim Nom As String
    Dim Chemin As String
    Dim Classeur As String
    Dim Feuille As String
    Dim Plage As String
 
    '1 ouvrir un fichier
    '2 enregistrement de fichier
    '3 sélection de fichier
    '4 sélection de dossier
    With Application.FileDialog(1)
 
        .Show
        On Error Resume Next 'si annuler
        Nom = .SelectedItems(1)
        If Err.Number <> 0 Then Exit Sub
 
    End With
 
    On Error GoTo 0
 
    Chemin = Left(Nom, InStrRev(Nom, "\"))
    Classeur = Right(Nom, Len(Nom) - InStrRev(Nom, "\"))
 
    'la feuille et la plage doivent être définies en "dur" ou voir avec InputBox ?
    Feuille = "MED-FML-2010-000129"
    Plage = "AT10:AT1500"
 
    Range("B23").Formula = "=SUM('" & Chemin & "[" & Classeur & "]" & Feuille & "'!" & Plage & ")/1000"
 
End Sub

Hervé.

[tomaix]

Merci bien Hervé en bidouillant un peu je devrais m'en sortir.
Je confirme que la fonction COUNTIF ou COUNTIFS, les deux solutions marche, que cette fonction ne marche pas avec un classeur fermé.

Bon réveillon

[Theze]

Bonjour,

Autant pour moi "COUNTIF et COUNTIFS" :o((

Hervé.