Macro
Résolu/Fermé
Farfadet88
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
13 janv. 2010 à 16:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 13 janv. 2010 à 16:32
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 13 janv. 2010 à 16:32
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
3 réponses
pou pouille
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
13 janv. 2010 à 16:25
13 janv. 2010 à 16:25
bonjour, je croi qu'il faut remplacer 0 par False ^^
edit : heu j'ai rien dis c'est pas ca la réponse
edit : heu j'ai rien dis c'est pas ca la réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
13 janv. 2010 à 16:28
13 janv. 2010 à 16:28
Salut,
Essaye ceci :
C'est sensiblement la mêmee chose mais déjà t'évite un If... End If
Essaye ceci :
If .Show = -1 Then
TheFile = .SelectedItems(1)
Else
TheFile = "0"
MsgBox ("aucun fichier image choisi")
Sheets("données").Range("L1").Value = "..."
Sheets("accueil").Select
Exit Sub
End If
End With
C'est sensiblement la mêmee chose mais déjà t'évite un If... End If
Farfadet88
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 394
13 janv. 2010 à 16:30
13 janv. 2010 à 16:30
Nickel. Merci
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Farfadet88
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
13 janv. 2010 à 16:32
13 janv. 2010 à 16:32
Je pense que ça venait de :
Dim TheFile as String
et TheFile = 0
0 est numéraire... "0" est String. Enfin je pense maintenant pas sur du tout...
Dim TheFile as String
et TheFile = 0
0 est numéraire... "0" est String. Enfin je pense maintenant pas sur du tout...
Farfadet88
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 394
13 janv. 2010 à 16:29
13 janv. 2010 à 16:29
Ca ne marche pas non plus