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
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
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
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
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
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
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
Oui.
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
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
Oui.
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
il ya une solution pour eviter de mettre le nom du fichier dans ma macro?
Oui.
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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
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
Application.Run "retard.xls!auto_open"
et dans ce cas, tu n'auras plus de problème pour renommer ton fichier.
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
Application.Run "retard.xls!auto_open"
et dans ce cas, tu n'auras plus de problème pour renommer ton fichier.
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23dzDOCXvHHA.3772@TK2MSFTNGP05.phx.gbl...
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" <palais.pates@wanadoo.fr> a écrit dans le message de news:
uFx0b9WvHHA.3556@TK2MSFTNGP02.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
Application.Run "retard.xls!auto_open"
et dans ce cas, tu n'auras plus de problème pour renommer ton fichier.
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
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
"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
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
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23dzDOCXvHHA.3772@TK2MSFTNGP05.phx.gbl...
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" <palais.pates@wanadoo.fr> a écrit dans le message de news:
uFx0b9WvHHA.3556@TK2MSFTNGP02.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
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
"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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23dzDOCXvHHA.3772@TK2MSFTNGP05.phx.gbl...
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" <palais.pates@wanadoo.fr> a écrit dans le message de news:
uFx0b9WvHHA.3556@TK2MSFTNGP02.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23dzDOCXvHHA.3772@TK2MSFTNGP05.phx.gbl...
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" <palais.pates@wanadoo.fr> a écrit dans le message de news:
uFx0b9WvHHA.3556@TK2MSFTNGP02.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Oo4BkpWvHHA.3772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"dav" <palais.pates@wanadoo.fr> a écrit dans le message de news:
OoFgHUWvHHA.2040@TK2MSFTNGP03.phx.gbl...
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
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
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 :
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 :
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 :