03/05/2022, 15h43 #1 Membre à l'essai Copie de fichier exe ko en VBA et ok à la main? Bonjour, Je dois rapatrier des fichiers soit soit (application pas archive auto-extractible) d'un serveur. Supprimer un fichier excel en vba. Cela fonctionne pour les fichiers zip. Cela ne fonctionne pas pour les fichiers exe (Message de pbm de d'autorisation. Si je me connecte avec windows explorer au même répertoire: \\\d\Repertoire\ Le fichier peut être copier-collé (à la main) dans le même répertoire (en local sur mon ordi du bureau). Mon prog (la partie en question) 1 2 3 4 5 6 Public oFSO As leSystemObject sub mafonction () Set oFSO = New leSystemObject pyFile sCheminFichiers & sFichierAPrendre, sCheminDepotFichierEnCours, True end sub Merci d'avance si il y a une finesse pour ne pas avoir cette réaction uniquement via le vba. 03/05/2022, 20h41 #2 Membre régulier Essayez ceci: Attention: Il faut activer la référence "MicroSoft Scripting Runtime" au prélable 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Sub Copie_Fichier () 'Copie un fichier d'une source vers une destination.
TELECHARGEMENTS Plus de 250 applications Excel sont disponibles gratuitement en téléchargement! Budget, gestion de comptes Gestion commerciale, personnel Plannings, calendriers Etc. Le contenu de la vignette sera de ce type: With okmarks("Blank_MP1_panel" & i - 1) = "Code postal: " & vbCrLf & Worksheets(2)(i, 1) = "arial" = 10 = True = False = RGB(0, 0, 0) X Cellus Membre impliqué Messages 2'285 Fichiers 4 Votes 579 Excel 2007 FR, 365 FR Tél. 1'165 Inscrit 13. 10. 2019 A nouveau, D'accord, c'est plutôt facile à réaliser. Le Texte Code Postal: est centré en haut de la vignette, tout comme le code départemental en dessous. Je ferais cela demain soir si je sors pas trop tard. Mais tu l'auras assez vite. Vu que c'est une feuille A4. Par contre tu as 189 vignettes par page. [XL-365] Copie de fichier exe ko en VBA et ok à la main ? - Macros et VBA Excel. Il se pourrait que la dernière page soit incomplète. A + Bons tests, bonne continuation. Re XCellus, Oui tout sera centré sur la vignette. Merci beaucoup pour votre contribution. Par contre pourquoi me dites vous: "Par contre tu as 189 vignettes par page.
L'un et/ou l'autre, bloque(nt) peut-être la copie d'un exe via du script... ++ Qwaz 04/05/2022, 10h01 #4 C'est juste incroyable... Supprimer caractères dans cellule excel par macro VBA. La séquence de code proposée marche comme la mienne (sûrement mieux codée que la mienne mais le résultat est pareil). Par contre, mon répertoire de destination, s'appelait: d:\xxxx\repdestination\FRIM\ Lors d'un essai bidon, j'ai changé le répertoire de destination à d:\xxxx\repdestination\FR_IM\ Et les deux versions ont fonctionnées!! Uniquement le nom du dernier répertoire FRIM n'est pas accepté et FR_IM est accepté. Question ouverte même si le pbm est résolu: Ca vous dit quelque chose?
Mais lorsqu'il existe plusieurs fichiers de données qui sont croisés pour ressortir certaines valeurs afin de pouvoir s'afficher sur des planches d'étiquettes. Et si en plus il y a besoin d'y associer des images, pictogrammes... en relation avec les données. Le publipostage trouvera ses limites puisqu'il a été instauré essentiellement pour manipuler du texte. Bons tests, bonne continuation. 78chris Fanatique d'Excel Messages 10'435 Votes 1'911 Excel 2010 -19&21- 365 Inscrit 9. 07. 2017 Lieu Sud Yvelines Chris Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson Confucius PowerQuery existe depuis plus de 10 ans! Totalement intégré à Excel 2016 et +. Utilisez-le! Vba excel supprimer un fichier sur pc windows 10. Modérateur Messages 7'676 Fichiers 3 Votes 1'500 Excel O365 FR Tél. 2011 Emploi DevOps essentiellement made in office Lieu MONTARGIS (la Venise du Gâtinais) ACCES PREMIUM Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives: Navigation sans publicités Option "No Tracking" Option "Mode Incognito" Option "Dark Mode" Re, @X Cellus, pour les images allez cadeau un tuto qui date de 2014 et toujours applicable @JeanBaptiste, bravo pour le multipost vous devez faire référence à celui précédemment créé!
(cliquer sur le texte bleu) Dernière édition: Mercredi à 20:52 #12 re bonjour j'ai suivi la procédure mais les onglets ne changent pas de date j'ai peut être mal compris. #13 merci ça fonctionne encore merci. #14 ok, merci de ton retour! Vba excel supprimer un fichier brisé. #15 @JAQUAND désolé, je m'suis aperçu que j'ai fait une erreur à la fois grosse et stupide! avec mon code VBA précédent, la fin des noms d'onglet est toujours " 06 2022", quelle que soit la date de E1! c'est maintenant corrigé: ça prend le mois correct de la date de E1; idem pour l'année, si tu mets par exemple en E1: 01/01/2025. (rappel: mettre la date en E1 avant de cliquer sur le bouton! ) nouveau code VBA: VB: Option Explicit Sub renommage() If <> "Récapitulatif" Then Exit Sub If Not IsDate([E1]) Then Exit Sub 'si date invalide Dim chn$, j%, m As Byte, a&, i% reenUpdating = 0 j = Day([E1]) 'jour de la date qui est en E1 m = Month([E1]) 'mois de la date de E1 a = Year([E1]) 'an de la date de E1 For i = 1 To With Worksheets(i) If <> "Récapitulatif" Then chn = Format(j, "00") & " " & Format(m, "00") & " " & a If <> chn Then = chn j = j + 1 End If End With Next i 'sert à désélectionner le bouton End Sub 135.
Justement c'est pour gagner du temps que je cherche à faire ça! Modérateur Messages 7'676 Fichiers 3 Votes 1'500 Excel O365 FR Tél. 2011 Emploi DevOps essentiellement made in office Lieu MONTARGIS (la Venise du Gâtinais) Re, Vous me rassurez et le simple publipostage donné ne fait pas ce que vous souhaitez A+ Ne prenez pas au premier degré ce que j'écris, j'ai tellement fait de VBA, que j'ai un souci avec notre belle langue Française;-) Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson (Confucius) A nouveau, Je reprends. Ce que je cherche à réaliser, c'est générer des étiquettes à partir d'un tableau EXCEL. Fichier CSV par VBA avec des virgules au lieu de points virgule. Dans ce tableau on trouve en colonne A des données. J'aimerais afficher sur chaque planche d'étiquettes le texte "Code postal" suivi du numéro figurant sur chaque ligne de la colonne A puis l'imprimer dans la foulée. Pour info, le nombre de lignes avec données pourra varier en colonne A. Le but étant de créer un bouton sur un fichier Excel qui puisse me permettre d'importer le classeur EXCEL "données" puis de générer un publipostage pour impression directement sur la planche d'étiquettes.
Pokemon Gold Rom Ds, 2024