Recherche code VBA

[marbeval]

Bjr à tous et merci de m'acceuillir parmi la communauté XLD.
Je suis à la recherche d'un code VBA: j'ai un fichier où se trouve deux bases de données qui alimentent un formulaire de bon de commade et je souhaite copier cette feuille "bon de commande" dans un nouveau classeur qui sera enregistrer dans un dossier dont le chemin serait prédéfini dans le code et dont le nom serait le contenu d'une cellule du bon de commande (réf du bon)!!
Je souhaiterai enfin qu'une box apparaisse avec le chemin d'accés pour confirmer l'enregistrement (et pouvoir si besoin modifier le chemin de la sauvegarde)

Merci à tous et trés bon réveillon à chacun d'entre vous!!!

 

[Paritec]

Re : Recherche code VBA

Bonjour Marbeval le forum
le mieux et de nous pondre un petit exemple et les explications dans le fichier et tu joins cela sur le forum tu auras des réponses sans souci
a+
Bonne Année 2012
Papou😱

 

[marbeval]

Re : Recherche code VBA

Merci Paritec,
Voici un ex qui représente ce que je souhaite faire.
Ce lien n'existe plus

 

[Arpette]

Re : Recherche code VBA

Salut Marbeval, mettre ce code dans un module pour enregistrer où tu souhaites. Ensuite affecte le bouton à celui-ci.
bonne fête
@+

Sub Enregistrer()
' Enregistrer Sous
    
    Dim LeChemin As String
    Dim LeFichier As String
    
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    chemin = ActiveWorkbook.Path
    Nom = Cells(1, 3).Value 'Nom = position de la cellule C1
    Num = Cells(2, 3).Value 'Num = position de cellule C2
   
    LeFichier = Nom & " Du " & Num
    LeChemin = "C:\Documents and Settings\Arpette\Marbeval" 'A adapter
    ActiveWorkbook.SaveAs LeChemin & "\" & LeFichier

    ActiveWorkbook.ActiveSheet.Select
         
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
   
   Application.ScreenUpdating = True
   Application.EnableEvents = True
  ThisWorkbook.Close SaveChanges:=True
End Sub

 

[saya]

Re : Recherche code VBA

Bonsoir Marbeval, bonsoir le forum,

Voici une petite macro qui, je l'espère, répondra à tes attentes. Pour le moment, l'enregistrement se fait sur le bureau de l'administrateur, mais c'est modifiable si besoin.

Bonne soirée !
Saya


PS : toujours pas assez rapide dans mes réponses ! Arpette m'a grillée au poteau 😉

 

[marbeval]

Re : Recherche code VBA

Merci à vous deux saya et arpette,
Vos réponses m'ont permis d'arriver au résultat escompté.
Bravo à vous deux et merci encore pour votre aide.
Très beau forum d'entraide.
Dans l'attente de pouvoir en faire autant.
Bonne et heureuse année😉

 

[marbeval]

Re : Recherche code VBA

Bonsoir Saya,
J'ai un prb avec le code que tu m'as soufflé. Il fonctionne correctement puis ensuite il plante sur la ligne:
'enregistre la copie du bon à l'endroit définit par l'inputbox
xlBook.SaveAs cheminAccesDefinitif

Je ne comprends pas pourquoi. As tu une idée?
Ce lien n'existe plus

 

[saya]

Re : Recherche code VBA

Bonsoir marbeval,

Je viens de retester, aucun plantage chez moi ... en ne modifiant pas le chemin et le modifiant ...
Est ce que tu as un message d'erreur un peu plus précis ? Ou est-ce que quelqu'un d'autre voudrait bien tester pour voir ce que ça donne ?

Je ferai de toute façon un essai au boulot demain, pour voir sur un autre ordi ce que ça donne. En tout cas, désolée que tu ais un plantage 🙁

 

[marbeval]

Re : Recherche code VBA

C'est pas grave🙄
Je t'ai fais in imp. écran du msg!!!
Regarde le fichier destination (\AF1116). Rien avoir avec ce qui est écrit dans le code
Ce lien n'existe plus

 

[Arpette]

Re : Recherche code VBA

Salut marbeval, saya, le forum

j'ai la même erreur, c'est le cheminAccess qui n'est pas bon, il faut mettre :

cheminAcces = "C:\Documents and Settings\All Users\Bureau\"

et tu retrouves ton fichier sur le bureau
@+

 

[saya]

Re : Recherche code VBA

Bonjour à tous,

Trop forte, Arpette, merci de la correction 🙂

Bonne soirée !