Discussion :

[Kestion100]

Bonjour,
J'utilise une macro complémentaire (.xlma) pour déclencher des actions à l'enregistrement de tout mes classeurs.

Des classeurs que je sauve, ce qui déclenche ma macro complémentaire (contenue dans un autre classeur .xlma) avec aftersave, je souhaiterais récupérer les:

- chemin du classeur;
- nom du classeur;
- nom de la feuille de calculs (active ou affichée);
- l'adresse de la cellule active;
- la valeur contenue dans la cellule active.

Pour les inscrire dans une cellule d'un autre classeur (différent du classeur sauvegarder et du .xlma).

Aucun problème sauf pour le nom de la feuille de calcul qui est vide (je pense que la macro .xlma ne connaît que les feuilles du classeur .xlma) et mon code plante avec une erreur 91.

Existe-t-il un moyen de remédier à ce problème?


MERCI BEAUCOUP D'AVANCE POUR TOUT COUP DE MAIN!!!!!

[Philippe Tulliez]

Bonjour,
Sans publier le code utilisé dans le fichier xlam, cela va être compliqué de vous aider
Avez-vous essayé d'utiliser les objets ActiveWorkbook, ActiveSheet

[Kestion100]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub xlApp_WorkbookAfterSave(ByVal Wb As Workbook, ByVal Success As Boolean)
    Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("A" & Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("A500000").End(xlUp).Offset(1, 0).Row).Value = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "/" & ActiveCell.Address & "/" & ActiveCell.Value
 
    Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("G" & Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("A500000").End(xlUp).Row).Value = Now
    Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("H" & Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("A500000").End(xlUp).Row).Value = "SAUVEGARDE"
    Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("L" & Workbooks("OutilsRechercheetSuivi2.xlsm").Worksheets("MOUVEMENTS").Range("A500000").End(xlUp).Row).Value = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
 
end sub

Dans le

Code :

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

thisworkbook

du .xlam,

Code :

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

Workbooks("OutilsRechercheetSuivi2.xlsm")

, le classeur de destination.

Code :

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

activecell

fonctionne sans aucun problème

[Kestion100]

Je ne sais pas trop manipuler les objets

[Kestion100]

Il n'y a vraiment aucune piste?

[deedolith]

Salut,

Quand on travaille avec plusieurs classeurs, l'important est de bien savoir de quoi on parle, histoire de ne pas être dépendant du contexte.

Sauf raison justifiées, exit les appels à ActiveWorkbook, ActiveCell; Selection ect ...
Exit les appels à Worksheets, Range, Cells ect ... sans respecter leur parentalité.

Il va te falloir pleinement qualifier les références des objets que tu manipules.
Exemples:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Worksheets("Feuil5").Select    '// Ko, on a aucune garantie que la feuille nommée Feuil5 appartient au classeur actif.
 
'//---------------------------------------------------
 
Dim Ws As Excel.Worksheet
Set Ws = ThisWorkbook.Worksheets("Feuil5")    '// Ok, on référence la feuille nommée Feuil5 du classeur exécutant le code.
 
'//---------------------------------------------------
 
Dim Wb As Excel.Workbook
Set Wb = application.Workbook.Add("c:\.............\MonClasseur.xlsx")    '// Ok, on ouvre un nouveau classeur et récupère sa référence
 
Dim Ws As Excel.Worksheet
Set Ws = Wb.Worksheets("Feuil5")    '// Ok, on référence la feuille nommée Feuil5 du classeur MonClasseur.xlsx

Concernant les données que tu souhaites, à condition que tu aies préalablement récupéré la référence du classeur:
1) chemin du classeur: C'est la propriété Path ou FullName du classeur ciblé.
2) nom du classeur: C'est la propriété Name du classeur ciblé.
3) nom de la feuille de calculs (active ou affichée): Pas trop le choix: ActiveSheet.Name (a condition d'activer le classeur et la feuille).
4) l'adresse de la cellule active: Voir point #3, c'est la propriété Address de l'objet ActiveCell
5) la valeur contenue dans la cellule active: Voir point #3, c'est la propriété Value de l'objet ActiveCell

[Kestion100]

Je comprends ta réponse et vais appliquer mais je crois que ce qui pose problème c'est que tout

Code :

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

activesheet

dans mon code .xlma de ma macro complémentaire fait référence au dit classeur .xlma, non?
ook (Sauf à y faire référence comme tu indiques???? Parce que j'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim wbsh As Worksheet, wbk As Workbook
 
   Set wbk = ActiveWorkbook
 
   Workbooks(wbk.Name).Activate
 
Set wbsh = Workbooks(wbk).Sheets(ActiveSheet.Name)
 
worksheets(wbsh.name).activate

sans plus de succès

qui n'est peut-être pas très précis sur la syntaxe???

[Kestion100]

plante sur

Code :

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

Set wbsh = Workbooks(wbk).Sheets(ActiveSheet.Name)

quand je mets le curseur sur la ligne j'ai

Code :

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

Nothing

[Kestion100]

Pour info, le classeur est déjà ouvert puisque j'essaye de le sauver

[deedolith]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim wbsh As Worksheet, wbk As Workbook        '// Ok, cependant, par soucis de lisibilité, on préférera une déclaration par ligne
Set wbk = ActiveWorkbook        '// Ok
 
'// Workbooks(wbk.Name).Activate        '// Ko et inutile, tu référence déja le classeur actif
 
'// Set wbsh = Workbooks(wbk).Sheets(ActiveSheet.Name)    '// Ko, la méthode Workbooks attend un nom sous forme de châine et non une référence
                                                          '// Idem pour la methode Sheets
                                                          '// ActiveSheet.Name est redondant, utilise directement ActiveSheet
Set wbsh  = ActiveSheet
 
'// worksheets(wbsh.name).activate    '// Ko, wbsh.Name est redondant, utilise directement la méthode Activate de l'objet Worksheet
wbsh.Activate

Question subsidiaire:
Comment est ouvert le classeur ?
il serait préférable de récupérer explicitement la référence vers ce dernier.

[Kestion100]

Ce sont des classeurs qui sont ouverts en permanence sur mon PC, sur lesquels je travaille régulièrement et que je sauvegarde à chaque fois que j'y travaille.

[Kestion100]

En fait, ce sont tous les classeurs sur lesquels je travaille, ceux ouverts en permanence et d'autres que j'ouvre par double clic dans les dossiers quand j'en ai besoin.

A chaque fois que j'enregistre un classeur la macro complémentaire se déclenche.