chemin d acces c:\Bureau ne fonctionne pas ?

[rudy dehaudt]

Bonjour,
je voudrais modifier le chemin de déstination : ( G étant une clef USB )
Chemin = "G:\details des bons de commande\"
en :
Chemin = "C:\Bureau\details des bons de commande\"

mais cette modif me donne une erreur ?
pourriez vous m'indiquez la bonne modification à apporté ?

Merci
A+

 

[Pierrot93]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Bonjour,

regarde peut être ceci, espérant que cela puisse t'aider :

Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

bon après midi
@+

 

[rudy dehaudt]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Bonjour, Pierrot93

je viens de taper ton code mais cela me donne une erreur ( la ligne en rouge )
Application.ScreenUpdating = False
Dim chemin As String
chemin = CreateObject("WScript.Shell").specialfolders("Desktop")
chemin = "C:\Bureau\details des bons de commande\"
'Chemin = ThisWorkbook.Path & "\"
Sheets("bon de commande 1").Copy
ActiveSheet.Shapes("CommandButton1").Delete
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin & Feuil5.Range("E15") & Format(Feuil5.Range("G1"), "ddmmyyyy") & " " & Format(Now, "hhmmss")
Application.DisplayAlerts = True
.Close
End With

A+

 

[Pierrot93]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Re,

tu écrase le résultat du code que je t'ai donné par cette instruction....

chemin = "C:\Bureau\details des bons de commande\"

supprime cette ligne....

 

[st007]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Bonjour,
ou bien
C:\Documents and Settings\User\Bureau\details des bons de commande\
pour faire simple

 

[rudy dehaudt]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

je viens de tester les deux proposition,

celle de pierrot93 : crée la feuille concerné mais ne l'enregistre pas de manière automatique ( " l'enregistrement sous "est obligatoire ) et idem pour la proposition de st007 ( "C:\Documents and Settings\User\Bureau\details des bons de commande\"

d'autre idée ?

A+

 

[JCGL]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Bonjour à tous,

Peux-tu essayer :

"C:\Documents and Settings\ICI_tu_mets_ton_profil\Bureau\details des bons de commande\"

A+ à tous

Edition : Salut l'ami Pierrot. Il serait judicieux de connaitre la version de Windows de notre ami.

 

[Pierrot93]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Re,

tu as un message d'erreur ? A voir ensuite ce que contiennent les différentes cellules....

Edition : bonjour Jean-Claude

 

[Pierrot93]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

Re,

A noter que mon "chemiin" devait être complété bien sûr...

chemin = CreateObject("WScript.Shell").specialFolders("Desktop") & "\details des bons de commande\"

 

[rudy dehaudt]

Re : chemin d acces c:\Bureau ne fonctionne pas ?

excuse moi Pierrot93, j'ai recopier ton 1 er code aveuglément...

merci JCGL,st007 et Pierrot93 de votre intervention.

c'est résolu.

A+