isabelle a donné une solution très explicative, après avoir suivi la
procédure, j'ai en retour :
erreur de compilation - erreur de syntaxe.
La première line est pointée en jaune
-------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = _ ThisWorkbook.FullName & "[" &
ActiveSheet.Name & "]"
ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant
impression
End Sub
-----------------------------------------------------------------------------------------------------
J'ai fais un copier/coller
Attention que j'ai Excel 2000
--
Amicalement JJP :-)
Adresse anti-spam.
Pour répondre ou m'écrire personnellement, cliquez sur le lien :
http://cerber mail.com/?ShN9MCtgj7 (enlever l'espace)
ou
http://mailfusible.com/?ShN9MCtgj7
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne "Visualiser le code" une fenetre souvre et j'ai : ---------------------------------------------------------------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne
"Visualiser le code" une fenetre souvre et j'ai :
----------------------------------------------------------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne "Visualiser le code" une fenetre souvre et j'ai : ---------------------------------------------------------------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
J'ai toujours une erreur de compilation ? --------------------------------------------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterFooter = _ ThisWorkbook.FullName & "[" & ActiveSheet.Name & "]" ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant impression End Sub --------------------------------------------------------------------------------------------------------------------------------------
C'est pas grave, pour une fois que je veux avancer dans Excel ......
Bonne nuit ...
@+ JJP
......
La deuxiemme ligne est en rouge et le curseur est sur le _
[Excel 2000 --- Microsoft Office 2000 Premium]
Je vais voir avec OpenOffice si c'est pas mieux.
Merci encore .....
Caractère incorrect
Le caractère ne peut pas être utilisé dans le contexte en cours. Cause et solution de cette erreur :
a.. Vous avez probablement utilisé un caractère incorrect, notamment un crochet ou un trait d'union, au sein d'un nom de variable. Comparez l'orthographe du nom avec sa déclaration.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1 (sous Windows) ou sur AIDE (sur Macintosh).
Bonjour Isabelle,
OK c'est bon.
Merci.
@+ JJP
> bonjour Jean-Jacques,
je voie qu'il y a un caractere "under Score" en trop dans la ligne de
code
voici la correction :
J'ai toujours une erreur de compilation ?
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = _ ThisWorkbook.FullName & "[" &
ActiveSheet.Name & "]"
ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant
impression
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
C'est pas grave, pour une fois que je veux avancer dans Excel ......
Bonne nuit ...
@+
JJP
......
La deuxiemme ligne est en rouge et le curseur est sur le _
[Excel 2000 --- Microsoft Office 2000 Premium]
Je vais voir avec OpenOffice si c'est pas mieux.
Merci encore .....
Caractère incorrect
Le caractère ne peut pas être utilisé dans le contexte en cours.
Cause et solution de cette erreur :
a.. Vous avez probablement utilisé un caractère incorrect, notamment
un crochet ou un trait d'union, au sein d'un nom de variable.
Comparez l'orthographe du nom avec sa déclaration.
Pour plus d'informations, sélectionnez l'élément en question et
appuyez sur F1 (sous Windows) ou sur AIDE (sur Macintosh).
J'ai toujours une erreur de compilation ? --------------------------------------------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterFooter = _ ThisWorkbook.FullName & "[" & ActiveSheet.Name & "]" ThisWorkbook.PrintPreview ' cette ligne demande un Aperçue avant impression End Sub --------------------------------------------------------------------------------------------------------------------------------------
C'est pas grave, pour une fois que je veux avancer dans Excel ......
Bonne nuit ...
@+ JJP
......
La deuxiemme ligne est en rouge et le curseur est sur le _
[Excel 2000 --- Microsoft Office 2000 Premium]
Je vais voir avec OpenOffice si c'est pas mieux.
Merci encore .....
Caractère incorrect
Le caractère ne peut pas être utilisé dans le contexte en cours. Cause et solution de cette erreur :
a.. Vous avez probablement utilisé un caractère incorrect, notamment un crochet ou un trait d'union, au sein d'un nom de variable. Comparez l'orthographe du nom avec sa déclaration.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1 (sous Windows) ou sur AIDE (sur Macintosh).
Bonjour Isabelle,
OK c'est bon.
Merci.
@+ JJP
FS
> C'est cela ?
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le module de la feuille. Le code proposé se trouve dans le module du classeur (ThisWorkbook). Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche de l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur, déroule l'"explorateur" Microsoft Excel Objects et double clique sur le module ThisWorkbook pour en afficher le contenu à droite de ton écran. Voilà.
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
Jean-Jacques [JJP] a écrit :
Imprime la feuille 1 et va voir le code... Je l'ai testé avec Excel 2000, ça devrait marcher chez toi.
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne "Visualiser le code" une fenetre souvre et j'ai : ----------------------------------------------------------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le
module de la feuille. Le code proposé se trouve dans le module du
classeur (ThisWorkbook).
Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche de
l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur, déroule
l'"explorateur" Microsoft Excel Objects et double clique sur le module
ThisWorkbook pour en afficher le contenu à droite de ton écran.
Voilà.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Jean-Jacques [JJP] a écrit :
Imprime la feuille 1 et va voir le code...
Je l'ai testé avec Excel 2000, ça devrait marcher chez toi.
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne
"Visualiser le code" une fenetre souvre et j'ai :
----------------------------------------------------------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le module de la feuille. Le code proposé se trouve dans le module du classeur (ThisWorkbook). Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche de l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur, déroule l'"explorateur" Microsoft Excel Objects et double clique sur le module ThisWorkbook pour en afficher le contenu à droite de ton écran. Voilà.
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
Jean-Jacques [JJP] a écrit :
Imprime la feuille 1 et va voir le code... Je l'ai testé avec Excel 2000, ça devrait marcher chez toi.
..... heu .. quel est le message que tu veux passer ....
%-(
JJP
Oui, j'ai bien en bas de page (centré) la localisation du fichier.
Mais pour le code, je clic droit sur l'onglet et je sélectionne "Visualiser le code" une fenetre souvre et j'ai : ----------------------------------------------------------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le module de la feuille. Le code proposé se trouve dans le module du classeur (ThisWorkbook). Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche de l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur, déroule l'"explorateur" Microsoft Excel Objects et double clique sur le module ThisWorkbook pour en afficher le contenu à droite de ton écran. Voilà.
FS
OK merci.
@+ JJP
>> C'est cela ?
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le
module de la feuille. Le code proposé se trouve dans le module du
classeur (ThisWorkbook).
Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche
de l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur,
déroule l'"explorateur" Microsoft Excel Objects et double clique sur
le module ThisWorkbook pour en afficher le contenu à droite de ton
écran. Voilà.
Non. Quand tu cliques sur l'onglet de la feuille tu arrives dans le module de la feuille. Le code proposé se trouve dans le module du classeur (ThisWorkbook). Pour le visualiser, depuis Excel appuie sur Alt+F11, repère à gauche de l'éditeur de code (fenêtre 'Projet-') le VBAProject du classeur, déroule l'"explorateur" Microsoft Excel Objects et double clique sur le module ThisWorkbook pour en afficher le contenu à droite de ton écran. Voilà.
