Discussion :

[pelerin98]

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

[unparia]

Bonjour

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

[pelerin98]

Bonsoir unparia

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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à ...)

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 ...

[pelerin98]

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à :



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

Cordialement

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "/"
Là, vraiment .....