Erreur de macro sur fermeture avec enregistrement

Le
TITUS
Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même fichier.

Merci d'avance
Cordialement
TITUS
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4810241
Salut TITUS

Rajoute en début de code cette ligne :

Application.DisplayAlerts = False

Celà devrait faire

Dis moi !!!


Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même fichier.

Merci d'avance
Cordialement
TITUS


TITUS
Le #4810201
Désolée mais ca plante EXCEL.
J'ai positionner le texte après
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Me suis-je trompée !



Salut TITUS

Rajoute en début de code cette ligne :

Application.DisplayAlerts = False

Celà devrait faire

Dis moi !!!


Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même fichier.

Merci d'avance
Cordialement
TITUS




jps
Le #4810181
bonjour titus
en ajoutant ce texte après la ligne Private Sub.....

On Error Resume Next

peut-être que cela ira mieux
jps

"TITUS"
Désolée mais ca plante EXCEL.
J'ai positionner le texte après
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Me suis-je trompée !



Salut TITUS

Rajoute en début de code cette ligne :

Application.DisplayAlerts = False

Celà devrait faire

Dis moi !!!


Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom
obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même
fichier.

Merci d'avance
Cordialement
TITUS






MichDenis
Le #4810071
Il y a une problématique avec la façon que tu as choisi pour écrire ton code.

A ) Quand tu écris Sheets("DEVIS") ... sans faire référence directement
au classeur contenant la feuille ainsi appelée, la feuille retenue est réputée
faire parti du classeur dans lequel le code est écrit. Ce classeur n'est pas
nécessairement le classeur actif. Pour ce faire, tu peux adapter la correction
que j'ai apportée à ton code.

B ) Quand tu utilises ceci : With ActiveWorkbook
Tu dois t'assurer que le classeur actif est réellement celui qui contient
la feuille nommée car c'est dans 2 cellules de celle-ci que se retrouvent
les éléments du nom de l'enregistrement du classeur
Ce n'est pas évident lorsque plusieurs classeurs sont ouverts.

Si possible, pourquoi ne pas utiliser le nom du classeur
With Workbooks("SonNom.xls") et le reste de la macro.


'-----------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Ces symboles ne peuvet apparaître dans le nom
'du fichier ... tu dois t'assurer qu'ils ne sont
'pas présent dans les cellules E2 et A2

'caractères défendus : > , < , | , / , , * , ?

'Au besoin, tu ajoutes un bout de code pour t'assurer que les
'caractères énoncés sont absents du nom du fichier.

With ActiveWorkbook
.SaveAs Filename:="\lag1publicDevis_Dentaires" _
& .Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") _
& "_" & .Sheets("DEVIS").[A2] & ".xls"
End With

ThisWorkbook.Saved = True

End Sub
'-----------------------------------






"TITUS"
Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même fichier.

Merci d'avance
Cordialement
TITUS
TITUS
Le #4810051
c'est bon JPS

Merci beaucoup*
TITUS


bonjour titus
en ajoutant ce texte après la ligne Private Sub.....

On Error Resume Next

peut-être que cela ira mieux
jps

"TITUS"
Désolée mais ca plante EXCEL.
J'ai positionner le texte après
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Me suis-je trompée !



Salut TITUS

Rajoute en début de code cette ligne :

Application.DisplayAlerts = False

Celà devrait faire

Dis moi !!!


Bonjour à tous,

J'ai une macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs _
Filename:="\lag1publicDevis_Dentaires" _
& Sheets("DEVIS").[E2] & "_" & Format(Date, "yymmdd") & "_" &
Sheets("DEVIS").[A2] & ".xls"
ThisWorkbook.Saved = True
End Sub
qui me permet d'enregistrer directement le fichier avec un nom
obligatoire.

Le problème se situe au moment ou on ouvre une seconde fois le fichier.
Qaund on le ferme l'erreur macro apparaît "Erreur d'exécution '1004'.
Comment puis éviter ce message avec ou sans enregistrement du même
fichier.

Merci d'avance
Cordialement
TITUS










MichDenis
Le #4810041
| On Error Resume Next

Si je peux me permettre JPS, cette ligne de code doit être
utilisé seulement et seulement si on a identifié le type d'erreur
susceptible de se produire par le code que l'on a écrit et
que l'on s'est assuré que l'erreur produite n'aurait pas d'incidence
sur l'exécution du reste du code de la procédure !!!

Dans le cas de cette ficelle, tu ne pourras jamais faire enregistrer
à excel un fichier dont le nom contient au moins un caractère
défendu > < | / * ? même si tu utilises ta commande.

