Erreur d exec 13
Fermé
samsoung
-
Modifié le 13 mars 2020 à 23:09
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 14 mars 2020 à 08:23
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 14 mars 2020 à 08:23
A voir également:
- Erreur d exec 13
- Erreur 0x80070643 - Accueil - Windows
- Redmi note 13 5g test - Accueil - Téléphones
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur 10016 epson - Forum Imprimante
2 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
14 mars 2020 à 06:48
14 mars 2020 à 06:48
Bonjour,
Vérifiez que le nom de l'onglet est bien feuil1 (sans espace avant, après, et avec les minuscule, majuscule)
Vérifiez que vous avez bien mis un apostrophe entre les range("A1").value
Sinon, placez votre classeur sans données confidentielles
Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".
ou dans https://mon-partage.fr/
Vérifiez que le nom de l'onglet est bien feuil1 (sans espace avant, après, et avec les minuscule, majuscule)
Vérifiez que vous avez bien mis un apostrophe entre les range("A1").value
Sinon, placez votre classeur sans données confidentielles
Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".
ou dans https://mon-partage.fr/
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
Modifié le 14 mars 2020 à 08:30
Modifié le 14 mars 2020 à 08:30
Bonjour,
Si ce code fonctionnait avant c'est qu'il n'y avait pas le F au début du numéro !
Si tu l'enlève, le code refonctionnera (en remplaçant le ' avant A1 par ")
Et si tu veux une lettre au début de ton numéro alors :
Si ce code fonctionnait avant c'est qu'il n'y avait pas le F au début du numéro !
Si tu l'enlève, le code refonctionnera (en remplaçant le ' avant A1 par ")
Et si tu veux une lettre au début de ton numéro alors :
Sub xxx()
Dim p As String ' prefixe
Dim n As Long ' numéro
p = Left(Worksheets("feuil1").Range("A1").Text, 1)
n = Val(Mid(Worksheets("feuil1").Range("A1").Text, 2))
Worksheets("feuil1").Range("A1").Value = p & Format(n + 1, "0000000")
End Sub
