Erreur dans code VBA
Résolu/Fermé
simkmil Messages postés 481 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 24 décembre 2024 - 15 févr. 2023 à 20:20
- Erreur dans code VBA
- Erreur 0x80070643 - Accueil - Windows
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
6 réponses
16 janv. 2023 à 20:13
Je viesn de vérifier, en effet, j'ai le dossier GECOBAT dans le disque G mais je n'avais pas de sous dossieer FACTURES.
Je l'ai créé et magnifique, ça fonctionne.
Merci pour ton aide.
Maintenant, je m'aperçois que j'ai une feuille "Historique des ventes" et rien ne s'y inscrit, cette feuille devrait permettre de comptabiliser les factures payées et les non-payées. Puis j'ai une feuille Journal des ventes, qui est une reproduction d'une feuille de livre comptable et là, tout s'y inscrit correctement.
Je vais vérifier le code se rapportant aux inscriptions dans cette feuille "Historique"
Merci et bonne soirée.
14 janv. 2023 à 07:27
Bonjour,
il fonctionnait impeccablement,
Surprenant, car:
"Quelle que soit sa version, Windows ne vous laisse pas nommer des noms de fichiers n'importe comment. Généralement, la limitation la plus connue concerne une liste de caractères spéciaux interdits : <, >, :, “, /, \, |, ?, *. Il est également interdit de terminer un nom de fichier par un espace, ou un point"
14 janv. 2023 à 17:58
Bonsoir, merci de votre réponse, mais je ne vois aucune des restrictions dans mon nom de fichier.
j'ai écris : G:\GECOBAT\FACTURES\
donc, pas de caractère interdit, ni d'espace.
à moins que le \ en fin soit en trop ??
si je dois enlever les deux \ que mettre à la place ?
Merci de votre aide.
14 janv. 2023 à 18:02
Hello sir the same problem I'm also facing...Please anybody help...
Modifié le 14 janv. 2023 à 18:29
Tu ne nous montres pas le nom du fichier.
As-tu écrit ce code?
As-tu vu la ligne qui contient ceci?
NomFichier = Range("B12").Value & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"
Que contient B12? Moi j'y vois des caractères qui sont interdits dans un nom de fichier.
14 janv. 2023 à 18:50
Bonjour,
B12: date du jour :14/01/23. Donc les "/" ne peuvent pas etre utilises
14 janv. 2023 à 19:49
Bonsoir,
en effet, j'ai écris cette ligne de code.
Dans ma feuille récapitulatif, la cellule B12 est bien recopiée sous forme de date
ça coince au niveau de la ligne
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
merci de votre aide
15 janv. 2023 à 16:30
Bonjour,
Il suffit de remplacer :
NomFichier = Range("B12").Value & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"
par :
NomFichier = Replace(Range("B12").Value, "/", "-") & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"
Bon dimanche.
14 janv. 2023 à 18:24
Re,
Le probleme vient de la date du nom de fichier a sauvegarder avec des "/" en separateur
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
16 janv. 2023 à 12:12
Bonjour,
l'erreur indiquée dans le popup est :
erreur 1004
Microsoft ne peut accéder au fichier "G:\GECOBAT\FACTURES\16-01-23 KOUSEN Daniel.xlsm"
je clique sur déboguage et c'est la ligne suivant qui est en jaune
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
merci de ton aide.
16 janv. 2023 à 19:58
Et, bien sût, tu as un dossier nommé G:\GECOBAT\FACTURES sur ton ordi?
15 févr. 2023 à 20:20
Bien sur que NON !! je n'avais pas ce dossier, seulement le dossier Gecobat !
erreur réparée et tout fonctionne.
Encore merci
17 janv. 2023 à 09:16
Peux-tu alors marquer la discussion comme résolue?