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 Boîte de dialogue SaveAs

Boîte de dialogue SaveAs

4 réponses
Avatar
BEAUCHAND
Bonjour à tous,

Je travaille avec Excel 2000.
Je voudrais créer un bouton qui sauvegarde le fichier courant sous un autre
nom et dans un autre répertoire.
Je veux sauvegarder le fichier Tutu.xls qui est dans le répertoire C:\TEST
sous le nom de Toto.xls dans le répertoire G:\NOUVEAU.
En utilisant le code suivant;
ChDrive "G"
ChDir ("G:\NOUVEAU\")
Application.Dialogs(xlDialogSaveAs).Show ("Toto.xls")
La boîte SaveAs s'ouvre et indique bien le nom de fichier Toto.xls mais le
répertoire est toujours le C:\TEST.

Sur une nouvelle feuille qui n'est pas encore enregistrée, le code
fonctionne bien mais quand le fichier est déjà enregistré ça ne fonctionne
plus.

Merci à l'avance!
Signaler un problème avec ce contenu

4 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
jps
bonjour beauchand
cette proc ne serait-elle pas suffisante? es-tu obligé de passer par la
boîte de dialogue?

ThisWorkbook.SaveCopyAs "G:Nouveau" & "toto" & Right(ThisWorkbook.Name, 4)

tu l'exécutes avec ton bouton et roulez petit bolide, non?
jps


"BEAUCHAND" a écrit dans le message de
news:
Bonjour à tous,

Je travaille avec Excel 2000.
Je voudrais créer un bouton qui sauvegarde le fichier courant sous un
autre
nom et dans un autre répertoire.
Je veux sauvegarder le fichier Tutu.xls qui est dans le répertoire C:TEST
sous le nom de Toto.xls dans le répertoire G:NOUVEAU.
En utilisant le code suivant;
ChDrive "G"
ChDir ("G:NOUVEAU")
Application.Dialogs(xlDialogSaveAs).Show ("Toto.xls")
La boîte SaveAs s'ouvre et indique bien le nom de fichier Toto.xls mais le
répertoire est toujours le C:TEST.

Sur une nouvelle feuille qui n'est pas encore enregistrée, le code
fonctionne bien mais quand le fichier est déjà enregistré ça ne fonctionne
plus.

Merci à l'avance!


Avatar
BEAUCHAND
Bonjour JPS,
Je veux que l'utilisateur ai la possibilité de changer le nom du fichier.

Bonne journée!


bonjour beauchand
cette proc ne serait-elle pas suffisante? es-tu obligé de passer par la
boîte de dialogue?

ThisWorkbook.SaveCopyAs "G:Nouveau" & "toto" & Right(ThisWorkbook.Name, 4)

tu l'exécutes avec ton bouton et roulez petit bolide, non?
jps


"BEAUCHAND" a écrit dans le message de
news:
Bonjour à tous,

Je travaille avec Excel 2000.
Je voudrais créer un bouton qui sauvegarde le fichier courant sous un
autre
nom et dans un autre répertoire.
Je veux sauvegarder le fichier Tutu.xls qui est dans le répertoire C:TEST
sous le nom de Toto.xls dans le répertoire G:NOUVEAU.
En utilisant le code suivant;
ChDrive "G"
ChDir ("G:NOUVEAU")
Application.Dialogs(xlDialogSaveAs).Show ("Toto.xls")
La boîte SaveAs s'ouvre et indique bien le nom de fichier Toto.xls mais le
répertoire est toujours le C:TEST.

Sur une nouvelle feuille qui n'est pas encore enregistrée, le code
fonctionne bien mais quand le fichier est déjà enregistré ça ne fonctionne
plus.

Merci à l'avance!







Avatar
jps
alors là, je ne sais plus et passe la main....
désolé
jps

"BEAUCHAND" a écrit dans le message de
news:
Bonjour JPS,
Je veux que l'utilisateur ai la possibilité de changer le nom du fichier.

Bonne journée!


bonjour beauchand
cette proc ne serait-elle pas suffisante? es-tu obligé de passer par la
boîte de dialogue?

ThisWorkbook.SaveCopyAs "G:Nouveau" & "toto" & Right(ThisWorkbook.Name,
4)

tu l'exécutes avec ton bouton et roulez petit bolide, non?
jps


"BEAUCHAND" a écrit dans le message
de
news:
Bonjour à tous,

Je travaille avec Excel 2000.
Je voudrais créer un bouton qui sauvegarde le fichier courant sous un
autre
nom et dans un autre répertoire.
Je veux sauvegarder le fichier Tutu.xls qui est dans le répertoire
C:TEST
sous le nom de Toto.xls dans le répertoire G:NOUVEAU.
En utilisant le code suivant;
ChDrive "G"
ChDir ("G:NOUVEAU")
Application.Dialogs(xlDialogSaveAs).Show ("Toto.xls")
La boîte SaveAs s'ouvre et indique bien le nom de fichier Toto.xls mais
le
répertoire est toujours le C:TEST.

Sur une nouvelle feuille qui n'est pas encore enregistrée, le code
fonctionne bien mais quand le fichier est déjà enregistré ça ne
fonctionne
plus.

Merci à l'avance!









Avatar
Ardus Petus
Pour saisir le nom: Application.GetSaveAsFilename

Cordialement
--
AP

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

alors là, je ne sais plus et passe la main....
désolé
jps

"BEAUCHAND" a écrit dans le message
de news:
Bonjour JPS,
Je veux que l'utilisateur ai la possibilité de changer le nom du fichier.

Bonne journée!


bonjour beauchand
cette proc ne serait-elle pas suffisante? es-tu obligé de passer par la
boîte de dialogue?

ThisWorkbook.SaveCopyAs "G:Nouveau" & "toto" &
Right(ThisWorkbook.Name, 4)

tu l'exécutes avec ton bouton et roulez petit bolide, non?
jps


"BEAUCHAND" a écrit dans le
message de
news:
Bonjour à tous,

Je travaille avec Excel 2000.
Je voudrais créer un bouton qui sauvegarde le fichier courant sous un
autre
nom et dans un autre répertoire.
Je veux sauvegarder le fichier Tutu.xls qui est dans le répertoire
C:TEST
sous le nom de Toto.xls dans le répertoire G:NOUVEAU.
En utilisant le code suivant;
ChDrive "G"
ChDir ("G:NOUVEAU")
Application.Dialogs(xlDialogSaveAs).Show ("Toto.xls")
La boîte SaveAs s'ouvre et indique bien le nom de fichier Toto.xls
mais le
répertoire est toujours le C:TEST.

Sur une nouvelle feuille qui n'est pas encore enregistrée, le code
fonctionne bien mais quand le fichier est déjà enregistré ça ne
fonctionne
plus.

Merci à l'avance!