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] Compléter la macro mais comment et où?
Réponses
2
Affichages
244
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
110
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
111
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
429
Nounours4173
N
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
514
Simon 1234
S
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
314
thunder23
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
316
Piment
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
495
telemarrk
T
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
279
Cédric06400
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
244
TooFatBoy
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
165
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
214
safranien
S
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
243
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
256
JJ69
J
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
349
patricktoulon
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
530
Franc58
F
Optimisation de code VBA
Réponses
5
Affichages
150
Cléa
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
331
netparty
N
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
369
bsalv
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…