Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide sur macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

fenec

XLDnaute Impliqué
Bonsoir le forum
Encore besoin de vous
J’utilise cette macro qu’un xld ma suggéré et qui fonctionne très bien, le problème est que je ne parviens pas à ce que le fichier trouvé se ferme automatiquement
Je désirerais qu’il se ferme tout seul plutôt que de devoir le fermer manuellement

Cordialement

Fenec

Sub Editer_Facture() 'Editer Facture
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Dim Recf, Compar, Y, Msg
Set Recf = Application.FileSearch
With Recf
Compar = InputBox("Fichiers dont le nom commence par :" & _
Chr(13) & "(saisissez * pour obtenir tous les " & _
"classeurs du répertoire)", "Classeurs commençant par...")
If Compar <> "" Then
.LookIn = "C:\Users\Philippe\Documents\Archives\Bon de Commande"
.Filename = Compar & "*.*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " fichier(s) trouvé(s)."
For Y = 1 To .FoundFiles.Count
If MsgBox("Voulez-vous ouvrir " & _
.FoundFiles(Y), vbYesNo) = vbYes Then
Workbooks.Open (.FoundFiles(Y))
End If
Next Y
Else
Msg = MsgBox("Aucun fichier correspondant à la " & _
"recherche.", , "Désolé...")
End If
End If
End With
Range("E13:E17,I15,C21:C36,E21:E36,G21:G36,H21:H36,I38:I39,H41:H42,H44:H45").Select
For Each cel In Selection
cel.Copy
Windows("VF Menuiserie.xls").Activate
Sheets("Facture").Select
Range(cel.Address).Select
ActiveSheet.Paste
Next cel
Range("K13").Select
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Trier par date Trier par votes
Re : aide sur macro

re,
et merci pour ta reponse rapide flyonets 44
viens de tester mais le probleme est que ca ferme le fichier d'ouvert mais pas celui trouvé
merci quand meme
cordialement
fenec
 
Vote positif 0 Vote négatif
Re : aide sur macro

Bonjour,

Il faut mettre dans une variable le nom du fichier trouvé et à la fin de la procédure pour fermer le fichier trouvé...

Code: 
 ' Activer le classeur trouvé
Windows(Mavariable).Activate
ActiveWorkBook.close savechanges:=True
 
Vote positif 0 Vote négatif
Re : aide sur macro

Bonjour, fenec, flyonets44, Eric et Joyeux Noël !

Pour plus d'infos sur les balises BB, permettant une lecture plus agréable du code publié, vous pouvez cliquer ici.

Et/ou utiliser celle-ci : [noparse]
VB: 
LeCode
[/noparse]
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aide sur macro

re, et merci Renauder
viens de rajouter ton bout de code en fin de ma macro mais sa bloque sur

Windows(Mavariable).Activate

l'ai rajouté comme ceci

Sub Editer_Facture() 'Editer Facture
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Dim Recf, Compar, Y, Msg
Set Recf = Application.FileSearch
With Recf
Compar = InputBox("Fichiers dont le nom commence par :" & _
Chr(13) & "(saisissez * pour obtenir tous les " & _
"classeurs du répertoire)", "Classeurs commençant par...")
If Compar <> "" Then
.LookIn = "C:\Users\Philippe\Documents\Archives\Bon de Commande"
.Filename = Compar & "*.*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " fichier(s) trouvé(s)."
For Y = 1 To .FoundFiles.Count
If MsgBox("Voulez-vous ouvrir " & _
.FoundFiles(Y), vbYesNo) = vbYes Then
Workbooks.Open (.FoundFiles(Y))
End If
Next Y
Else
Msg = MsgBox("Aucun fichier correspondant à la " & _
"recherche.", , "Désolé...")
End If
End If
End With
Range("E13:E17,I15,C21:C36,E21:E36,G21:G36,H21:H36 ,I38:I39,H41:H42,H44:H45").Select
For Each cel In Selection
cel.Copy
Windows("VF Menuiserie.xls").Activate
Sheets("Facture").Select
Range(cel.Address).Select
ActiveSheet.Paste
Next cel
Range("K13").Select
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True

' Activer le classeur trouvé
Windows(Mavariable).Activate
ActiveWorkBook.close savechanges:=True
End Sub
 
Vote positif 0 Vote négatif
Re : aide sur macro

re ,
je ne peux definir de nom puisque je recherche un fichier dans un dossier et que celui ci ne sera jamais le meme
j'avoue en plus que je ne suis pas tres doué en macro
mais merci de votre aide
 
Vote positif 0 Vote négatif
Re : aide sur macro

Bonjour,
Ajoute la ligne en rouge
If MsgBox("Voulez-vous ouvrir " & _
.FoundFiles(Y), vbYesNo) = vbYes Then
Workbooks.Open (.FoundFiles(Y))
MaVariable = ActiveWorkbook.Name
End If

et à la fin du code...
Code: 
' Activer le classeur trouvé
 Windows(Mavariable).Activate
 ActiveWorkBook.close savechanges:=True
 End Sub
 
Vote positif 0 Vote négatif
Re : aide sur macro

Bonsoir à tous,

Je n'ai pas tout lu, mais j'aurais tenté:

Code: 
Dim CLASSEURS_OUVERTS As Workbook
  For Each CLASSEURS_OUVERTS In Workbooks
     If CLASSEURS_OUVERTS.Name <> ThisWorkbook.Name Then
     CLASSEURS_OUVERTS.Save
     CLASSEURS_OUVERTS.Close True
     End If
  Next

Amicalement, avec mes meilleurs vœux.

Yann
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
507
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
336
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
686
Nounours4173
N
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
765
Simon 1234
S
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
612
Piment
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
298
Cédric06400
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
700
TooFatBoy
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
285
CortoXls
C
N
  • Résolu(e)
Microsoft 365 Aide pour terminer un code Vba Excel
2
Réponses
23
Affichages
1 K
job75
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
436
ManuEven
M
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
587
patricktoulon
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
583
Franc58
F
Optimisation de code VBA
Réponses
5
Affichages
208
Cléa
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
382
netparty
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…