Résultats pour "enregistrer"

561 résultats pour cette recherche

Bonjour le forum,

dans mon projet, j'arrive à insérer l'image que je veux mais je n'arrive pas redimensionner l'image et à trouver le code qui va me permettre d'enregistrer l'image dans un dossier que j'ai créé.

Par exemple, en cliquant sur ENREGISTRER, les infos partent dans la feuille Excel et je souhaiterais que l'image soit enregistrer dans mon fichier:" C:\Nouveau dossier."

Je joint mon fichier

118badge.zip (12.06 Ko)

Bonjour à tous,

J'ai une macro qui m'enregistre automatiquement ma feuille en format pdf avec le nom exacte que je veux, c'est à dire la valeur d'une cellule_Valeur d'une autre cellule. Tout ceci est parfait pour mon application (c'est a dire un appareil unique). voici le code:

Sub enregistrerRU227()
Dim nompdf As String

On Error GoTo erreur

    nompdf = "\\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\RUGOSIMETRE\RU 227\Certificat\" & Range("A9").Value & "_" & Format([I9], "dd_mm_yy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
End Sub

Cependant, cette fois j'aimerai une macro bouton, ou lorsque j'appuie sur le bouton, il commence l'étape d'enregistrer sans la finir, c'est à dire qu'il va sur le chemin prédéfini \\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\TAMPON LISSE\ il choisie le fomat .pdf et j'aurai juste à rentrer/taper le nom que je désire pour le fichier.

Je ne sais pas si c'est réalisable. Si non, ben je me démerderai .

Je vous joins la feuille excel en question. Merci d'avance!

Je pense que sa peu bloqué sur le fait qu'on prédéfinisse le .pdf, si sa bloque sur ce sujet on peut passer outre le .pdf et "juste" prédéfinir le chemin pour enregistrer.

Bonjour à tous

Lorsque l'on ferme un classeur, Excel ouvre une msgbox et propose 3 options :

1 Enregistrer

2 Ne pas enregistrer

3 Annuler

Je voudrais savoir s'il est possible de la modifier et avoir seulement l'option ENREGISTRER et comment faire.

Merci pour votre aide, bonne journée

Bonjour,

Je suis perdu car je ne connais pas ces fonctions ! si quelqu'un peut me donner un tuyau !!

En fait je veux insérer des enregistrements dans ma table MySql. La connexion fonctionne, je peux lire dans la table mais comment insérer ?

Merci pour l'aide.

Sub test_mysql()

        Dim connexion As String
        Dim strSQL As String
        Dim strChamp, strValeur As String
        Dim nrow As Integer
        Dim i As Integer

        ' Déclatration varibles
        Dim fam As String
        Dim desig As String
        Dim descrip As String
        Dim refe As String
        Dim picto As String
        Dim pv As Double
        Dim ppub As Double
        Dim sto As Integer
        Dim p8 As String
        Dim cfam As String
        Dim imag As String

        Sheets("Base Web").Select

        Set conn = CreateObject("ADODB.Connection")
        Set rec = CreateObject("ADODB.Recordset")

        connexion = "DRIVER={MySQL ODBC 8.0 ANSI Driver};"
        connexion = connexion + "DATABASE=maBase;"
        connexion = connexion + "SERVER=192.168.1.xx:3307;"
        connexion = connexion + "UID=xxx;"
        connexion = connexion + "PWD=xxx;"
        connexion = connexion + "OPTION=16386"

        conn.Open connexion

        SQLstring = "SELECT * FROM maTable"
        ' envoi du SQL vers la connexion
        rec.Open SQLstring, conn

        Set champ = rec.Fields
        ncol = champ.Count ' nombre de champs de la réponse

        nrow = Sheets("Base Web").UsedRange.Rows.Count

        For i = 2 To nrow

        strChamp = "id_Famille,id_Desig,id_Descrip,id_Ref,id_Desig,id_Picto,id_PV,id_Ppub,id_Stock,id_P8,id_CFam,id_Imge"
        strValeur = "fam,desig,descrip,refe,picto,pv,ppub,sto,p8,cfam,imag"
        strSQL = "Insert into maTable (id_Famille,id_Desig,id_Descrip,id_Ref,id_Desig,id_Picto,id_PV,id_Ppub,id_Stock,id_P8,id_CFam,id_Imge) values (fam,desig,descrip,refe,picto,pv,ppub,sto,p8,cfam,imag)"

        MySQL.Query (strSQL)

        Next i
        rec.Close
        Set rec = Nothing

        conn.Close
        Set conn = Nothing

End Sub

Bonjour,

