message d'erreur demandé

Bonjour à tous


dans le fichier joint je désire enregistrer une copie de mon fichier sur un lecteur externe (ici "L")
je désire aussi que la macro enregistre le fichier avec le nom du fichier mêm si celui ci est renommé (activeworkbook.name) ne selmble pas fonctionner

et surtout je voudrais une msgbox qui m'indique que le lecteur externe n'est pas connecté pour lke cas ouil ne le serait pas



D'avance je remercie tous ceux (et celles) qui voudraient bien m'aider

A+

Citation:

---

Envoyé par sylvain591

et surtout je voudrais une msgbox qui m'indique que le lecteur externe n'est pas connecté pour lke cas ouil ne le serait pas

---

Je ne réponds qu'à cette question. (l'autre est vraiment simple...)

voilà une méthode parmi d'autres :

Code:

---

1 2 3

Dim mon_lecteur As String mon_lecteur = "e:" MsgBox "le lecteur " & mon_lecteur & " est-il bien connecté ? : " & alors(mon_lecteur)

---

et, la fonction appelée :

Code:

---

1 2 3 4 5 6 7

Private Function alors(drv As String) As Boolean alors = False On Error Resume Next If Dir(drv, vbVolume) <> "" Then alors = True End If End Function

---

Merci ucfoutu mais pour moi rien n'est simple

je te mets mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub sauvgarde1()     Dim Chemin As String, Fichier As String   Chemin = "L:\Dossier Archivage"     Fichier = actviveworkbook.Name 'On Error Resume Next ActiveWorkbook.SaveCopyAs Chemin & Fichier   'MsgBox "erreur" 'Next 'MsgBox "erreur"   End Sub

---

qui ne fonctionne pas!

si tu peux y jeter un coup d'œil ce serait sympa

Merci

Re,

Ne me prends pas pour un "sauvage", Sylvain,
Mais, là, je préfère que tu apprennes à pêcher un peu (c'est pour ton bien) !
1) tu as ton aide en ligne à consulter, sur ta machine ...
Même sans (je ne suis actuellement pas sur une machine équipée d'Excel, par exemple...). Regarde :
http://msdn.microsoft.com/en-us/libr...as(VS.80).aspx
2) il te faut apprendre à développer certains réflexes...
Par exemple, un seul Msgbox ici :
Dim Chemin As String, Fichier As String

Code:

---

1 2 3 4 5

Chemin = "L:\Dossier Archivage" Fichier = actviveworkbook.Name msgbox Chemin & Fichier ' <<<<<<====== ici 'On Error Resume Next ActiveWorkbook.SaveCopyAs Chemin & Fichier

---

devrait te faire comprendre certaines choses... et ... réagir...;)
Amitiés