Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel renomer fichier

renomer fichier

9 réponses
Avatar
dav
bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec un
autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:=ActiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille
Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents
Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents
Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub
Signaler un problème avec ce contenu

9 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
FFO
Salut dav
Ta macro fonctionne trés bien
qu'entends tu pas renommer le fichier avec un autre nom ???
Peux tu préciser ou donner un exemple

Dans l'attente des précisions


bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec un
autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille
Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents
Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents
Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub






Avatar
Daniel
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec un
autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub





Avatar
Corto
Bonjour dav,

il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
Oui.


Au lieu de "retard.xls" tu mets ThisWorkbook.Name

Corto


voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais un
copier coller de mon fichier il est renommé copie retard, et le macro qui
pose probleme c'est celui que j'ai fais avec l'enregistrer. le suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec
un autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub













Avatar
Daniel
A ma connaissance, le seul moyen est de mettre les macros dans ton classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav" a écrit dans le message de news:

voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais un
copier coller de mon fichier il est renommé copie retard, et le macro qui
pose probleme c'est celui que j'ai fais avec l'enregistrer. le suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec
un autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub














Avatar
Daniel
En fait, la syntaxe n'est correcte que parce que le fichier "retard.xls" est
ouvert. Si la macro "trefunzioni" se trouve aussi dans le fichier
"retard.xls", il suffit de mettre :
jj
proteger
auto_open
au lieu de :
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open
Application.Run "retard.xls!auto_open"
et dans ce cas, tu n'auras plus de problème pour renommer ton fichier.



Daniel
"dav" a écrit dans le message de news:
%
merci et vous pourriez m'expliquer pourquoi si je remplace le nom du
fichier dans la macro (copie retard) la macro ne marche pas
merci
"Daniel" a écrit dans le message de news:
%
A ma connaissance, le seul moyen est de mettre les macros dans ton
classeur de macros personnelles, après les avoir adaptées.
Daniel
"dav" a écrit dans le message de news:

voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais
un copier coller de mon fichier il est renommé copie retard, et le macro
qui pose probleme c'est celui que j'ai fais avec l'enregistrer. le
suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma
macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier
avec un autre nom le macro ne marche plus. Comment faire pour eviter
cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est
déjà existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub






















Avatar
FFO
Rebonjour dav
de mettre

Application.Run "Copie_de_retard.xls!jj"

merci et vous pourriez m'expliquer pourquoi si je remplace le nom du fichier
dans la macro (copie retard) la macro ne marche pas
merci
J'ai constaté la même difficulté et aprés analyse l'instruction

Application.run ne digère pas dans l'identification du classeur un quelconque
blanc
Ainsi si

Application.Run "retard.xls!jj"

Fonctionne

Application.Run "Copie de retard.xls!jj"

Ne fonctionne pas a moind
"Daniel" a écrit dans le message de news:
%
A ma connaissance, le seul moyen est de mettre les macros dans ton classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav" a écrit dans le message de news:

voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais un
copier coller de mon fichier il est renommé copie retard, et le macro qui
pose probleme c'est celui que j'ai fais avec l'enregistrer. le suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec
un autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub























Avatar
FFO
Rebonjour dav

Je viens enfin de découvrir la subtilité de cet instruction
En fait il faut en plus des guillemets qui englobent le nom du document
excel et celui de la macro
baliser le nom du document avec ou sans son chemin de petite cotes
Ainsi pour la copie il faut mettre exactement ceci :

Application.Run "'Copie de retard.xls'!jj" (bien mettre 'Copie de retard.xls')

Celà enfin fonctionne !!!!

Ce qui me permet de te proposer une solution pour ta problématique de ton
fichier et de sa copie
Par l'intermédiaire de ce code :

For i = 1 To Workbooks.Count
If Workbooks(i).Name = "retard.xls" Then
Application.Run "'retard.xls'!jj"
Application.Run "'retard.xls'!proteger"
Application.Run "'retard.xls'!auto_open"
End If
If Workbooks(i).Name = "Copie de retard.xls" Then
Application.Run "'Copie de retard.xls'!jj"
Application.Run "'Copie de retard.xls'!proteger"
Application.Run "'Copie de retard.xls'!auto_open"
End If
Next


Celà devrait te convenir

Dis moi !!!!


merci et vous pourriez m'expliquer pourquoi si je remplace le nom du fichier
dans la macro (copie retard) la macro ne marche pas
merci
"Daniel" a écrit dans le message de news:
%
A ma connaissance, le seul moyen est de mettre les macros dans ton classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav" a écrit dans le message de news:

voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais un
copier coller de mon fichier il est renommé copie retard, et le macro qui
pose probleme c'est celui que j'ai fais avec l'enregistrer. le suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier avec
un autre nom le macro ne marche plus. Comment faire pour eviter cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub























Avatar
dav
merci pour tout vos conseil

"FFO" a écrit dans le message de news:

Rebonjour dav

Je viens enfin de découvrir la subtilité de cet instruction
En fait il faut en plus des guillemets qui englobent le nom du document
excel et celui de la macro
baliser le nom du document avec ou sans son chemin de petite cotes
Ainsi pour la copie il faut mettre exactement ceci :

Application.Run "'Copie de retard.xls'!jj" (bien mettre 'Copie de
retard.xls')

Celà enfin fonctionne !!!!

Ce qui me permet de te proposer une solution pour ta problématique de ton
fichier et de sa copie
Par l'intermédiaire de ce code :

For i = 1 To Workbooks.Count
If Workbooks(i).Name = "retard.xls" Then
Application.Run "'retard.xls'!jj"
Application.Run "'retard.xls'!proteger"
Application.Run "'retard.xls'!auto_open"
End If
If Workbooks(i).Name = "Copie de retard.xls" Then
Application.Run "'Copie de retard.xls'!jj"
Application.Run "'Copie de retard.xls'!proteger"
Application.Run "'Copie de retard.xls'!auto_open"
End If
Next


Celà devrait te convenir

Dis moi !!!!


merci et vous pourriez m'expliquer pourquoi si je remplace le nom du
fichier
dans la macro (copie retard) la macro ne marche pas
merci
"Daniel" a écrit dans le message de news:
%
A ma connaissance, le seul moyen est de mettre les macros dans ton
classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav" a écrit dans le message de news:

voila j'ai trouvé l'erreur. Mon fichier s'appelle retard quand je fais
un
copier coller de mon fichier il est renommé copie retard, et le macro
qui
pose probleme c'est celui que j'ai fais avec l'enregistrer. le
suivant:
Sub trefunzioni()
'
' trefunzioni Macro
' Macro enregistrée le 17/06/2007 par dav
'

'
Application.Run "retard.xls!jj"
Application.Run "retard.xls!proteger"
Application.Run "retard.xls!auto_open"
il ya une solution pour eviter de mettre le nom du fichier dans ma
macro?
merci

"Daniel" a écrit dans le message de news:

Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" a écrit dans le message de news:

bonjour
j'ai un fichier avec un macro, mais si on veut renommer le fichier
avec
un autre nom le macro ne marche plus. Comment faire pour eviter
cela?
Sub jj()
nom = Format(DateAdd("m", 1, Date), "mmmm") 'determine le nom du
mois
suivant
On Error GoTo erreur 'si la feuille existe déjà
ActiveSheet.Copy after:¬tiveSheet 'copie la feuille en cours
ActiveSheet.Name = nom ' attribue le nom à la feuille

Range("G14:G75,I14:I75,K14:K75,M14:M75,O14:O75,Q14:Q75,S14:S75,U14:U75,W14:W75,Y14:Y75,AA14:AA75,AC14:AC75,AE14:AE75,AG14:AG75,AI14:AI75").ClearContents

Range("AK14,AK14:AK73,AM14:AM75,AO14:AO75,AQ14:AQ75,AS14:AS75,AU14:AU75,AW14:AW75,AY14:AY75,BA14:BA75,BC14:BC75,BE14:BE75,BG14:BG75,BI14:BI75,BK14:BK75,BM14:BM75").ClearContents

Range("BO14,BO14:BO73,BQ14:BQ75,BS14:BS75,BU14:BU75,BW14:BW75,BY14:BY75,CA14:CA75,CC14:CC75,CE14:CE75,CG14:CG75,CI14:CI75,CK14:CK75").ClearContents
Exit Sub ' termine
erreur:
MsgBox "La feuille du mois de " & nom & " que vous demandez est
déjà
existante." ' message
Application.DisplayAlerts = False 'deactive les messages d'alerte

ActiveSheet.Delete ' détruit la feuille intermedière
Application.DisplayAlerts = True ' active les messages d'alerte
End Sub


























Avatar
Corto
Bonjour dav,
merci et vous pourriez m'expliquer pourquoi si je remplace le nom du fichier
dans la macro (copie retard) la macro ne marche pas
quand il y a un espace dans le nom il faut le mettre entre simples quotes :

Application.Run "'copie retard.xls'!jj"
Application.Run "'copie retard.xls'!proteger"
Application.Run "'copie retard.xls'!auto_open"

Corto