S’il vous plait, je sollicite votre aide. En fait, je viens de mettre en place un ouil_Excel avec 3 Macros, la première c’est pour créer de nouveau numéro, la deuxième macro c’est pour archiver les nouveaux ID avec leurs infos qui sont inscrites dans les cellules : C2, C3, C4, C5, E2, E3 et E4 de la feuille SOURCE. La troisième macro c’est pour faire une recherche des numéros ID. Toutes les macros fonctionnent très bien.

Le problème c’est que, quand je fais recherche d’un numéro ID existant dans la feuille ARCHVAGE avec la macro-RECHERCHE Numéro ID, la macro m’affiche le numéro recherché avec les infos dans les cellules C2, C3, C4, C5, E2, E3 et E4. Cependant quand je clique par erreur sur la macro Archiver, cette dernière enregistre encore le même numéro ID avec les mêmes infos dans la feuille ARCHVAGE (Information en double). S’il vous plait, serait-il possible de m’aider de sorte que quand je clique par erreur sur la macro archiver d’un Numéro ID déjà existant, le système m’affichera un message qui m’indiquera que le numéro existe déjà dans la feuille ARCHIVAGE ainsi m’interdire d’enregistrer.

Cordialement,

2tabs.xlsm (50.79 Ko)

Bonjour, je vous explique mon problème je dois créer une macro ou un fichier PDF ressors, celui ci doit être enregistrer dans le dossier que je créer juste avant avec la fonction MkDir, mais je n'arrive pas à lui montrer le bon chemin à prendre, je vois ou il faut le modifier, mais je ne sais pas quoi mettre, si quelqu'un à une piste à me donner, ce serai volontier.

Le dossier est crée ou le commentaire l'indique.

Merci d'avance.

Bonjour,

Je souhaiterais enregistrer sous automatiquement un fichier mais qu'il se renomme avec un mot fixe et avec un numéro dans une cellule qui est variable, je m'explique,

Mon fichier de base s'appelle "FICHIER" une fois la macro lancer je souhaiterais qu'il s'enregistre dans "G:\DOCUMENT" et qu'il soit nommé "NOUVEAU - (Cellule D5)"

Et qu'il s'enregistre en .xlsx

J'espère m'être bien exprimé

En vous remerciant pour votre aide

Cordialement

Bonjour,

Travaillant sous EXCEL 2016, je maîtrise un peu Power QUERY. une chose assez basique semble t-il, mais que je n'arrive pas à faire :

je souhaite Enregistrer l'ensemble de mes requêtes dans un seul fichier (requêtes que j'ai crée au sein d'un seul éditeur). par la suite, je souhaite le recharger dans un nouveau fichier EXCEL.

je n'ai pas trouvé comment faire...

Bonjour à tous,

Je suis complètement novice en VBA et c'est pour cela que je sollicite votre aide!

J'utilise le petit programme suivant qui me permet de repérer les références des cellules contenant l'acronyme CR :

Sub trouverCR()

tableauAdresses = cellsSearch(Range("A1:CU224"), "CR")

arrayDebug tableauAdresses

End Sub

Mes références de cellules s'affichent alors dans une MsgBox mais je souhaiterais finalement visualiser ces références dans un tableau sur un classeur Excel. Savez-vous comment faire?

Je vous remercie par avance!

Bonjour,

Pour info, suis très débutante en VBA.

J'ai un fichier Excel avec macros qui servira de base pour établir des offres et sera utilisé par mes collègues. J'aimerais que dès l'ouverture de ce fichier, il soit impératif de l'"enregistrer sous" un dossier précis (G:\Catering) et en .xlsm...

J'ai pensé à le transformer en modèle, mais vu que c'est un fichier qui a des liaisons avec un Word cela fausse mes liaisons. Si vous avez une macro à me proposer j'en serai ravie.

Merci d'avance de vos réponses...

salutations ,

J'ai une feuille de calcul excel avec le nom "ACABAMENTO" qui est jointe au archiver xlsm .

Je dois copier les données de cette feuille de calcul et enregistrer ces données dans un fichier CSV séparé par des points-virgules .

Je dois enregistrer ce fichier CSV dans un répertoire de mon choix, comme ceci: "C:\Users\Junior\Documents\ ..."

J'ai trouvé un exemple dans ce sujet ici .

mais le problème est que la macro de cet exemple n'enregistre pas le fichier CSV avec un séparateur "point-virgule" .

Je dois enregistrer le fichier CSV avec un séparateur "point-virgule", en raison d'un logiciel qui récupérera plus tard ces valeurs .

J'ai joint un fichier CSV auquel je veux accéder, il a été généré avec un séparateur par "virgule", mais le séparateur doit être avec "point-virgule" .

merci d'avance pour toute votre aide .

6archiver-csv.csv (1.56 Ko)
9archiver-xlsm.xlsm (11.18 Ko)

