Chemin relatif (encore)

Résolu

cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007 - 20 mars 2007 à 09:14
cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007 - 20 mars 2007 à 11:32

Bonjour à tous,
un problème idiot qui m'a fait perdre mon après midi hier...
J'ai
fait une macro par apprentissage pour importer un fichier texte dans un
onglet. Le problème, c'est que je veux enlever le lien absolu pour le
transformer en lien relatif (pour aller sur un autre PC). J'ai
bidouillé mon truc, ca a marché deux fois, puis plus rien....
Voici une partie de mon code (qui a marché 2 fois) :

Sheets("ascii brut").Select
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;essais ASCII\base.txt"" _
        , Destination:=Range("A1"))
        .Name = "base"
        .FieldNames = True
        .RowNumbers = False
       ....
       End With

le lien absolu était : "C:\Documents and Settings\Munier\Bureau\Stage Moteur\Exploitation Excel\essais ASCII\base.txt"
(le fichier excel est dans "C:\Documents and Settings\Munier\Bureau\Stage Moteur\Exploitation Excel") et ca marchait.
j'ai essayé de mettre un truc du genre :

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;ActiveWorkbook.Path & "\essais ASCII\base.txt"" _
        , Destination:=Range("A1"))

mais ca donne rien.... et j'aimerais énormément que vous m'aidiez dans ma démarche !!
Merci beaucoup pour votre aide !!
Romain

A voir également:

Vba chemin relatif
Doevents vba - Conseils pratiques -Visual Basic / VB.NET
Byval vba - Conseils pratiques -Visual Basic / VB.NET
Aide vba - Conseils pratiques -Visual Basic / VB.NET
Vba modulo ✓ - Forum Visual Basic 6
Maths : modulo ✓ - Forum Visual Basic

25 réponses

Réponse 21 / 25

cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007
20 mars 2007 à 10:30

j'avais regardé 15 fois pour confirmer qu'il était bien là, bon nom, bon extension, bon emplacement !!
ca devait être un problème de syntaxe...
en espérant que ca tienne dans le temps, merci encore !!

Réponse 22 / 25

cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007
20 mars 2007 à 10:41

juste une dernière question :
comment afficher la valeur de chemin dans une cellule (par exemple A1) ??
j'ai tenté : Sheets("procédure").Cells("A1") = Chemin
mais il n'en veut pas...

Réponse 23 / 25

cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007
20 mars 2007 à 10:44

réponse trouvée
merci quand même
Sheets("procédure").Cells(1, 2) = Chemin

Réponse 24 / 25

drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
20 mars 2007 à 10:55

Pour Info avec cette synthaxe ce n'est pas:
Sheets("procédure").Cells("A1") = Chemin
mais
Sheets("procédure").Range("A1") = Chemin
ou effectivament:
Sheets("procédure").Cells(1, 2) = Chemin

Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 25

cs_westa Messages postés 12 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 20 mars 2007
20 mars 2007 à 11:32

merci pour tout drikce

Discussions similaires

Comment fonctionne la fonction FormulaR1C1

fonction modulo en VBA

Dernière cellule non vide d'une colonne

A quoi sert la fonction Set ?

Modulo pour chiffres à virgule

Votre réponse

Discussions similaires