Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

exel macro d'enregistrement sur disque"D"

 

JMPCOMPUTER et 74 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

exel macro d'enregistrement sur disque"D"

RÉSOLU
Prévenir les modérateurs en cas d'abus 
pat-correze
  1. Posté le 16/09/2016 à 17:38:54  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour. Je me suis fait sur exel (2016) une grille me permettant d'éffectuer des devis rapidement. J'ai mis en place un bouton relié à une macro qui enregistrait automatiquement le classeur sous un nouveau nom dans un dossier précis de mon disque "C" (ssd) (en format exel et PDF). Tout marchait très bien mais par soucis de sécurité, j'ai voulus stocké sur mon disque "D" (non ssd) et depuis la macro ne fonctionne plus. En fait l'enregistrement se fait dans le dossier "Documents) Qui je crois est sur le "C". Il n'y a pas de message d'erreur. Voici le code avant et après changement.

AVANT
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2.  info1 = Sheets("saisie").Range("d9")
  3.  info2 = Sheets("saisie").Range("c3")
  4.  info3 = Sheets("saisie").Range("j5")
  5.  Nom = info3 & "-" & info2 & "-" & info1 & ".xls"
  6.  If MsgBox("avez vous valider votre facture afin de generer le numero automatique ?", vbYesNo, "l'érable Rouge vous informe") = vbYes Then
  7.    Sheets("saisie").Select
  8.    Application.Goto Range("A1"), True
  9.  
  10.    ChDir "C:\Users\Win\Desktop\boulot\devis factures\devis"
  11.    ThisWorkbook.Save
  12.    ThisWorkbook.SaveAs (Nom)
  13.    ThisWorkbook.Activate
  14.  
  15.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:= _
  16.      xlQualityStandard, includeDocproperties:=True, ignoreprintareas:=False, _
  17.      from:=1, to:=1, openAfterpublish:=True
  18.  End If
  19.  
  20. End Sub



APRES
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2.  info1 = Sheets("saisie").Range("d9")
  3.  info2 = Sheets("saisie").Range("c3")
  4.  info3 = Sheets("saisie").Range("j5")
  5.  Nom = info3 & "-" & info2 & "-" & info1 & ".xls"
  6.  If MsgBox("avez vous valider votre facture afin de generer le numero automatique ?", vbYesNo, "l'érable Rouge vous informe") = vbYes Then
  7.    Sheets("saisie").Select
  8.    Application.Goto Range("A1"), True
  9.  
  10.    ChDir "D:\OneDrive\boulot\aaadevis facturesaaa\devis"
  11.    ThisWorkbook.Save
  12.    ThisWorkbook.SaveAs (Nom)
  13.    ThisWorkbook.Activate
  14.  
  15.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:= _
  16.      xlQualityStandard, includeDocproperties:=True, ignoreprintareas:=False, _
  17.      from:=1, to:=1, openAfterpublish:=True
  18.  End If
  19. End Sub


Merci de m'aider !

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 16/09/2016 à 17:52:17
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 16/09/2016 à 19:15:52  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr


tu peux te créer 2 boutons , l'un pour sauvegarder sur C et un autre sur D

AVANT: en ligne 9 tu mets
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. ChDrive "C:"



Après en ligne 9 tu mets
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. ChDrive "D:"


puis tu fais un test
 :hello:

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 17/09/2016 à 07:25:10

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
pat-correze
  1. Posté le 17/09/2016 à 06:43:50  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci Willyplaisir. Mais je cherche en fait à enregistrer sur "D" uniquement, mais ça ne marche pas ! Quand je clique sur le bouton le fichier s'enregistre dans "Documents" au lieu de "D:\OneDrive\boulot\aaadevis facturesaaa\devis. Le bouton marche très bien pour enregistrer sur "C" mais pas sur mes autres disque.

pat-correze
  1. Posté le 17/09/2016 à 07:22:07  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Désolé ! Ta réponse contenait tout de même la solution. J'ai sous estimé l'importance de "ChDrive "D:"" Je l'ai ajouté en ligne 9 et c'est bon, ça marche. Cool, merci, mille merci. Willyplaisir tu est mon héro !

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 17/09/2016 à 08:45:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bjr,

il ne faut sous-estimé willy....content pour toi
par contre tu sous estimes ton français , 3 fautes

"mille mercis. Willyplaisir tu es mon héros !"

tu peux mettre Résolu à ton post

 :hello:
Message édité par willyplaisir le 17/09/2016 à 08:46:30

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
pat-correze
  1. Posté le 17/09/2016 à 09:02:27  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Pour l'orthographe j'ai pourtant fait un effort !
Je trouve un bouton "marquer comme non résolu" mais pas pour" marquer résolu" ?

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 17/09/2016 à 10:12:45  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
ok tu as trouvé le bouton qui affiche résolu à ton Post,

bonne journée
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
besoin d'aide super macro Enregistrement vidéo
liste incrémentée exel formule exel conditionnelle
extraire une valeur dans un texte exel Impossible ouvrir documents Word et Exel après MàJ microsoft [résolu]
Installer linux sur une clé USB ou sur un disque dur externe  
Plus de sujets relatifs à : exel macro d'enregistrement sur disque"D"

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Sous-Catégories Excel 1
PDF : Depuis page web ne se génère pas 7
Formule Excel 1
fonction rechercher excel 8
Création d'un programme de réservations de chambres 3