Bonjour à toutes et à tous,

Ce qu'à produit GMB pour ptikabuto est exactement ce que je recherche à reproduire sur mon fichier.

cf. https://forum.excel-pratique.com/viewtopic.php?t=88003

Avec mes collègues, on recherche à élaborer un petit outil de suivi, mais l'automatiser va un peu au-delà de nos compétences

Dans chaque feuille "aujourd'hui + prénom" (moi c'est "Aujourd'hui Germain") on rempli le nombre de nouveaux clients que nous avons gagné tous les jours qui nous donne à la fin de semaine un total pour chaque type de client. Puis on copie/colle dans l'autre feuille qui porte son nom (donc la feuille "Germain") à la cellule D37.

Aujourd'hui on doit tout faire manuellement.

Mon rêve. C'est de faire en sorte qu'à la fin de semaine quand j'appuie sur le bouton pour activer la macro de remise à zéro "RAZ", ça duplique les chiffres de la colonne du total de la semaine (S1 par exemple) de ma feuille "Aujourd'hui"; puis ça réinitialise la feuille et j'ai juste à recommencer en changeant le n° de semaine pour le mettre celui de la semaine suivante.

J'essaie de réadapter le VBA réalisé pour ptikabuto, mais impossible...

Merci pour toute l'aide que vous pourriez nous apporter. Conseils, trucs, astuces... Je suis preneur.

Très sincèrement,

Germain

Bonjour,

Sur un fichier excel nommé Modèle Chiffrage, à l'ouverture une macro "ouverture" permet de remettre mon modèle de chiffrage vierge,

Private Sub Workbook_open()

ouverture

End Sub

J'aimerais que lorsque j'enregistre sous pour sauvegarder, le nouveau fichier excel crée ne possède plus ce code pour qu'à la prochaine réouverture les informations ne soit pas supprimé,

Est-ce possible ?

Merci d'avance,

Hello,

J'aurais souhaiter connaitre la technique en VBA pour permettre à un utilisateur d'exporter la feuille "Rapport" en PDF dans un dossier qu'il choisira lui, en appuyant sur un bouton

Merci d'avance les potos

Julien

Bonjour,

Après beaucoup de recherches je me retourne vers vous pour m'aider sur un point que voici :

J'aimerais depuis un fichier excel, créer un fichier et choisir le chemin du repertoire où il sera enregistrer tout ça en appuyant sur un bouton. D'autres fonctionnalités me sont utiles mais je sais déjà comment les faire. C'est seulement cette partie création et enregistrement qui me manque.

Si quelqu'un veut bien me donner une piste pour commencer s'il vous plait ! Merci beaucoup d'avance pour ceux qui m'aideront.

Bonjour tous,

J'ai un code qui permet de donner l'autorisation d'ouverture d'un classeur en fonction de l'usurname et du numéro de série du disque dur d'un ordinateur.

Si il ne reconnait pas l'ordinateur il quitte l'application après avoir afficher le message "vous n'êtes pas autorisé à utiliser ce fichier.

Il fonctionnait très bien jusqu'à ce que j'ajoute une partie qui permet de l'adapter également sur Excel 64bits.

Maintenant, il délivre toujours le message, mais avant de quitter il propose d'enregistrer ou pas avant de quitter.

Comment peut-on éviter cette étape ?

J'ai pourtant posé la ligne de code

Application.DisplayAlerts = False

avant de quitter.

Merci de votre aide.

Option Explicit

#If VBA7 Then
Private Declare PtrSafe Function GetVolumeInformation Lib _
"Kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As LongPtr, _
lpMaximumComponentLength _
As LongPtr, lpFileSystemFlags As LongPtr, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As LongPtr) As LongPtr

#Else
Private Declare Function GetVolumeInformation Lib _
"Kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
#End If

