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

Besoin d'aide pour une macro complexe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Malone
  • 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
M

Malone

XLDnaute Nouveau
Bonjour,

Je sollicite l'aide des personnes qui voudront bien m'aider sur une macro qui devient un peu plus complexe que ce que j'ai fait jusqu'à maintenant. C'est pour ça que je préfère ouvrir un fil de discussion unique plutot que 10 post différents.

Explication :

Je dois mettre à jours une trentaine de fichier différent de la même manière à partir d'un classeur Excel unique (source) qui contient divers informations comptable.

1-/ Ce fichier est mis à jour tout les mois, le fichier change de place et de nom mais l'arboressence des dossiers est toujours la même. Par exemple on aura
C:/reporting/0109/nomsource0109.xls
C:/reporting/0209/nomsource0209.xls
Etc.
Je pense pouvoir faire ça mais je n'y suis pas encore

2-/Le fichier est mis à jour de la façon suivante:
A partir d'une msgbox l'utilisateur indique le mois à mettre à jour ex: 0909
La macro devra modifier les liaisons des fichiers (simple ctlr+H) et copier une ligne de formule sur le mois concerné dans le fichier.

Ce que j'essai de faire pour l'instant c'est de retrouver le mois concerné dans le fichier pour ensuite coller les formules (en jaune sur les violettes) avec le nouveau lien et réaliser divers petit calcul en automatique.

Mon problème est que ma LOOP bug lorsque je recherche le mois rentré dans la msgbox pour effectuer les actions

Je cherche ici à atteindre le mois 02/08 de la façon suivante :

Tant que la cellule est différente de "02/08" on passe une ligne en dessou et lorsqu'il là trouve on fera les actions de copie de formule.

