enregistrement ds un répertoire

[Darnel]

Bonjour à tous

Voilà, j'assiste à une bizzarerie excellienne...
J'ai le code suivant :

Sub extraction_fiche()
Application.ScreenUpdating = False
    Dim Nouveaufichier As String
    Dim utilisateur As String
    Nouveaufichier = Range("B5").Value & " (copie)"
    utilisateur = Application.UserName
    ActiveSheet.Unprotect
    Sheets("Fichesynthèse").Select
    Sheets("Fichesynthèse").Copy
    ActiveSheet.Shapes("Button 6").Delete
    ActiveSheet.Shapes("Button 8").Delete
    ActiveSheet.Shapes("Button 4").Select
    ActiveSheet.Shapes("Button 4").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 5").Delete
    ActiveSheet.Shapes("Button 9").Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 3").Delete
    ActiveSheet.Shapes("Button 10").Delete
    ActiveSheet.Shapes("Button 11").Delete
    Range("A1:H55").Select
    Selection.Copy
    Range("A1:H1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    On Error Resume Next
    ChDir "D:\Documents and Settings\" & utilisateur & "\Desktop"
    ActiveWorkbook.SaveAs Nouveaufichier
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
    ActiveWorkbook.Close savechanges:=False
    Windows("Fiche de synthèse V3.1.xls").Activate
    Range("B2").Select
    ActiveSheet.Protect
    MsgBox "la fiche " & Nouveaufichier & " est enregistrée sur votre bureau"
Application.ScreenUpdating = True
End Sub

Je sais me direz vous, il n'est pas des meilleurs ( je n'ai pas encore adapter celui qui m'a été donné sur un fil que j'ai créer pour cela...)

Quand j'ouvre le fichier contenant la macro directement ( double clic sur l'icone ) la macro est nickelle
PAR CONTRE, quand j'ouvre le fichier en faisant fichier ouvrir et que je vais le chercher, lorsque j'execute le code ci dessus, le fichier à enregistrer n'est pas enregistré sur le bureau de l'utilisateur, mais dans le dossier contenant le fichier contenant la macro

Je ne sais pas pourquoi excel agit de cette façon.😕

auriez vous une idée
merci d'avance

 

[Gringo]

Re : enregistrement ds un répertoire

Bonjour Darnel,

Dans ton code, quand tu écris ton Activeworkbook.saveas, tu ne lui donnes que le nom de fichier, tu ne lui donnes pas le répertoire où enregistrer.

Essaie de lui spécifier le répertoire et ça devrait régler ton problème.

Bonne fin de journée,

Gringo

 

[myDearFriend!]

Re : enregistrement ds un répertoire

Bonsoir Darnel, Gringo,

je n'ai pas encore adapter celui qui m'a été donné sur un fil que j'ai créer pour cela...

Effectivement Darnel, si tu avais déjà essayé d'adapter la version qui t'était proposée dans ce LIEN, ta question d'aujourd'hui n'aurait peut-être pas lieu d'être... En tout cas pour ce qui concerne la partie SaveAs .... (ton ChDir ne sert à rien)

Bonne soirée.

 

[Darnel]

Re : enregistrement ds un répertoire

Bonsoir MDf, Gringo,


MDf
Je dois t'avouer que je me souvenais de ta première réponse, mais que j'avais complètement oublier que tu m'avais totalement macher le boulot dans un deuxième temps. Et comme je n'ai pas relu le post avant de poser ma question...😱😱
pour la peine, je me condamne à dire : "je relierais les fils que j'ai ouverts avant de poser une nouvelle question sur le forum" 10 fois avant chaque question que je poserai. et aussi à m'excuser de t'avoir fait perdre ton temps pour me répondre une deuxième fois alors que ta première reponse était largement suffisante.

Par contre je suis étonné d'apprendre que le ChDir ne sert à rien, car cela fonctionnait tant qu'on n'ouvrait pas le fichier à partir de ouvrir ...
J'avais essayer de l'envoyer dans mes documents également par ce procedé et ca marchait (aussi mal 😀) que l'autre.
Enfin bref, je prend note de l'info et promis je recommencerais plus.

Merci encore et bonne nuit

 

[myDearFriend!]

Re : enregistrement ds un répertoire

Re Darnel,

Je te conseille vivement la lecture de l'aide VBA concernant ChDir.
J'ai dit qu'il ne servait à rien, ce qui est faux. Cette instruction a évidemment une utilité mais l'utiliser comme tu le fais là, ce n'est pas la bonne façon de faire.

Cordialement,

 

[Darnel]

Re : enregistrement ds un répertoire

Re

Ok, j'ai jetter un oeil sur l'aide vb.
Si j'ai bien compris (je l'ai eu en anglais car aide vb pas totalement installée sur mon PC au bureau) ChDir ne fait que changer le répertoire par défaut et il ne spécifie pas le chemin à proprement parler.
De plus il semble qu'il ne change pas le disque par défaut, ce qui me fait comprendre un peu mieu mon problème.
Merci et bonne journée

 

[Darnel]

Re : enregistrement ds un répertoire

Re

Je viens de tester le code que tu m'as gentilment fait.

cela marche parfaitement

Merci beaucoup