Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

gilbert_RGI

XLDnaute Barbatruc

• 22 Février 2012

• #2

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

ce fonctionnement est-il votre demande ?

 

Pièces jointes

• chemin.xlsm

  31 KB · Affichages: 70

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 22 Février 2012

• #3

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Je voudrais ouvrir la boite de dialogue "Enregistrer sous" quand mes techniciens clique sur Enregistrer. En gros une lecture seule, avec en plus aller dans le répertoire ou le fichier doit etre enregistrer en temps normal et laisser aux techniciens la possibilité de l'enregistrer ailleurs... J'ai vu qu'on pouvais utiliser Application.Dialogs(xlDialogSaveAs).Show sRep & sName, mais je ne reussi pas à faire fonctionner ma macro...

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Février 2012

• #4

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

d'accord pour la boite de dialogue mais est-ce que les chemins indiqués dans les msbox sont bons

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 22 Février 2012

• #5

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Oui oui, les chemins sont bien correctes, j'aurai juste à modifier sRep pour enregistrer sur le réseau intranet.

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 23 Février 2012

• #6

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Quelqu'un pout m'apporter son aide svp

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 23 Février 2012

• #7

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

J'ai essayé avec Application.GetSaveAsFilename, mais je ne réussi toujours pas à proposer l'enregistrement dans le bon dossier, avec le bon nom de fichier...

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 24 Février 2012

• #8

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

essayer ceci

attention les chemins doivent être existant sinon erreur et sortie par la msgbox
dans ce cas possibilité de créer le répertoire manquant avec MkDir

Code:

Sub test()
 Dim msgerreur
' Sauvegarde dans le bon repertoire avec le bon nom de fichier
        srep = ThisWorkbook.Path
         sname = Range("B4")
    If Feuil1.CheckBox1.Value = True Then srep = srep & "\03 - Non conformités non avérées"
     If Feuil1.CheckBox2.Value = True Then
         If Range("G5") <> "" Then
         srep = srep & "\02 - Non conformités réelles corrigées"
         Else
         srep = srep & "\01 - Non conformités réelles non corrigées"
         End If
     End If
 On Error GoTo msgerreur
         
With Application.FileDialog(msoFileDialogSaveAs)
         .AllowMultiSelect = False         'Un seul Fichier possible
         .InitialFileName = srep & "\" & sname       'Répertoire d'ouverture de la fenetre et le nom du fichier
         .Title = "Enregistrement de ce fichier"
         .Show 
End With
Exit Sub
msgerreur:
MsgBox srep & vbLf & vbLf & " Il y a une erreur dans ce chemin" & vbLf & " ou ce chemin n'existe pas"
End Sub

 

Dernière édition: 24 Février 2012

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 28 Février 2012

• #9

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Bonjour,

J'ai toujours un problème quand je met un chemin sur le serveur.
La macro fonctionne bien quand je met des chemin sur mon disque dur, mais des que je veux sauvegarder sur le serveur (https://...) ça ne fonctionne pas.

Avez-vous une idée pour me dépanner ?

Merci d'avance.

 

Pièces jointes

• Argus non conformities chart (7).xlsm

  41.3 KB · Affichages: 52

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Février 2012

• #10

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

voir le sens des backslash (antislash) sur le serveur ce doit être sans doute des slash

faire une msgbox après le End With pour voir la valeur de InitialFileName

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 5 Mars 2012

• #11

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Hello, désolé pour le retard pour la réponse. j'ai essayé de faire une msgbox mais c'est pas possible. J'ai le message d'erreur "Il y a une erreur dans ce chemin ou ce chemin n'existe pas"
Je ne comprend pas pourquoi...




Merci d'avance

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Mars 2012

• #12

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

bonsoir

mettre un rem devant on error goto msgerreur

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 9 Mars 2012

• #13

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Hello,
désolé pour le retard, j'étais en déplacement.
Je viens d'essayé en commentant On Error GoTo msgerreur, mais maintenant j'ai un bug dans la macro


Merci d'avance

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Mars 2012

• #14

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

je crois que l'erreur indique de quoi il s'agit !!!!

 

Vote positif 0 Vote négatif

Cedrim69

XLDnaute Nouveau

• 9 Mars 2012

• #15

Re : Probleme pour le choix de l'emplacement d'enregistrement d'un fichier

Désolé mais je ne vois pas quelle erreur j'ai fait

 

Vote positif 0 Vote négatif