Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ouverture fichier d'apres adresse stocké en variable

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion djkrom2003
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

djkrom2003

Guest
Bonjour à tous j'ai décidé d'améliorer une macro afin qu'elle s'enregistre automatiquement selon des variables.

Mais à l'exécution de cette macro le fait que dans l'adresse d'enregistrement il y ai une variable le perturbe énormément....

je veux bien de l'aide svp....

Code: 
Dim Monfichier, Jour, Question, Client, Datevisite, Objet


Application.CutCopyMode = False

Client = Range("d8")
Datevisite = Range("k12")
    
                                                                'demande d'enregistrement d'automatique


Question = MsgBox("Voulez vous enregistrer automatiquement le fichier?", vbYesNo + vbQuestion + vbDefaultButton2, "")

    If Question = 6 Then
 
 
    On Error Resume Next
    MkDir "P:\Mes documents\Compte rendu de visites\" & Client                                    'si le repertoire n'existe pas, la creation se fait


    On Error GoTo 0
  
    Monfichier = "P:\Mes documents\Compte rendu de visites\ " & Client & " - " & Datevisite       ' je lui indique que le fichier sera appeler sous vba Monfichier, voir plus haut la déclaration de variable dim"
    
   
   
        Monfichier = Monfichier & ".xls"                            ' definition de l'extension .xls
   
   Objet = Client & "-" & Datevisite
   
   
    ThisWorkbook.SaveCopyAs Monfichier
    
 

 
MsgBox "Sauvegarde terminée."
 

Pièces jointes

Trier par date Trier par votes
Re : ouverture fichier d'apres adresse stocké en variable

Bonjour,

petite info au pasage, ta date doit comporté des "/" et ce caractère n'est pas admis par windows dans les noms de fichier.... applique un format avec par exemple des "-" à la place, une petite recherche sur le forum te fournira la syntaxe.

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : ouverture fichier d'apres adresse stocké en variable

je te remercie pierrot pour ton aide, mais le problème viens d'ailleur...

lorsque tu lance la macro elle enregistre et creer un dossier selon la variable "Client" mais impossible d'enregistrer le fichier dans ce dossier stocké sous forme de variable....

a l'aide svp...
 
Vote positif 0 Vote négatif
Re : ouverture fichier d'apres adresse stocké en variable

Re,

A priori "client" est un nouveau nossier dans le répertoire.. essaye ainsi :
Code: 
Monfichier = "P:\Mes documents\Compte rendu de visites\" & Client & "\NomClasseur " & Datevisite = Format(Range("k12"), "dd-mm-yyyy").

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : ouverture fichier d'apres adresse stocké en variable

Un grand merci pierrot, tu a mis dans le mille,

J'ai modifié le code ça
Code: 
' tri_adv Macro
' Macro modifiée le 26/01/2012 par Lopes-Gu
'
Dim Monfichier, Jour, Question, Client, Datevisite, Objet


Application.CutCopyMode = False

Client = Range("d8")
Datevisite = Format(Range("k12"), "dd-mm-yyyy")

                                                                'demande d'enregistrement d'automatique


Question = MsgBox("Voulez vous enregistrer automatiquement le fichier?", vbYesNo + vbQuestion + vbDefaultButton2, "")

    If Question = 6 Then
 

    On Error Resume Next
    MkDir "P:\Mes documents\Compte rendu de visites\" & Client                                    'si le repertoire n'existe pas, la creation se fait
    
    On Error GoTo 0
     Monfichier = "P:\Mes documents\Compte rendu de visites\" & Client & "\" & Client & " - " & Datevisite        ' je lui indique que le fichier sera appeler sous vba Monfichier, voir plus haut la déclaration de variable dim"
      
   
        Monfichier = Monfichier & ".xls"                            ' definition de l'extension .xls
   
   Objet = Client & "-" & Datevisite
   
   
    ThisWorkbook.SaveCopyAs Monfichier
    
 

 
MsgBox "Sauvegarde terminée."
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
envoi mail automatique apres traitement
Réponses
4
Affichages
1 K
IBOURKSIMO
I
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…