Code vba ne fonctionne plus sous Excel2016

job75

XLDnaute Barbatruc

• 23 Janvier 2017

• #2

Bonsoir msingle,

Chr(0) n'a jamais existé, sur aucune version.

Chr c'est simplement la fonction Excel CAR...

A+

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 23 Janvier 2017

• #3

Effectivement... Mais le problème ne vient pas de là malheureusement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2017

• #4

Re,

En fait Chr(0) existe bel et bien :

http://www.vbforums.com/showthread.php?563930-CHR(0)-not-the-same-as-NULL

A quoi sert-il donc ?

A+

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 23 Janvier 2017

• #5

En fait, j'ai copié ce bout de code... probablement de ce forum...
Mais le problème ne vient pas de là car même en remplaçant "Fichier d'export (*.csv)" & Chr(0) & "*.csv" & Chr(0) par "Test", l'instruction sPathFic = GetFileName(sFilter, "C:\Users\beele\Downloads", "Sélectionnez le fichier à ouvrir") est zappée par Excel 2016.

 

Vote positif 0 Vote négatif

L

LaCeline

XLDnaute Nouveau

• 23 Janvier 2017

• #6

msingle, job75, le forum,

Espérant ne pas écrire trop de bêtises ...
Pas hasard, le fichier contenant le bout de code devenu inopérationnel n'était-il pas d'origine un .xls (Excel 2003) ?
Aujourd'hui, ne doit-on pas utiliser : Application.GetOpenFilename ?
Ce lien n'existe plus

LaCéline

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Janvier 2017

• #7

Bonjour

job75 à dit:

Re,

En fait Chr(0) existe bel et bien :

http://www.vbforums.com/showthread.php?563930-CHR(0)-not-the-same-as-NULL

A quoi sert-il donc ?

A+

Cliquez pour agrandir...

En base de données NULL est très utilisé : il faut bien le matérialiser par quelque chose.

Ne manque t'il pas le dernier \ dans le chemin ? Cela donnerait "" en retour

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 23 Janvier 2017

• #8

LaCeline à dit:

msingle, job75, le forum,

Espérant ne pas écrire trop de bêtises ...
Pas hasard, le fichier contenant le bout de code devenu inopérationnel n'était-il pas d'origine un .xls (Excel 2003) ?
Aujourd'hui, ne doit-on pas utiliser : Application.GetOpenFilename ?
Ce lien n'existe plus

LaCéline

Cliquez pour agrandir...

Non, le fichier a toujours été un .xlsm.
D'autre part, j'ai testé Application.GetOpenFilename, et à présent le code me demande bien quel fichier ouvrir, mais ne continue pas la procédure.

En résume, ce que je cherche c'est à demander à l'utilisateur de choisir un fichier (.csv) afin de procéder à son importation.

 

Vote positif 0 Vote négatif

L

LaCeline

XLDnaute Nouveau

• 24 Janvier 2017

• #9

msingle, le forum,

Un essai :

Code:

Dim sPathFic As String, sFilter As String
sFilter = "Fichier d'export (*.csv),  *.csv"
' Donner le choix du fichier :
ChDir ("C:\Users\beele\Downloads\")
sPathFic = Application.GetOpenFilename(sFilter)
If sPathFic = "" Then Exit Sub

LaCéline

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2017

• #10

Bonjour msingle, LaCeline, chris, le forum,

Attention, Application.GetOpenFilename renvoie la variable booléenne False quand on clique sur Annuler.

Donc utiliser :

Code:

Dim sPathFic As Variant, sFilter As String
sFilter = "Fichier d'export (*.csv),  *.csv"
' Donner le choix du fichier :
ChDir "C:\Users\beele\Downloads" 'ThisWorkbook.Path
sPathFic = Application.GetOpenFilename(sFilter)
If sPathFic = False Then Exit Sub
Workbooks.Open sPathFic 'ouverture avec Excel
'---suite---

Bonne journée.

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 24 Janvier 2017

• #11

Merci LaCeline et job75.

Cela fonctionne aussi bien avec Excel 2007 qu'Excel 2016.

J'ouvre un nouveau post pour un autre problème d'incompatibilité...

Bonne journée à tous.

 

Vote positif 0 Vote négatif