XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé

Calizarine · 9 Janvier 2024

Bonjour,
Je passe rarement par ici, aussi en guise de contribution, je voudrais joindre le classeur excel que j'ai créé pour la facturation avec une base clients intégrée, des listes déroulantes et une macro pour enregistrer la facture en PDF.
fichier : 0 Gestion Clients Devis Factures Test

Mon souci : il faut que je dupplique ce classeurr avec l'arrivée d'une deuxième personne, mais que je créé un classeur indépendant avec les onglets BD client et BD clients facture devis, pour avoir un fichier unique pour les 2 personnes. Forcément les liens ne fonctionnent plus, notamment pour la liste déroulante du numéro client

VB:

=INDIRECT("tab_client[Code]")

. Les tableaux et les colonnes sont nommées.
J'ai essayé différentes choses comme

Code:

=INDIRECT("[Base_Don_V2.xls]"tab_client[Code]")

, mais ça ne fonctionne pas.

Ces fichiers sont sur Dropbox et peuvent être chargés en interne, j'ai donc tout mis dans un dossier "facturation" pour éviter tout problème de liens invalides, je voudrais aussi éviter les liens vers une adresse du type C:\Users\Veronique\Documents\Adobe.
fichiers : 0 Gestion Clients Devis Factures Test V2 et Base Don V2

J'espère avoir été claire.
Merci

goube · 9 Janvier 2024

Bonsoir,
As tu essayé d'alimenter ta liste déroulante avec Power query, ce qui permettra d'avoir une base commune pour les deux fichiers ?
Cordialement
Edit
Essai à tester

Calizarine · 9 Janvier 2024

goube à dit:
Bonsoir,
As tu essayé d'alimenter ta liste déroulante avec Power query, ce qui permettra d'avoir une base commune pour les deux fichiers ?
Cordialement
Edit
Essai à tester

Bonsoir,
Merci pour la réponse.
J'avoue ne pas savoir comment utilser power query dans ce cas. Excel, pour le fichier joint, à fait ce que je redoutais. Arghhh.

goube · 9 Janvier 2024

Re,
Il faut remplacer le chemin inscrit dans le fichier par le chemin du fichier sur ton poste de travail.

Calizarine · 10 Janvier 2024

goube à dit:
Re,
Il faut remplacer le chemin inscrit dans le fichier par le chemin du fichier sur ton poste de travail.

La difficulté est que ces classeurs vont être hébergés sur Dropbox et pourront parfois être téléchargés en interne, avec ce type de chemin, les liens seront quaducs et certainement que excel essaiera de rectifier en faisant nimporte quoi. Dans mes souvenirs, on pouvait créer des liens entre 2 classeurs, sans mettre le chemin complet, s'ils étaient contenus dans un même dossier, mais peut-être que je me trompe.

goube · 10 Janvier 2024

Bonjour,
Si les fichiers portent toujours le même nom et sont toujours sauvegardés au même emplacement.
Cordialement.

crocrocro · 10 Janvier 2024

Bonjour Calizarine et Goube,
réponse simultanée avec celle de Goube (pas vue).
Peut-être ce code pourra aider après adaptation au besoin.

VB:

Sub ListeEnviron()
' Liste des variables d'environnement
' permet de récupérer par exemple la variable correspondant au répertoire OneDrive
Dim i As Integer, TabVar
Dim Fin As Boolean
    i = 1
    Fin = False
    While Not Fin
        If Environ(i) <> "" Then
            TabVar = Split(Environ(i), "=")
            Debug.Print TabVar(0) & " = " & TabVar(1)
            i = i + 1
        Else
            Fin = True
        End If
    Wend
End Sub
Sub TestCheminLocal()
Dim AncienChemin As String
Dim NouveauChemin As String
    AncienChemin = ActiveWorkbook.Path
    'AncienChemin = "https://my.sharepoint.com/personal/Documents/MonRepertoire"
    NouveauChemin = CheminLocal(AncienChemin, "OneDrive")
End Sub
Public Function BonChemin() As String
Dim NouveauChemin As String
Dim AncienChemin As String
    AncienChemin = ActiveWorkbook.Path
    'AncienChemin = "https://my.sharepoint.com/personal/Documents/MonRepertoire"
    BonChemin = CheminLocal(AncienChemin, "OneDrive")
End Function
Function CheminLocal(pCheminIn As String, pEnv As String) As String
' exemples selon la valeur de pCheminIn et pEnv = "OneDrive" et Environ(pEnv)="C:\Users\Calizarine\OneDrive"
' https://my.sharepoint.com/personal/Documents/MonRepertoire -> C:\Users\Calizarine\OneDrive\MonRepertoire
' C:\Users\Calizarine\MonRepertoire                          -> C:\Users\Calizarine\OneDrive
Const RepDocument = "Documents"
    Select Case True
    Case InStr(1, pCheminIn, "http") <> 0
        ' Fichier non Local -> On remplace la partie après (RepDocument) du chemin par celui dans l'emplacement local (pEnv)
        New_Chemin = Environ(pEnv) & "\" & Mid(pCheminIn, InStrRev(pCheminIn, RepDocument) + Len(RepDocument) + 1, Len(pCheminIn))
        New_Chemin = Replace(New_Chemin, "/", "\")
        CheminLocal = New_Chemin
    Case Else
        ' Fichier Local -> on remplace le chemin par l'emplacement local (pEnv)
        New_Chemin = Environ(pEnv)
        CheminLocal = New_Chemin
    End Select
    Debug.Print pCheminIn & vbCrLf & New_Chemin

End Function

Adapter la formule Indirect avec un appel à la fonction BonChemin

Calizarine · 10 Janvier 2024

crocrocro à dit:

Bonjour Calizarine et Goube,
réponse simultanée avec celle de Goube (pas vue).
Peut-être ce code pourra aider après adaptation au besoin.

VB:

Sub ListeEnviron()
' Liste des variables d'environnement
' permet de récupérer par exemple la variable correspondant au répertoire OneDrive
Dim i As Integer, TabVar
Dim Fin As Boolean
    i = 1
    Fin = False
    While Not Fin
        If Environ(i) <> "" Then
            TabVar = Split(Environ(i), "=")
            Debug.Print TabVar(0) & " = " & TabVar(1)
            i = i + 1
        Else
            Fin = True
        End If
    Wend
End Sub
Sub TestCheminLocal()
Dim AncienChemin As String
Dim NouveauChemin As String
    AncienChemin = ActiveWorkbook.Path
    'AncienChemin = "https://my.sharepoint.com/personal/Documents/MonRepertoire"
    NouveauChemin = CheminLocal(AncienChemin, "OneDrive")
End Sub
Public Function BonChemin() As String
Dim NouveauChemin As String
Dim AncienChemin As String
    AncienChemin = ActiveWorkbook.Path
    'AncienChemin = "https://my.sharepoint.com/personal/Documents/MonRepertoire"
    BonChemin = CheminLocal(AncienChemin, "OneDrive")
End Function
Function CheminLocal(pCheminIn As String, pEnv As String) As String
' exemples selon la valeur de pCheminIn et pEnv = "OneDrive" et Environ(pEnv)="C:\Users\Calizarine\OneDrive"
' https://my.sharepoint.com/personal/Documents/MonRepertoire -> C:\Users\Calizarine\OneDrive\MonRepertoire
' C:\Users\Calizarine\MonRepertoire                          -> C:\Users\Calizarine\OneDrive
Const RepDocument = "Documents"
    Select Case True
    Case InStr(1, pCheminIn, "http") <> 0
        ' Fichier non Local -> On remplace la partie après (RepDocument) du chemin par celui dans l'emplacement local (pEnv)
        New_Chemin = Environ(pEnv) & "\" & Mid(pCheminIn, InStrRev(pCheminIn, RepDocument) + Len(RepDocument) + 1, Len(pCheminIn))
        New_Chemin = Replace(New_Chemin, "/", "\")
        CheminLocal = New_Chemin
    Case Else
        ' Fichier Local -> on remplace le chemin par l'emplacement local (pEnv)
        New_Chemin = Environ(pEnv)
        CheminLocal = New_Chemin
    End Select
    Debug.Print pCheminIn & vbCrLf & New_Chemin

End Function

Adapter la formule Indirect avec un appel à la fonction BonChemin

Bonjour et merci beaucoup Crocrocro,
Je ne suis malheureusement pas assez calée du tout pour utiliser VBA. J'avais pensé trouver la solution avec Power Querry, mais pour l'instant ça bug et puis de toute façon le problème du chemin reste entier. Il y a bien un currentWorkbook très utile, mais pas de currentFolder !! Etant donné que toutes mes feuilles ont des formules renvoyant à l'onglet BD client, je pensais faire une copie dynamique de BD client du dossier BD, vers le dossier 0 gestion clients ..., comme ça on peut visualiser la BD client soit dans le classeur BD, soit dans 0 gestion clients... ce qui au final arragerait mes collègues.

Calizarine · 10 Janvier 2024

goube à dit:
Bonjour,
Si les fichiers portent toujours le même nom et sont toujours sauvegardés au même emplacement.
Cordialement.

Merci Goube, mais ça ne fonctionne pas.

goube · 10 Janvier 2024

re,
Qu'est ce qui ne fonctionne pas ?
Cordialement

Calizarine · 10 Janvier 2024

goube à dit:
re,
Qu'est ce qui ne fonctionne pas ?
Cordialement

Vous avez raison, j'aurais dû préciser.
Et bein qu'ayant été obligé d'activer la macro, je ne la voie pas. L'ajout d'un client dans Base Don V2, ne se répercute pas.
J'ai essayé la solution Power Querry, comme vous me l'avez suggéré, mais je n'y arrive pas (voir commentaire avec Crocrocro). Je pensais que mon problème serait simple, mais je crois que c'est trop compliqué pour moi.

goube · 10 Janvier 2024

Re
La macro est dans le fichier 0 Gestion Clients Devis Factures Test V2.xlsm dans ThisWorkbook.
Pour que cela fonctionne, il faut que les deux fichiers soient stockés dans le dossier Dropbox présent sur chaque poste (visible dans l'explorateur)

Cordialement

Calizarine · 11 Janvier 2024

goube à dit:
Re
La macro est dans le fichier 0 Gestion Clients Devis Factures Test V2.xlsm dans ThisWorkbook.
Pour que cela fonctionne, il faut que les deux fichiers soient stockés dans le dossier Dropbox présent sur chaque poste (visible dans l'explorateur)
Regarde la pièce jointe 1188209
Cordialement

Merci Goube.

XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé

Calizarine

XLDnaute Nouveau

Pièces jointes

goube

XLDnaute Accro

Pièces jointes

Calizarine

XLDnaute Nouveau

goube

XLDnaute Accro

Calizarine

XLDnaute Nouveau

goube

XLDnaute Accro

Pièces jointes

crocrocro

XLDnaute Impliqué

Calizarine

XLDnaute Nouveau

Calizarine

XLDnaute Nouveau

goube

XLDnaute Accro

Calizarine

XLDnaute Nouveau

goube

XLDnaute Accro

Calizarine

XLDnaute Nouveau

Discussions similaires

XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé

XLDnaute Nouveau

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Accro

Pièces jointes

XLDnaute Impliqué

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency