renomer fichier

Le
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:¬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
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 #4905071
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






Daniel
Le #4905061
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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





Corto
Le #4905031
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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













Daniel
Le #4905011
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"
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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














Daniel
Le #4904951
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" %
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 ma connaissance, le seul moyen est de mettre les macros dans ton
classeur de macros personnelles, après les avoir adaptées.
Daniel
"dav"
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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






















FFO
Le #4904891
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 ma connaissance, le seul moyen est de mettre les macros dans ton classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav"
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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























FFO
Le #4904861
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 ma connaissance, le seul moyen est de mettre les macros dans ton classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav"
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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























dav
Le #4904761
merci pour tout vos conseil

"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 ma connaissance, le seul moyen est de mettre les macros dans ton
classeur
de macros personnelles, après les avoir adaptées.
Daniel
"dav"
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"
Bonjour.
Sur quelle ligne est-ce que ça plante ?
Cordialement.
Daniel
"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:¬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


























Corto
Le #4651251
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

Publicité
Poster une réponse
Anonyme