Discussion :

[MP_TIPEE]

Bonjour,

J'ai créé un bouton avec un code VBA pour ouvrir l'explorateur windows, sélectionner un ou des fichiers et les coller dans un autre dossier.

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
Sub Chauffage_Pompe_FT()
Dim Fichier As Variant
Dim NomFichier As String
Dim I As Integer
Dim RepEnfant As String
RepEnfant = ThisWorkbook.Path & "\TEST"
 
Fichier = Application.GetOpenFilename(Title:="Sélection multiple", MultiSelect:=True)
 
If TypeName(Fichier) = "Boolean" Then
  Exit Sub
Else
  For I = 1 To UBound(Fichier)
    NomFichier = Mid(Fichier(I), InStrRev(Fichier(I), "\") + 1)
    FileCopy Fichier(I), ThisWorkbook.Path & "\Docs\Chauffage\Pompe\Fiches_techniques" & "\" & NomFichier
  Next
End If
End Sub

Cela fonctionne bien.

Ce que j'aimerais ajouter, c'est qu'une case soit cochée quand l'action a été effectuée, mais qu'elle ne le soit pas si aucun document n'est sélectionné (lorsque l'on quitte l'explorateur sans avoir cliqué sur "ouvrir").
Je vous remercie d'avance pour votre aide

MP_TIPEE

[Invité]

Bonjour,

Dans ce cas, Fichier = False. C'est le résultat également de votre test dans :

Code :

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

1
2
3
If TypeName(Fichier) = "Boolean" Then
  Exit Sub
Else

Ou

Code :

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

1
2
3
4
 
If Fichier = False Then
  Exit Sub
Else

Donc votre case à cocher = Fichier.

[MP_TIPEE]

Bonjour et merci pour votre réponse rapide,

Je galère un peu (j'ai commencer le VBA hier matin ) mais j'apprends vite, enfin j'espère.

Pour l'instant j'ai utilisé des boutons de la partie "contrôle de formulaire", mais d'après ce que je lis à droite et à gauche c'est peut-être pas la meilleure idée.
J'ai essayé d'insérer une case à cocher de la partie "Active X" que j'ai nommé CB1.

Puis j'ai modifier le code en ajoutant une ligne pour mettre la valeur de cette cas à True avec le code de mon bouton.

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
 
Sub Chauffage_Pompe_FT()
Dim Fichier As Variant
Dim NomFichier As String
Dim I As Integer
Dim RepEnfant As String
RepEnfant = ThisWorkbook.Path & "\TEST"
 
Fichier = Application.GetOpenFilename(Title:="Sélection multiple", MultiSelect:=True)
 
If TypeName(Fichier) = "Boolean" Then
  Exit Sub
Else
  For I = 1 To UBound(Fichier)
    NomFichier = Mid(Fichier(I), InStrRev(Fichier(I), "\") + 1)
    FileCopy Fichier(I), ThisWorkbook.Path & "\Docs\Chauffage\Pompe\Fiches_techniques" & "\" & NomFichier
    ThisWorkbook.CB1.Value = True
  Next
End If
End Sub

Ça ne bug pas mais rien ne se passe.

Peut-être faut-il utiliser une case à cocher de la partie formulaire, mais je ne voit pas comment la nommer pour y faire appel dans le code du bouton.

Je ne suis pas sûr que cela soit très clair, si ça n'est pas le cas dîtes-le moi, je préciserai mon problème.

Tks

[fuine0069]

essaie de mettre l'action de cocher AVANT de faire le copy?

[Philippe Tulliez]

Bonjour,

Ça ne bug pas mais rien ne se passe

C'est très étonnant ce que tu écris car pour moi cette ligne

Code :

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

ThisWorkbook.CB1.Value = True

doit déclencher une erreur

[fuine0069]

si tu mets juste

Code :

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

1
2
 
CB1.value = true

AVANT de faire le copy, ca devrait fonctionner

[MP_TIPEE]

En fait, je viens de tester de mettre cette ligne avant le copy et ça me renvoie une erreur de compilation. Donc bonne nouvelle, ça bug

[unparia]

Bonjour Philippe Tulliez

C'est très étonnant ce que tu écris car pour moi cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.CB1.Value = True

doit déclencher une erreur

Sauf s'il est resté avec l'éditeur en mode erreur

[Philippe Tulliez]

Bonjour Unparia,

Sauf s'il est resté avec l'éditeur en mode erreur

C'est ce que j'avais soupçonné mais devant cette affirmation "Ça ne bug pas mais rien ne se passe", je m'incline

[MP_TIPEE]

Ok, je n'ai manifestement pas compris ce que m'indiquait Eric Kergresse.

Peut-être que la macro doit être attachée à la case à cocher plutôt qu'au bouton.
Quelle serait la bonne piste pour résoudre mon problème ?

Merci d'avance

[Philippe Tulliez]

Bonjour,

Ok, je n'ai manifestement pas compris ce que m'indiquait Eric Kergresse.

Pourtant il me semble que le commentaire d'Eric que je salue au passage est extrèment clair et il suffisait de faire un copier/coller de son code pour se rendre compte que cela fonctionnait.

Ce que tu souhaites faire en plus si j'ai bien compris c'est de cocher par programme le contrôle ActiveX si le fichier a été sélectionné
Alors je ne sais pas où tu as été chercher cette ligne de code

Code :

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

ThisWorkbook.CB1.Value = True

car un contrôle ActiveX appartient à une feuille et pas au classeur donc la ligne de code ci-dessous fonctionnera mieux

Code :

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

ThisWorkbook.Worksheets("Feuil1").OLEObjects("CB1").Object.Value = True

ou encore

Code :

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

ThisWorkbook.Worksheets("Feuil1").CB1.Object.Value = True

ou encore, encore

Code :

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

ThisWorkbook.Worksheets("Feuil1").CB1.Value = True

et encore plus court en utilisant le CodeName de la feuille

Code :

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

Feuil1.CB1.Value = True

Mais il serait préférable de prévoir le passage à False si l'utilisateur clique sur Annuler

Code :

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

1
2
3
4
5
6
7
8
9
If TypeName(Fichier) = "Boolean" Then
  Feuil1.CB1.Value = False: Exit Sub
 Else
  Feuil1.CB1.Value = True
  For I = 1 To UBound(Fichier)
    NomFichier = Mid(Fichier(I), InStrRev(Fichier(I), "\") + 1)
    FileCopy Fichier(I), ThisWorkbook.Path & "\Docs\Chauffage\Pompe\Fiches_techniques" & "\" & NomFichier
  Next
End If

Et personnellement je préfère VarType que TypeName et donc il est possible de tester le type booléen comme la ligne ci-dessous

Code :

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

If VarType(Fichier) = vbBoolean Then

[MP_TIPEE]

Bonsoir Philippe Tulliez,

Pourtant il me semble que le commentaire d'Eric que je salue au passage est extrèment clair et il suffisait de faire un copier/coller de son code pour se rendre compte que cela fonctionnait.

Je ne voulais pas dire que cela n'était pas clair, seulement que je n'avais pas saisi.

Le code que vous m'avez indiqué fonctionne parfaitement Je vous remercie pour votre aide ! Et oui, j'ai conscience que la formulation de mon problème était un peu candide, mais il faut bien commencer quelque part. En tout cas, le peu que j'ai réussi à faire en suivant des topics sur ce forum m'a motivé à me lancer dans le VBA pour excel !

Encore merci et bon week-end à tous !

[Philippe Tulliez]

Bonjour,
Personnellement j'utiliserais une constante à placer en tête de procédure ou en tête de module contenant la valeur des sous-répertoires ("\Docs\Chauffage\Pompe\Fiches_techniques\") ou mieux encore dans une cellule d'une feuille paramètre. Cela facilite la maintenance.

[MP_TIPEE]

Bonjour Philippe Tulliez,

Merci pour le conseil, je vais regarder ça parce qu'effectivement, j'ai beaucoup de répertoires différents et mon outil est appelé à évoluer dans les mois à venir.