Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ajout d'un WorkBook

Ajout d'un WorkBook

11 réponses
Avatar
Papy Jean
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en l'écrivant
sur disque avec SaveAs ?

Merci d'avance
Papy Jean
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Pascal Engelmajer
Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?
Dim wb As Workbook

Set wb = Workbooks.Add
wb.SaveAs "monTest.xls"
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en l'écrivant
sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de news:
c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en l'écrivant
sur disque avec SaveAs ?

Merci d'avance
Papy Jean





Avatar
LeSteph
Bonjour,

Plutôt nouveau Classeur que Dossier sans doute.
A priori, sauf autre astuce, il faudra sans doute d'abord
Creer un modèle vide du nom souhaité
Fichier enregistrer sous
Nom: MonClSpecial
Type:Modèle

Ensuite on peut appeler le template ainsi:
Workbooks.Add("MonClSpecial")
MonClSpecial1 sera créé puis si on recommence
MonClSpecial2 etc..

Sinon normalement la propriété name du classeur actif
est en lecture seule. En principe, classeur doit garder
un nom générique style Class3 tant qu'on ne l'a pas enregistré.
Mais c'est très théorique...donc aux amateurs de colles!

Amicalement

LeSteph


"Papy Jean" a écrit dans le message de
news:c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en l'écrivant
sur disque avec SaveAs ?

Merci d'avance
Papy Jean





Avatar
Papy Jean
Bonjour !
Oui, j'm'avais trompé, c'est bien Classeur et pas Dossier
Salutations


"Papy Jean" a écrit dans le message de
news:c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en l'écrivant
sur disque avec SaveAs ?

Merci d'avance
Papy Jean





Avatar
LeSteph
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant



sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de news:
c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean










Avatar
Pascal Engelmajer
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant



sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de news:
c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas
subir



celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean














Avatar
LeSteph
Erreur53

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant



sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de news:
c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas
subir



celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean


















Avatar
Pascal Engelmajer
Salut,
j'ai fais plein d'erreurs en répondant à la volée...
voici testé
Sub nomFichier()
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub
attention que le fichier actif soit bien celui qui est créé
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af3226$0$1748$
Erreur53

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit dans
le



message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant



sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de news:
c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne pas
subir



celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean






















Avatar
LeSteph
Cela donnerait pour être sûr

Sub nouvad()
Set myb = Workbooks.Add
Application.DisplayAlerts = False
myb.Activate


Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub

cela fonctionnne mais on utilise qd même toujours SaveAs quequepart .
L'idée serait de trouver un moyen de garder le fichier en mémoire sans
saveas ,
mais comment modifier sa propriété name s'il n'existe pas...?

@+

LeSteph



"Pascal Engelmajer" a écrit dans le
message de news:%23tDGns$
Salut,
j'ai fais plein d'erreurs en répondant à la volée...
voici testé
Sub nomFichier()
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub
attention que le fichier actif soit bien celui qui est créé
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af3226$0$1748$
Erreur53

LeSteph


"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit dans
le



message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant



sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le
fichier.





Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de
news:





c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne
pas






subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean


























Avatar
Pascal Engelmajer
Salut,
la propriété Name du classeur est en lecture seule...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af56fe$0$30141$
Cela donnerait pour être sûr

Sub nouvad()
Set myb = Workbooks.Add
Application.DisplayAlerts = False
myb.Activate


Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub

cela fonctionnne mais on utilise qd même toujours SaveAs quequepart .
L'idée serait de trouver un moyen de garder le fichier en mémoire sans
saveas ,
mais comment modifier sa propriété name s'il n'existe pas...?

@+

LeSteph



"Pascal Engelmajer" a écrit dans le
message de news:%23tDGns$
Salut,
j'ai fais plein d'erreurs en répondant à la volée...
voici testé
Sub nomFichier()
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub
attention que le fichier actif soit bien celui qui est créé
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af3226$0$1748$
Erreur53

LeSteph


"Pascal Engelmajer" a écrit dans
le



message de news:
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit
dans





le
message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement
qu'en








l'écrivant
sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le
fichier.





Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de
news:





c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et ne
pas






subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement qu'en
l'écrivant


sur disque avec SaveAs ?

Merci d'avance
Papy Jean






























Avatar
LeSteph
Oui! c'est bien là le problème.

Salut


LeSteph

"Pascal Engelmajer" a écrit dans le
message de news:%
Salut,
la propriété Name du classeur est en lecture seule...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af56fe$0$30141$
Cela donnerait pour être sûr

Sub nouvad()
Set myb = Workbooks.Add
Application.DisplayAlerts = False
myb.Activate


Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub

cela fonctionnne mais on utilise qd même toujours SaveAs quequepart .
L'idée serait de trouver un moyen de garder le fichier en mémoire sans
saveas ,
mais comment modifier sa propriété name s'il n'existe pas...?

@+

LeSteph



"Pascal Engelmajer" a écrit dans le
message de news:%23tDGns$
Salut,
j'ai fais plein d'erreurs en répondant à la volée...
voici testé
Sub nomFichier()
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook 'différent de ThisWorkbook qui contient la
procédure
ancienNom = "C:TESTVIEUX.XLS" 'avant le name bien sur
'Application.DisplayAlerts = False
wb.SaveAs ancienNom
wb.Close True
nouveauNom = "C:TESTJEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le fichier.
'peut nécessiter une temporisation pour l'écriture du fichier
' à l'aide d'un on error resume
Set wb = Workbooks.Open(nouveauNom)
Application.DisplayAlerts = True
End Sub
attention que le fichier actif soit bien celui qui est créé
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af3226$0$1748$
Erreur53

LeSteph


"Pascal Engelmajer" a écrit dans
le



message de news:
Salut,
et avec ...
Application.DisplayAlerts = False

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"LeSteph" a écrit dans le message de news:
40af13df$0$30135$
Bonjour Pascal,

Ton exemple m'intéresse mais je ne parviens pas
à le reproduire: j'obtiens la boite de dialogue Enregistrer Sous
sans doute appelée par wb.close... cela revient à SaveAs.
Sinon dans l'essai où crée-t-on le nouveau classeur?
Workbooks.add

LeSteph


"Pascal Engelmajer" a écrit
dans





le
message de news:uJ8$
Y a-t-il moyen de changer le nom d'un WorkBook autrement
qu'en








l'écrivant
sur disque avec SaveAs ?
pas si il est ouvert

il faut le fermer et utiliser Name :
Dim wb As Workbook
Dim ancienNom As String
Dim nouveauNom As String
Set wb = ActiveWorkbook
wb.Close True
ancienNom = "C:TEST1VIEUX.XLS"
nouveauNom = "C:TEST2JEUNE.XLS"
Name ancienNom As nouveauNom ' Déplace et renomme le
fichier.





Set wb = Workbooks.Open(nouveauNon)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou
il







va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Papy Jean" a écrit dans le message de
news:





c8mt6u$tmu$
Bonjour !

en VB, On ajoute un nouveau dossier avec WorkBooks.Add

Comment faire pour choisir le nom de ce nouveau dossier et
ne








pas
subir
celui imposé ?

Question subsidiaire:
Y a-t-il moyen de changer le nom d'un WorkBook autrement
qu'en








l'écrivant
sur disque avec SaveAs ?

Merci d'avance
Papy Jean


































1 2