Voir autre réponse sur le fil pour plus d'informations.
jps
Le #4809821
bien sûr que tu peux te permettre, denis....
moi, j'ai compris que l'enregistrement (SaveAs) du classeur se faisait bien
la première fois
("qui me permet d'enregistrer directement le fichier avec un nom
obligatoire" dixit Titus) mias que le problème se situait à la fermeture du
classeur ouvert une seconde fois ( "Le problème se situe au moment ou on
ouvre une seconde fois le fichier. Qaund on le ferme l'erreur macro apparaît
"Erreur d'exécution '1" redixit Titus)
je me suis dit alors qu'excel ne comprenait pas qu'on puisse SaveAs un
classeur déjà SavéAs!!!
et il semble que Titus soit content de mon chibrelot
que demande le peuple?
jps

"MichDenis"
| On Error Resume Next

Si je peux me permettre JPS, cette ligne de code doit être
utilisé seulement et seulement si on a identifié le type d'erreur
susceptible de se produire par le code que l'on a écrit et
que l'on s'est assuré que l'erreur produite n'aurait pas d'incidence
sur l'exécution du reste du code de la procédure !!!

Dans le cas de cette ficelle, tu ne pourras jamais faire enregistrer
à excel un fichier dont le nom contient au moins un caractère
défendu > < | / * ? même si tu utilises ta commande.

Voir autre réponse sur le fil pour plus d'informations.




MichDenis
Le #4809721
Que Titus soit content tant mieux. ! , la façon d'écrire
son code est alambiquée pour demeurer poli.
Tu copies cette macro dans le THISWORKBOOK DU CLASSEUR
DE LA FENÊTRE VBA et tu Exécutes cette macro :

Sub Test()
Msgbox sheets(1).name
End sub

A ) Si tu as un classeur ouvert, elle te retourne le nom de l'onglet
de la première feuille du classeur où le code est écrit

B ) insère un autre classeur avec un nom différent de l'onglet
de la première feuille du classeur qui était ouvert. Assure-toi
que c'est le nouveau classeur qui est actif et exécutes à nouveau
la macro, il continue d'afficher le nom de la feuille du classeur où
la macro a été écrite.

Pourquoi ? Parce que tu es, comme la procédure à titus, dans le module
de classe ThisWorkbook (Ce module c'est l'objet représentant le classeur lui-même)
dans un tel cas, les objets dont les références sont incomplètes sont réputées
appartenir au classeur dans lequel le code est écrit contrairement au
module standard.

;-)))
C'est le même ostie de truc que les Range() qui sont écrits dans des modules
feuillles. Pour signifier une plage de cellules qui appartient à un autre feuille
il faut ajouter à la plage le nom de la feuille à laquelle appartient la plage de cellules.

IL n'en demeure pas moins vrai que la ligne de code "On error resume next"
se doit d'être utilisé seulement et seulement si on SAIT le type d'erreur que
la procédure est sensé rencontrer.
jps
Le #4809711
danke sehr, mein Obersturmführer
Herr jps von Peaucholais

"MichDenis"
Que Titus soit content tant mieux. ! , la façon d'écrire
son code est alambiquée pour demeurer poli.
Tu copies cette macro dans le THISWORKBOOK DU CLASSEUR
DE LA FENÊTRE VBA et tu Exécutes cette macro :

Sub Test()
Msgbox sheets(1).name
End sub

A ) Si tu as un classeur ouvert, elle te retourne le nom de l'onglet
de la première feuille du classeur où le code est écrit

B ) insère un autre classeur avec un nom différent de l'onglet
de la première feuille du classeur qui était ouvert. Assure-toi
que c'est le nouveau classeur qui est actif et exécutes à nouveau
la macro, il continue d'afficher le nom de la feuille du classeur où
la macro a été écrite.

Pourquoi ? Parce que tu es, comme la procédure à titus, dans le module
de classe ThisWorkbook (Ce module c'est l'objet représentant le classeur
lui-même)
dans un tel cas, les objets dont les références sont incomplètes sont
réputées
appartenir au classeur dans lequel le code est écrit contrairement au
module standard.

;-)))
C'est le même ostie de truc que les Range() qui sont écrits dans des
modules
feuillles. Pour signifier une plage de cellules qui appartient à un autre
feuille
il faut ajouter à la plage le nom de la feuille à laquelle appartient la
plage de cellules.

IL n'en demeure pas moins vrai que la ligne de code "On error resume next"
se doit d'être utilisé seulement et seulement si on SAIT le type d'erreur
que
la procédure est sensé rencontrer.




MichDenis
Le #4809541
| danke sehr, mein Obersturmführer

Ok, je m'en vais me perdre dans la nature !
Ça risque que d'être long, le territoire est grand.
;-)
Publicité
Poster une réponse
Anonyme