Sauvegarde d'une application sur clé USB

Bonjour,

J’ai créé une petite application en VBA mais j’ai un gros problème avec la gestion des Classeurs (ouverture, fermeture, activation, copie d’un classeur vers un autre etc . . . )

Mon problème pratique est le suivant :
L’application est dans le Classeur « ESCAPADES » situé sur le bureau : C:\Users\Utilisateur\Desktop\ESCAPADES.xlsm
A chaque sortie de l’application je veux que le classeur (mis à jour) soit sauvegardé sur clé USB : F:\ESCAPADES_ « Date du jour ».xlsm
Il me faut donc une macro dans le Classeur « ESCAPADES » situé sur le bureau qui fasse :
1) Supression dans la clé USB de F:\ESCAPADES_ « Date du jour ».xlsm
2) Copie sur la clé USB de C:\Users\Utilisateur\Desktop\ESCAPADES.xlsm en lui rajoutant la date du jour pour que le classeur sur la clé USB s’appelle :
F:\ESCAPADES_ « New_Date du jour ».xlsm

Je ne sais pas gérer tout cela. J’ai navigué dans Internet et dans le forum. J’ai vu plein de choses, mais je patauge et n’y arrive pas.

Merci de me donner des pistes.

Cordialement

Bonjour

Citation:

---

Je ne sais pas gérer tout cela. J’ai navigué dans Internet et dans le forum. J’ai vu plein de choses, mais je patauge et n’y arrive pas.

---

Navigue moins sur la toile et un peu plus dans ton aide interne VBA --->> rubrique Workbook.SaveCopyAs, méthode

Bonsoir unparia

Après recherches, voilà le code que j'ai créé et qui semble fonctionner . . .

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ESCAPADES_CLASSEUR_SAUVE_SUR_CLE_USB() ' Dim CleUsb As String CleUsb = "F:\ESCAPADES.xlsm" ' Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs CleUsb Application.Quit ' End Sub

---

Mais d'une part, je n'ai pas changé le nom du classeur sauvegardé sur clé USB et d'autre part j'ai le pressentiment qu'il manque des choses du genre classeur ouvert et pas fermé . . . .

Cordialement

Citation:

---

Mais d'une part, je n'ai pas changé le nom du classeur sauvegardé sur clé USB

---

Pourquoi ? Quelqu'un bte l'aurait interdit ? Dénonce-le donc ! ;)
Ne me dis pas que tu ne sais pas construire la chaîne de caractères "F:\ESCAPADES_ & date & ".xlsm", hein ... (ce serait le pompon, là ...)

Citation:

---

d'autre part j'ai le pressentiment qu'il manque des choses du genre classeur ouvert et pas fermé

---

M'étonnerait fort qu'il en reste un ouvert après avoir carrément quitté l'application Excel ...

Bonjour,

si je n'ai pas utilisé la chaîne de caractères "F:\ESCAPADES_ & date & ".xlsm" c'est que quand je le fais, j'ai cette erreur là :

Pièce jointe 321495

Mais je suis sans doute encore plus bête qu'il n'y paraît.

Cordialement

Bonjour
Et tu ne vois par pourquoi ? Vraiment ?
Ecris donc

Code:

---

msgbox date

---

pour voir son format par défaut
Tu ne vois toujours pas ? ---> essaie donc (depuis l'explorateur) de renommer un fichier en y insérant un "/" :D
Là, vraiment .....

Windows n'aime pas les / dans les noms de fichier.

Code:

---

CleUsb = "F:\ESCAPADES_" & Format(Now(), "yymmdd") & ".xlsm"

---

Merci unparia,

particulièrement de ta patience . . . j'avais oublié que "/" et d'autres caractères sont bannis dans ce cas.
A 75 ans, les neurones ont quelques fois des absences.

Cordialement

Citation:

---

A 75 ans, les neurones ont quelques fois des absences.

---

J'ai alors de la chance. Les miens sont toujours présents au mien, d'âge ! :lol:
Les muscles et les articulations : moins qu'avant, mais les neurones, eux, sont toujours là ...