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 - Guide
- Fifa 13 apk - Télécharger - Jeux vidéo
- +33 9 48 19 02 13 ✓ - Forum Mobile
- Erreur 10016 epson - Forum Imprimante
- Erreur d'execution 13 ✓ - Forum Programmation
2 réponses
M-12
Messages postés
1333
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
299
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 776
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