Vous trouverez le fichier ci-joint
(j'ai du supprimer bcp de formule pr que le fichier soit moin lourd)


Je ne demande pas à ce que l'on me construise le fichier en entier mais juste un peu d'assistance.
Je vous remercie pour votre aide

Malone
 

Pièces jointes

Trier par date Trier par votes
Re : Besoin d'aide pour une macro complexe

Bonjour Messieurs!

J'ai trouvé le problème, j'aurai dut y penser plutôt car ce n'est pas la première fois que j'y suis confronté!

En fait après avoir ouvert le premier fichier la macro restait sur le premier fichier ActualV1 donc c'est normal qu'elle ne trouve pas la V2 à ouvrir, j'ai donc ajouté vers la fin de la loop un retour sur le fichier de base Maj Amortissement2

Code: 
Do While Cells(LL, CC) <> "FIN"
    'Determination du fichier
    NomFichierF = Cells(LL, CC)
    
    CheminF = "C:\Documents and Settings\127003409\Desktop\Action en cours\New Methode AMORTISSEMENT\"
    Workbooks.Open Filename:=CheminF & NomFichierF

'On retourne sur le fichier MAJ Amortissement et la feuille Source qui détient les noms des fichiers suivant.
Windows("MAJ Amortissement2.xls").Activate
Sheets("Source").Select

    'Ligne suivante
    LL = LL + 1

Tout est rentré dans l'ordre et je peux avancer

Bonne journée 😀
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Bonjour Malone,

Plus simple, plus rapide:

Sans oublier les . (point) devant les "Cells" (à défaut de les mettre sur les i😀)

ThisWorkbook référence le classeur qui contient la macro.
Code: 
'Travaille à partir de ce classeur et de sa feuille "Source"
With ThisWorkBook.Sheets("Source")
Do While .Cells(LL, CC) <> "FIN"
    'Determination du fichier
    NomFichierF = .Cells(LL, CC)
    
    CheminF = "C:\Documents and Settings\127003409\Desktop\Action en cours\New Methode AMORTISSEMENT\"
    Workbooks.Open Filename:=CheminF & NomFichierF



    'Ligne suivante
    LL = LL + 1
    
Loop
End With

A+
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Hello,

J'ai un problème dans ma macro, comme la macro est censé ouvrir différent fichier je dois redéfinir les fichiers à ouvrir avec la variable Nomfichier mais lorsque je fait :
Windows("NomFichierF").Activate
Cela ne fonctionne pas car la macro crois qu'il faut ouvrir une fichier qui se nomme NomFichierF.xls

J'ai essayé de faire un concatener de "&NomFichierF&" et créé une seconde variable NomFichierF2 = "&NomFichierF&" pour ouvrir Windows("NomFichierF2").Activate

mais ça ne passe pas évidement. Le problème est qu'il manque les guillements pour que la macro comprenne

J'espère avoir été clair dans mes explications

merci de votre aide
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Je crois que le problème vient d'autre part car excel rajoute automatiquement les guillements à une variable, je creuse un peu...

C'est bon j'ai trouvé, ça bugais à cause d'une condition non remplie
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Bonsoir Malone,

Je ne comprends pas bien ce que tu voulais car lorsque tu fais:

Code: 
 Workbooks.Open Filename:=CheminF & NomFichierF
Le classeur devient actif donc pas besoin d'activer sa fenêtre, normalement.

Sinon la syntaxe pour
Code: 
Windows("NomFichierF").Activate
c'est:
Code: 
Windows(NomFichierF).Activate
Sans les guillemets, tout simplement.
A+
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Salut Hasco,

Effectivement c'est ce que j'ai fais par la suite, le problème c'est qu'une fois arrivé sur la variable "mois" aucune valeur ne s'incrémentait alors qu'avant que je ne combine deux codes cela fonctionnait très bien. En remplacant "mois" par "moisval" ça foncionne.

Je ne sais pas si le problème vient du fait que certaines variables soient programmées dans VBA. Je me rappel qu'une fois j'ai nommé une variable "date" pour une msgbox et lorsque je saisissait une date mon horloge windows changeait aussi !

Bonne journée 😉
 
Vote positif 0 Vote négatif
Re : Besoin d'aide pour une macro complexe

Bonjour Malone,

Je ne comprends pas. Nous parlions de NomFichierF et maintenant tu me parle de "mois"!????😕

Ce qui est sûr c'est que vba n'aime pas qu'on donne à une variable ou une macro ou fonction (ou autre) un mot réservé du langage comme Date...

A+
 
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

P
  • Résolu(e)
Microsoft 365 Besoin d'aide présentation fichier suivi tâches réalisés / formule
Réponses
8
Affichages
210
prodigy755
P
B
  • Question Question
XL 2021 [Résolu] Date de départ et calcul des jours ouvrés
Réponses
4
Affichages
137
Bibinaire
B
M
  • Question Question
Microsoft 365 besoin d'aide pour une formule
Réponses
11
Affichages
314
maroukeyan
M
F
  • Question Question
XL 2019 Besoin d'aide pour gestion d'onglets
2
Réponses
19
Affichages
249
Fidmo
F
S
  • Question Question
Microsoft 365 Extraction de données sans doublon très complexe
Réponses
14
Affichages
698
stephvico
S
D
  • Résolu(e)
Microsoft 365 Modifier formule pour simplifier un calcule de date et comptage categories
2 3
Réponses
37
Affichages
548
Piment
P
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
998
Pac41240
P
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
168
richardlion
A
  • Question Question
XL 2016 Mise à jour stock pour articles avec nomenclature
Réponses
5
Affichages
105
vgendron
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
143
job75
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
412
p56
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
457
BLACKHAYES
M
  • Résolu(e)
XL 2013 Planning perpétuel Excel
2
Réponses
17
Affichages
838
Manutela
M
A
  • Résolu(e)
Microsoft 365 Insérer un résultat dans une cellule d'un tableau
Réponses
5
Affichages
223
Alain 79
A
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
411
AtTheOne
O
  • Question Question
XL 2019 Formulaire vba pour filtrer les données
Réponses
7
Affichages
583
olivier1984
O
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
299
Staple1600
T
  • Question Question
XL 2016 macro pour vider le contenu d'un tableau synthese ( avant d’actualiser par les nouvelles données )
Réponses
7
Affichages
381
TooFatBoy
M
  • Résolu(e)
XL 2016 Résumé de tableau complexe
Réponses
8
Affichages
451
M@xu3L
M
W
  • Question Question
XL 2016 Macro pour remplissage de case automatique
Réponses
2
Affichages
296
Wanou22
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…