Comment afficher page vide si fichier introuvable
Résolu/Fermé
hakoko
Messages postés
185
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
13 avril 2020
-
8 juil. 2013 à 11:19
hakoko Messages postés 185 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 13 avril 2020 - 11 juil. 2013 à 20:29
hakoko Messages postés 185 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 13 avril 2020 - 11 juil. 2013 à 20:29
A voir également:
- Comment afficher page vide si fichier introuvable
- Coeur vide ✓ - Forum Internet / Réseaux sociaux
- Supprimer une page word - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
2 réponses
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
153
9 juil. 2013 à 10:30
9 juil. 2013 à 10:30
coucou,
essaie ca :
au debut de ton code au lieu d'écrire :
Rep = "C:\Users\GREEN.215AINFO00.000\Downloads\"
Fichier = Dir(Rep & "*.CSV")
With Worksheets("Feuil1")
Set REQ = .QueryTables.Add("TEXT;" & Rep & Fichier, .Range("A2"))
écris :
Rep = "C:\Users\GREEN.215AINFO00.000\Downloads\"
Fichier = Dir(Rep & "*.CSV")
if err<> 0 then
With Worksheets("Feuil1")
Set REQ = .QueryTables.Add("TEXT;" & Rep & Fichier, .Range("A2"))
'tu écris tout ton code et tu mets end if juste avant de changer de fichier
essaie ca :
au debut de ton code au lieu d'écrire :
Rep = "C:\Users\GREEN.215AINFO00.000\Downloads\"
Fichier = Dir(Rep & "*.CSV")
With Worksheets("Feuil1")
Set REQ = .QueryTables.Add("TEXT;" & Rep & Fichier, .Range("A2"))
écris :
Rep = "C:\Users\GREEN.215AINFO00.000\Downloads\"
Fichier = Dir(Rep & "*.CSV")
if err<> 0 then
With Worksheets("Feuil1")
Set REQ = .QueryTables.Add("TEXT;" & Rep & Fichier, .Range("A2"))
'tu écris tout ton code et tu mets end if juste avant de changer de fichier
hakoko
Messages postés
185
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
13 avril 2020
3
9 juil. 2013 à 14:43
9 juil. 2013 à 14:43
merci bcp, magnifique ça marche!!
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
153
11 juil. 2013 à 11:18
11 juil. 2013 à 11:18
Mets ton pb en résolu stp.
hakoko
Messages postés
185
Date d'inscription
lundi 11 mars 2013
Statut
Membre
Dernière intervention
13 avril 2020
3
11 juil. 2013 à 20:29
11 juil. 2013 à 20:29
ok , sans faute :)