Discussion :

[stagvba]

Bonjour le forum,
Je travaille sur un fichier Excel dont je l’avais copié avec la base de données et les fichiers en relations correspondantes sur un autre pc. Auparavant Ce fichier m’affichait les résultats souhaités. Alors que lorsque j’ai changé le répertoire dans le code vba (macros) ça m’affiche une partie du résultat.
Que peut être la cause de ce problème ?

vous trouvez le résultat avant et après sur les imprimés écrans ci jointes

je crois que le problème est dans cette partie là du code, dont ce chemin : "C:\Users\user\Desktop\DataBase\Base-competences_pers_ctrl.xls" est changé vers "\\caracas\qualif_op\Personnel_Controle\Base-competences_pers_ctrl.xls" voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Vérifier si le fichier source est déjà ouvert
If BOOL_QualifOuvert = False Then
    'Ouverture automatique du fichier source Tableau-compétences-contrôle    Workbooks.Open Filename:="C:\Users\user\Desktop\DataBase\Base-competences_pers_ctrl.xls", Notify:=False, ReadOnly:=True
    fichiersource = "C:\Users\user\Desktop\DataBase\Base-competences_pers_ctrl.xls"
        If fichiersource = "Faux" Then
        MsgBox "Abandon."
        Exit Sub
    End If
 
    'Workbooks.Open fichiersource
        If BOOL_MajGlobale = True Then
            BOOL_QualifOuvert = True
        End If
End If

[parmi]

Bonjour,

Tu ne spécifies pas la version que tu utilises...

Vas dans l'onglet du ruban Données > Modifier les liens
Regarde les chemins des liens externes s'il y en a.

Je pense qu'il y en aura et que ces chemins ne sont pas ceux que tu espères.
Lorsque tu sélectionnes un des fichiers de la liste, tu vas voir le chemin en-dessous.
Si c'est le cas, change les chemins en cliquant Modifier la source... et recherche les fichiers dans les nouveaux répertoires que tu utilises.

En espérant être clair dans mes explications...

[Menhir]

Alors que lorsque j’ai changé le répertoire dans le code vba (macros) ça m’affiche une partie du résultat.

Comment penses-tu qu'il soit possible de répondre à cette question sans voir le code ?

[stagvba]

c'est sur excel 2007.

Et concernant le code, ce meme code donne le bon résultat mais après changement du répertoire le résultat désiré n'est pas affiché.

Le changement sont effectués dans cette partie du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Sauvegarde des données du Service dans un fichier .txt
Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\" & NomService & ".txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
Print #1, Range("C61").Value & vbTab & Cells(61, 4).Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
Close #1 'fermeture du fichier
 
'Sauvegarde de la note total Service du menu dans un fichier .txt
Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\Total Services.txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
'Print #1, Sheets("Menu").Range("E10").Value & vbTab & Sheets("Menu").Range("F10").Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
Close #1 'fermeture du fichier
 
......
 
'Ouverture automatique du fichier source
Workbooks.Open Filename:="Z:\Base-competences_pers_ctrl.xls", Notify:=False, ReadOnly:=True
fichiersource = "Z:\Base-competences_pers_ctrl.xls"
 
.....

L'ancien répertoire était le suivant: C:\Users\user\Desktop\DataBase
@parmi : "Modifier les liens" n'est pas actif dans cet onglet. Le problème que j'ai changé le répértoire et lorsque j'ai modifier ça dans le code...je n'aura plus mon résultat ...

Comment penses-tu qu'il soit possible de répondre à cette question sans voir le code ?

c'est sur Excel 2007.

Et concernant le code, ce même code donne le bon résultat mais après changement du répertoire le résultat désiré n'est pas affiché.

Le changement sont effectués dans cette partie du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Sauvegarde des données du Service dans un fichier .txt
 Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\" & NomService & ".txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
 Print #1, Range("C61").Value & vbTab & Cells(61, 4).Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
 Close #1 'fermeture du fichier
 
'Sauvegarde de la note total Service du menu dans un fichier .txt
 Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\Total Services.txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
 'Print #1, Sheets("Menu").Range("E10").Value & vbTab & Sheets("Menu").Range("F10").Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
 Close #1 'fermeture du fichier
 
......
 
'Ouverture automatique du fichier source
 Workbooks.Open Filename:="Z:\Base-competences_pers_ctrl.xls", Notify:=False, ReadOnly:=True
 fichiersource = "Z:\Base-competences_pers_ctrl.xls"
 
.....

L'ancien répertoire était le suivant: C:\Users\user\Desktop\DataBase