Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macros Excel.

Macros Excel.

7 réponses
Avatar
Gérard Bourlier
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un nombre
en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur suivant
apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la date
de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail : gerard.bourlier@wanadoo.fr
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
sabatier
bonsoir gérard,
pour ta deuxième question, en VBA, cela peut donner ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B1").Select 'B1 étant la cellule où le texte s'inscrira
ActiveCell.Value = "Dernière mise à jour le " & Format(Date, _
"dd/mm/yyyy")
End Sub

pour la macro complémentaire, c'est peut-être bien ce mot "replace" que
XL 97 ne comprend pas et un plus fort que moi va bientôt te le dire
jps

Gérard Bourlier a écrit:
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un nombre
en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur suivant
apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la date
de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :





--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci

Avatar
Gérard Bourlier
Merci pour ton aide.
Pour ma première question, si cela tente quelqu'un, je peux envoyer la macro
incriminée par Mail.
Gérard

sabatier a écrit dans le message :

bonsoir gérard,
pour ta deuxième question, en VBA, cela peut donner ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B1").Select 'B1 étant la cellule où le texte s'inscrira
ActiveCell.Value = "Dernière mise à jour le " & Format(Date, _
"dd/mm/yyyy")
End Sub

pour la macro complémentaire, c'est peut-être bien ce mot "replace" que
XL 97 ne comprend pas et un plus fort que moi va bientôt te le dire
jps

Gérard Bourlier a écrit:
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un
nombre


en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur
suivant


apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la
date


de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :





--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci




Avatar
sabatier
dis-nous plutôt, gérard, quelle est la ligne qui est en inverse vidéo
(pas en jaune?)
jps

Gérard Bourlier a écrit:
Merci pour ton aide.
Pour ma première question, si cela tente quelqu'un, je peux envoyer la macro
incriminée par Mail.
Gérard

sabatier a écrit dans le message :


bonsoir gérard,
pour ta deuxième question, en VBA, cela peut donner ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B1").Select 'B1 étant la cellule où le texte s'inscrira
ActiveCell.Value = "Dernière mise à jour le " & Format(Date, _
"dd/mm/yyyy")
End Sub

pour la macro complémentaire, c'est peut-être bien ce mot "replace" que
XL 97 ne comprend pas et un plus fort que moi va bientôt te le dire
jps

Gérard Bourlier a écrit:

Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un


nombre


en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur


suivant


apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la


date


de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :





--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci








--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci



Avatar
Denis Michon
Bonjour Gérard,

Pour trouver la date d'enregistrement d'un fichier et obtenir le résultat dans une cellule,

Copie cette fonction dans un module standard :
'------------------------
Function LastSave(Fichier As String)

Dim A As String
A = Dir(Fichier)

If A = "" Then
LastSave = "Fichier non trouvé"
Else
With CreateObject("Scripting.FileSystemObject")
LastSave = .getfile(Fichier).DateLastModified
End With
End If

End Function
'------------------------

Et dans une cellule, tu appelles la fonction de cette manière :

=LastSave("C:ExcelClass1.xls")


Si dans ta macro complémentaire, cette dernière fait usage de la fonction "Replace" ou de la méthode "Replace" de
l'objet "Range", il est compréhensible que tu ais un message d'erreur, puisque cette fonction n'existe pas sur des
versions antérieures à excel 2000. Tu peux ouvrir le code de la macro complémentaire et remplacer "Replace" par
Application.WorksheetFunction.Substitute()...


Salutations!




"Gérard Bourlier" a écrit dans le message de news:bm9ti7$257$
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un nombre
en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur suivant
apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la date
de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :
Avatar
Denis Michon
J'oubliais, tu dois appliquer un format "date" à la cellule qui recevra l'information.


Salutations!


"Denis Michon" a écrit dans le message de news:5i%hb.152556$
Bonjour Gérard,

Pour trouver la date d'enregistrement d'un fichier et obtenir le résultat dans une cellule,

Copie cette fonction dans un module standard :
'------------------------
Function LastSave(Fichier As String)

Dim A As String
A = Dir(Fichier)

If A = "" Then
LastSave = "Fichier non trouvé"
Else
With CreateObject("Scripting.FileSystemObject")
LastSave = .getfile(Fichier).DateLastModified
End With
End If

End Function
'------------------------

Et dans une cellule, tu appelles la fonction de cette manière :

=LastSave("C:ExcelClass1.xls")


Si dans ta macro complémentaire, cette dernière fait usage de la fonction "Replace" ou de la méthode "Replace" de
l'objet "Range", il est compréhensible que tu ais un message d'erreur, puisque cette fonction n'existe pas sur des
versions antérieures à excel 2000. Tu peux ouvrir le code de la macro complémentaire et remplacer "Replace" par
Application.WorksheetFunction.Substitute()...


Salutations!




"Gérard Bourlier" a écrit dans le message de news:bm9ti7$257$
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir un nombre
en texte suivant la monnaie de son choix, je sollicite votre aide car
celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque je
souhaite l'utiliser dans une feuille de calcul, le message d'erreur suivant
apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel, la date
de sa dernière sauvegarde ??? Soit par une fonction ou bien une macro...

D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :
Avatar
Clément Marcotte
http://groups.google.com/groups?ie=UTF-8&oe=UTF-8&as_ugroup=microsoft.public.fr.excel&as_uauthors=bourlier&lr=&hl=fr



"Gérard Bourlier" a écrit dans le message
de news:bm9ti7$257$
Bonjour à Tous,
Ayant récupéré sur un site une Macro Excel qui permet de convertir
un nombre

en texte suivant la monnaie de son choix, je sollicite votre aide
car

celle-ci ne fonctionne pas.
Sous Microsoft Excel 97 :
- après avoir installé NTW.XLA comme macro complémentaire, lorsque
je

souhaite l'utiliser dans une feuille de calcul, le message d'erreur
suivant

apparaît :
- Erreur de compilation : Sub ou Function non définie.
Avec en inverse vidéo "Replace" ???

De plus, comment peut-on afficher dans une feuille de calcul Excel,
la date

de sa dernière sauvegarde ??? Soit par une fonction ou bien une
macro...


D'avance Merci.
Sinon, pouvez-vous me dire où trouver ce genre de Macros.
Gérard BOURLIER
Adresse e-Mail :




Avatar
Clément Marcotte
Sinon, pouvez-vous me dire où trouver ce genre de Macros.


Tu as eu des réponses dès la première fois. À croire que cela ne sert
à rien de répondre.