chemin d acces c:\Bureau ne fonctionne pas ?

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #2

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

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 19 Juin 2013

• #3

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #4

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

Code:

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

supprime cette ligne....

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 19 Juin 2013

• #5

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

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 19 Juin 2013

• #6

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Juin 2013

• #7

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.

 

Dernière édition: 19 Juin 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #9

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

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 19 Juin 2013

• #10

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+

 

Vote positif 0 Vote négatif