Function NumSerieDD(LettreDD As String) As LongPtr
Dim SerialNum As LongPtr
Dim R As LongPtr
Dim Temp1 As String
Dim Temp2 As String
LettreDD = LettreDD & ":\"
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
R = GetVolumeInformation(LettreDD, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
NumSerieDD = SerialNum
End Function

Sub Verification_pc()
'Partie ? coller dans thisworbook ou module 1 si autodestruction

If Environ("Username") = "XXXXX" And NumSerieDD("C") = "XXXXXX" Then ' Adapter les Infos en testant avec Test_Info
MsgBox "Vous êtes autoris? ? accèder à ce fichier", , "Sécurité"
Else:  MsgBox "Vous n'avez pas l'autorisation d'accéder ? ce fichier", , "sécurité"
Application.DisplayAlerts = False
Application.Quit

Exit Sub
End If
End Sub

Bonsoir, j'ai mon code ci qui me permet de mettre en pdf et d'envoyer la feuille que je veux par mail.

J'aimerais pouvoir enregistrer le feuille dans un dossiers tant en pdf qu'en excel.

cela est t'il possible ? si oui de bien vouloir m'aider

Private Sub CommandButton6_Click()
  Dim Ind As Integer, NbFeuil As Integer
  Dim sNomFic As String, sRep As String
  Dim TabFeuil() As String
  Dim WshShell As Object
  Dim Sht As Worksheet
  Dim OutApp As Object, OutMail As Object
  '
  ' Demander quelle feuille
  UsF_ChoixImp.Show
  '
  ' Vérifier si au moins 1 feuille a été selectionnée, sinon on sort
  If ListeFeuilSel = "" Then Exit Sub
  '
  ' Définir le tableau des feuilles
  TabFeuil = Split(ListeFeuilSel, ",")
  ' Nombre de feuille sélectionnées
  NbFeuil = UBound(TabFeuil)
  '
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
  ' Créer une instance Windows Script pour retrouver le chemin du bureau
  Set WshShell = CreateObject("WScript.Shell")
  sRep = WshShell.SpecialFolders("Desktop")
  Set WshShell = Nothing

  ' Créer une instance Outlook et mail
  Set OutApp = CreateObject("outlook.application")
  Set OutMail = OutApp.CreateItem(0)
  ' Afficher le mail pour la signature et définir les éléments souhaités
  With OutMail

    .To = "dj54645@icloud.com"
    .Cc = ""
    .Subject = "FICHE DE STOCK"
  End With
  ' Ensuite il faut générer les feuilles
  ' Pour chaque feuille
  For Ind = 0 To NbFeuil
    With Sheets(TabFeuil(Ind))
      ' Afficher la feuille
      .Visible = xlSheetVisible
      ' Nom de la feuille comme nom de fichier
      sNomFic = .Name & ".pdf"
      ' L'exporter au format PDF
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
      ' Masquer la feuille
      .Visible = xlSheetHidden
    End With
    ' Attacher la feuille au mail
    OutMail.Attachments.Add sRep & "\" & sNomFic
    ' Une fois attacher, on peut le supprimer
    Kill sRep & "\" & sNomFic
  Next Ind
  ' Uns fois terminé, on peut envoyer le mail
  OutMail.Send
  ' Réactiver l'écran et les évènements
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
  End With
End Sub

Bonjour à tous et à toutes !

Je voudrais savoir s'il existe un moyen d'ouvrir un fichier CSV ayant un chemin d'accès variable, puis de l'enregistrer en .XLSX sur un chemin variable ?

Si quelqu'un a une solution je suis preneur.

Bonjour tout le monde,

Je voudrais exporter une feuille excel via macro en pdf avec une date qui se trouve dans une case.

J'utilise la code suivant qui fonctionne très bien :

Sub Edition_Chaud_pdf()

Sheets("Chaud").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Worksheets("Saisie des effectifs").[D1] & " " & Worksheets("Saisie des effectifs").[E1] & Value & " fiche prod chaud "

End Sub 

Les cases D1 et E1 contiennent des valeurs en lettre.

Lorsque je transpose E1 par K2 dans le code, qui contient une date (pas forcément celle du jour) qui sera renseigné................... elle plante. Je penses que c'est une histoire de format.

Est ce que quelqu'un à une solution ?

Merci d'avance.

Bonjour,

J'effectue du publipostage via une macro.

Une fois que le publipostage se fait, il l'imprime sur l'imprimante par défaut.

J'utilisais alors une imprimante pdf virtuelle pour pouvoir enregistrer mes publipostage (.Destination = wdSendToPrinter)

J'aimerais enregistrer automatiquement le publipostage dans un répertoire sans passé par l'imprimante virtuelle.

Voici le code

Private Sub commandButton1_Click()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String

    NomBase = "E:\ftp\dp.xls"

    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("E:\ap\mp.docx")

    'fonctionnalité de publipostage pour le document spécifié
    With docWord.mailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Rapport 1$]"
        'Spécifie la fusion vers l'imprimante
        .Destination = wdSendToPrinter
        .suppressBlankLines = True
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .firstRecord = wdDefaultFirstRecord
                .lastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With

    Application.ScreenUpdating = True

    'Fermeture du document Word
    docWord.Close False
    appWord.Quit
End Sub

En espérant que vous allez pouvoir m'aider.

Bien à vous.

Recherches récentes

ajouter donnee userformenlever apostropheapostrophetcd sourcesbarreiserror vbaesterreur vbafonction erreurenlever tabulationsaisie horairemacro synthesegestion heurejpgcompilationandpage suivante vbafeuille horairesuivie horairemodele emailouvrir modele email automatique