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